ich möchte ein Makro oder Befehle starten wenn irgend eine Zelle verändert wird.
Bis jetzt habe ich folgenden Code verwendet.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errExit
If Target.Cells(1) = "" Then
Rows("9:1000").Select
Rows("9:1000").EntireRow.AutoFit
End If
Exit Sub
' Fehler Routine
errExit:
Select Case Err.Number
Case 1004
MsgBox "Keine Daten vorhanden", 64
Case Else
MsgBox "Es ist ein Fehler aufgetreten!" & vbCr & vbCr _
& "Fehlernummer: " & Err.Number & vbCr _
& "Fehlerbeschreibung: " & Err.Description, 48
End Select
End Sub
Neuerdings funktioniert der Code nicht. Bei
If Target.Cells(1) = "" Then
wir der Code beendet und es passiert nichts.
Könnte jemand mir hier helfen?
Danke im Voraus,
Grüße, Peter