ich habe in Excel ein Makro erstellt, was bei der Eingabe in einer Zelle andere Zellen der gleichen Spalte automatisch füllt. Soweit so gut. Wenn ich den eingegebenen Wert nun eine Zeile nach unten ziehe (nicht kopiere) wird das Makro einwandfrei ausgeführt.
Ziehe ich den Wert aber nun 2 oder mehr Zeilen nach unten wird zwar der Wert eingetragen, aber das Makro nicht ausgeführt.
Ich nehme an, dass ich das mit einer Schleife regeln muss, aber habe leider bisher keinen vernünftigen Ansatz gefunden. Hoffe hier kann mir jemand einen Denkanstoß geben.
Grüße
Kenji
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 And Target. _
Column = 4 Then
If Cells(Target.Row, 4) = "AL" Or Cells(Target.Row, 4) = "AU" Or Cells(Target.Row, 4) = "BE" Or _
_
_
Cells(Target.Row, 4) = "BN" Or Cells(Target.Row, 4) = "DP" Or Cells(Target.Row, 4) = "KP" Or _
Cells(Target.Row, 4) = "RK" Or Cells(Target.Row, 4) = "RP" Or Cells(Target.Row, 4) = "SO" Or _
Cells(Target.Row, 4) = "ST" Or Cells(Target.Row, 4) = "TE" Or Cells(Target.Row, 4) = "TK" Or Cells(Target.Row, 4) = "UN" Then
ActiveSheet.Unprotect Password:=""
Cells(Target.Row, 2) = Date
Cells(Target.Row, 12).Locked = False
Cells(Target.Row, 14).Locked = False
Select Case Environ("Username")
Case "": Cells(Target.Row, 14) = ""
End Select
Cells(Target.Row, 2).Locked = True
ActiveSheet.Protect Password:="", DrawingObjects:=False, Contents:=True, Scenarios:=True, _
AllowFiltering:=True
Else
ActiveSheet.Unprotect Password:=""
Cells(Target.Row, 2) = ""
Cells(Target.Row, 12).Locked = True
Cells(Target.Row, 14) = ""
Cells(Target.Row, 14).Locked = True
ActiveSheet.Protect Password:="", DrawingObjects:=False, Contents:=True, Scenarios:=True, _
AllowFiltering:=True
End If
End If
End Sub