Spannendes SelectionChange Event

Hallo VBA Experten,
ich habe eine persönliche Herausforderung mit dem SelectionChange Event.
Ich möchte, dass Excel eine Zelle mit einem "#" überschreibt / editiert, wenn eine beliebige Zelle in einer Zeile selektiert ist. Dies soll für mehrere Zeilen geschehen. Wenn also eine beliebige Zelle zwischen, bspw., den Zeilen 30 und 60 markiert ist, dann ändere jeweils die Zelle in Spalte A, die in der Zeile liegt in der die Zelle markiert ist: ändere A30 wenn Zelle A30:Z30 selektiert. Gleichzeitig soll alles andere in Spalte A sofort gelöscht werden. Damit bleibt nur A30 mit einem #, der Rest ist leer. Nach meinem Verständnis sind das zwei Prozesse, die hier angelegt werden müssten. Mein Vorschlag bisher war:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("B30").Address Then _
Range("A30").Value = "#"
End Sub

Aber das ist ja offenkundig recht unelegant nur für eine einzelne Zelle und sie löscht auch nicht den Rest der Inhalte aus Spalte A. Wie sollte Eurer Meinung nach der Code gestrikt sein? Vielen Dank.
Grüße,
Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim bereich As Range Set bereich = Tabelle1.Range("A30:Z60") If Not Intersect(bereich, Target) Is Nothing Then Worksheets("Tabelle1").Range("A:A").ClearContents Worksheets("Tabelle1").Cells(Target.Row, 1).Value = "#" End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Zeile1 As Long, Zeile2 As Long Zeile1 = Target.Row Zeile2 = Zeile1 + Target.Rows.Count - 1 Select Case Zeile1 Case Is >= 2 'erste Zeile ab der Makro wirksam sein soll Range(Cells(Zeile1, 1), Cells(Zeile2, 1)).ClearContents Cells(Zeile1, 1) = "#" Cancel = True Case Else 'do nothing End Select End Sub 'nicht so prickelnd - versehentliche Änderungen leicht möglich Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Zeile1 As Long, Zeile2 As Long Zeile1 = Target.Row Zeile2 = Zeile1 + Target.Rows.Count - 1 Select Case Zeile1 Case Is >= 2 'erste Zeile ab der Makro wirksam sein soll Range(Cells(Zeile1, 1), Cells(Zeile2, 1)).ClearContents Cells(Zeile1, 1) = "#" Case Else 'do nothing End Select End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

41 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spannendes SelectionChange Event

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

41 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread