Hallo,
ich habe folgendes Makro für meine Tabelle hinterlegt.
Sub Zeile()
ActiveSheet.Unprotect Password:="UnserNeuesAuftragsbuch#2013"
Rows(Tabelle1.Range("A65535").End(xlUp).Row - 0).Select
Selection.Insert Shift:=xlDown
ActiveSheet.Protect Password:="UnserNeuesAuftragsbuch#2013", AllowFiltering:=True
End Sub
Funktioniert super auf dem 1. Arbeitsblatt.
Da ich aber noch weitere Arbeitsblätter habe bei denen das Makro manuelle angesprochen werden soll (also nicht wenn ich auf dem 1. Arbeitsblatt den Button drücke das es auf alle Blätter angwendet wird, sondern der Nutzer manuell pro Blatt dies auswählen kann) habe ich wohl irgendeinen Fehler.
Grundsätzlich funktioniert es zwar, allerdings wird die neue Zeile auf allen anderen Blättern immer in Zeile 7 eingefügt und nicht am Ende der Tabelle wie gewünscht.
Wäre super, wenn mir jemand die passende Ergänzung im Code mitteilen könnte.
|