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
5.Prüfung =F1
6.Prüfung =G1
7.Prüfung =H1
8.Prüfung =I1
Danke
Jochen