VBA code-fehler
06.07.2004 16:40:07
Ulf
Habe folgendes Problem mit diesem Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 6 Then
If Not IsDate(Target.Offset(0, -1)) And IsNumeric(Target.Offset(-1, 0)) _
And Target.Offset(-1, 0) <> "" Then Target.Offset(0, -1) = Target.Offset(-1, -1)
If Target.Offset(-1, 0) = "" Then Target.Offset(0, -1) = ""
End If
End Sub
Gebe ich in Spalte 5 einen Wert ein, kopiere ich in Spalte 4 einen Wert nach unten. Funktioniert auch ganz gut.
Nur wenn ich in Spalte 5 mehrere Zellen markiere (zBsp. zum kopieren), dann habe ich Laufzeitfehler 13.
Meine Frage. Kann ich das Macro abbrechen wenn ich mehrere Zellen markiere.
im voraus vielen Dank für eure Hilfe
mfg Ulf
Anzeige