Hallo zusammen. Mein angehängter Code funktioniert tip Top. Leider läuft das Makro bei vielen Daten sehr lange. Ich möchte dies gerne begrenzen. Es soll nur ausgelöst werden ab der Zeile D4 bis D154. Kann mir hierbei jemand weiter helfen wie ich den code anpassen muss?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Count = 1 Then
If Target.Column = 4 And Target.Row > 3 Then
If Target <> "" Then
For Each ws In ThisWorkbook.Worksheets
If ws.Name = Target Then
MsgBox "Hinweis: Das Blatt " & Target & " gibt es schon."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
Next ws
Sheets("Vorlage").Copy after:=Worksheets(Sheets.Count)
ActiveSheet.Name = Target
End If
End If
End If
End Sub
|