Code Zeile für Zeile durchlaufen
23.07.2020 11:08:04
Eisi
ich brauche bitte eure Hilfe.
Ab der Zelle B5 möchte ich einen Code bis zur letzten befüllten Zeile durchlaufen lassen.
Ich habe mir etwas zusammen gebastelt, denke aber, das in der IF-Anweisung die Zelle B5 so nicht passt, damit der Code auch weiterlaufen kann.
Was fehlt hier noch?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LetzteZeile As Long
Dim i As Integer
LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To LetzteZeile
If Not Application.Intersect(Target, Range("B5")) Is Nothing Then
Range("C5") = ""
End If
Next i
End Sub
VG Eisi :-)