For schleife nötig, bitte um Hilfe
Matthias
folgendes Makro ist umzubauen:
Private Sub worksheet_change(ByVal Target As Range)
Dim WoIstJa As Range ' Variable Bereich
Dim DaIst As Range ' Variable Zelle
Dim lngZ As Long ' Zeile der DaIst-Zelle
Set WoIstJa = Intersect(Range("P4:P33"), Target)
If Not WoIstJa Is Nothing Then
Application.EnableEvents = False
For Each DaIst In WoIstJa
lngZ = DaIst.Row
If LCase(DaIst.Value) = "j" Then
Worksheets("Programm").Cells(lngZ, 3).ClearContents
End If
Next DaIst
Application.EnableEvents = True
End If
Set WoIstJa = Nothing ' Variable leeren
End Sub
Im Sheet "Programm" sind nun Zeilen dazu gekommen und ich bräuchte anstelleWorksheets("Programm").Cells(lngZ, 3).ClearContents - das ab der Zeile4 in 2er Schritt der Wert gelöscht wird
Zeile 4,6,8,10 ...bis 62 ich weis leider nicht wie ich das einbauen soll.
anbei Musterdatei : https://www.herber.de/bbs/user/79604.xlsm
Gruß Matthias