For Next
Metin
ich möchte gerne das bei Zellwert Änderungen in F8:Fx das Datum in I8:Ix eingetragen wird hierzu habe ich auch die Formel. Nur wollte ich nicht vielleicht für bis zu 1000 Zeilen die Befehlszeile schreiben es wäre schön wen das durch eine For Next Schleife gehen würde- Bin aber an einem Punkt angekommen wo ich nicht mehr weiter komme hoffentlich könnt ihr mir das Makro so schreiben das es funktioniert. Vielen Dank im voraus.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim zeilenzahl As Long, zeilenenzahl2 As Long
Dim wksZiel As Worksheet
Set wksZiel = Sheets("tabelle1")
zeilenzahl = Cells(Rows.Count, 1).End(xlUp).Row
zeilenzahl2 = zeilenzahl - 7
'wksZiel.Range("e1") = zeilenzahl2 (dient mir zur Kontrolle)
For I = 1 To zeilenzahl2
If (Target.Column) = 6 Then
If Target.Row = 11 Then Cells(11, 9) = Cells(11, 9).Text & Chr(10) & Date - 1 (in I11 _
Datumseintrag)
'If Target.Row = 12 Then Cells(12, 9) = Cells(12, 9).Text & Chr(10) & Date - 1
'If Target.Row = 13 Then Cells(13, 9) = Cells(13, 9).Text & Chr(10) & Date - 1
'If Target.Row = 14 Then Cells(14, 9) = Cells(14, 9).Text & Chr(10) & Date - 1
'If Target.Row = 15 Then Cells(15, 9) = Cells(15, 9).Text & Chr(10) & Date - 1
'If Target.Row = 16 Then Cells(16, 9) = Cells(16, 9).Text & Chr(10) & Date - 1
End If
Next I
End SubAnzeige