Letzte Speicherung
02.12.2004 08:41:07
J.
wie kann ich aus diesem Makro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
Target.Offset(0, -1).Value = "Zelle " & Target.Address(False, False) _
& " geändert am " & Format(Date, "dd.mm.yy")
End Sub
eine Schleife machen die bis zu 8 Spalten berücksichtigt aber die Ausgabe des Ergbnis nur eine Spalte.
Ausgabe = A1 1.Prüfung =B1 2.Prüfung =C1 3.Prüfung =D1 4.Prüfung =E1
Ausgabe = A2 1.Prüfung =B2 2.Prüfung =C2 3.Prüfung =D2 4.Prüfung =E2
Ausgabe = A3 1.Prüfung =B3 2.Prüfung =C3 3.Prüfung =D3 4.Prüfung =E3
Ausgabe = A4 1.Prüfung =B4 2.Prüfung =C4 3.Prüfung =D4 4.Prüfung =E4
usw
Danke
Jochen