Excel Makro

Und nochmal Hallo

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

Füge dazu im code noch folgendes ein:
Code:
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
 
Hey,

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

Gruß
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:
Code:
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:
Code:
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
 
Zurück