✔ Excel Makro

[duckdonald]

Und nochmal Hallo

natürlich lässt noch auf einen Bereich begrenzen.

Füge dazu im code noch folgendes ein:

If Not Application.Intersect(Target, _
  Range("C3:G10")) Is Nothing Then

  'hier der frühere code

End If

An der Stelle "C3:G10" musst du jetzt nur noch deinen Bereich angeben.
ABER: ich habe gemerkt wenn ein Bereich markiert wird, der über die Begrenzung hinaus geht, dann wird auch dies mit x versehen. Bei Einzelklickung funktioniert dies aber Einwandfrei.

Gruß DuckDonald

 

[Dorschty]

Hey
Du bist ein Gott!
Es funktioniert perfekt!
Vielen Vielen Dank!

Grüße
Dorschty

 

[duckdonald]

endlich sieht das mal jemand ein

nun nur noch als erledigt markieren!

 

[Dorschty]

Hey,

sorry, aber hab doch nochmal ne Frage! Wie kann ich denn am idealsten Speichern, welche Zelle selektiert wurde?

Gruß
Dorschty

 

[Dorschty]

Hat sich erledigt, hab die Lösung gefunden!

Gruß
Dorschty

 

[Dorschty]

Muss nochmal stören! =)

Jetzt hab ich folgendes Problem...
und zwar der Quelltext, den ich oben bekommen habe um die Kreuzchen zu setzen funktioniert ja wunderbar, wenn man den Bereich hard eincodiert, also wie folgt:

If Not Application.Intersect(Target, _
  Range("B5:CH1000")) Is Nothing Then
  If Selection.Borders(xlDiagonalDown).LineStyle = xlNone Then
    Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous
    Selection.Borders(xlDiagonalUp).LineStyle = xlContinuous
  Else
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  End If
End If

Jetzt würde ich den Bereich aber gerne Variabel festlegen. Hab den Versuch gemacht es so zu lösen:

If Not Application.Intersect(Target, _
  Range(Cells(2, 2): Cells(row_counter - 1, column_counter - 1)) Is Nothing Then
  If Selection.Borders(xlDiagonalDown).LineStyle = xlNone Then
    Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous
    Selection.Borders(xlDiagonalUp).LineStyle = xlContinuous
  Else
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  End If
End If

allerdings funktioniert es so nicht. Sieht jemand den Fehler oder hat jemand eine Idee für mich, wie ich das lösen könnte?
Wäre sehr dankbar!

Gruß
Dorschty

 

[duckdonald]

Mach aus den ":" (Doppelpunkt) ein "," (Komma).

Range(Cells(2, 2), Cells(row_counter - 1, column_counter - 1))