Kann mir bitte wer sagen, was ich ändern muß um bei dem Code nicht in die Zeile 45 sondern in die nächste leere Zeile zu springen, wenn ich das Tool öffne ?
Danke
chris
Hier der Code:
Private Sub Workbook_Open()
Range("A45").Select
Range("A1:M9996").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Empfaenger").Select
Range("A1:E9999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Kunden").Select
End Sub