ein Macro für alle Sheets
21.04.2020 15:30:15
Florian
ich bin gerade dabei eine Datenbank aufzubauen in der meine Kollegen die für Sie wichtigen Infos pro Schicht und Tag hinterlegen sollen.
Ich habe mir schon mit dem Makro-Recorder und aus dem Netz ein Makro zusammengebastelt was aber leider nicht so richtig läuft. Ich hoffe Ihr könnt mir helfen, die Fehler zu finden.
Ich will mir Makro so gestaltet, dass es immer im ActiveSheet läuft und so für alle Worksheets geht, sonst werden es duzende Macros.
Unten habe ich das Makro mit den Aktionen die es ausführen soll absatzweise hinterlegt.
Großen Dank im Voraus Florian
Sub Datenübertragung()
' Datenübertragung Makro
Sheet("Datenbank").Unprotect Password:="Test"
ActiveSheet.Unprotect Password:="Test"
Blattschutz aufheben in aktiven Sheet und Sheet Datenbank
ActiveSheet.Range("A34:CS34").Select
Selection.Copy
Daten nach der Eingabe im aktiven Sheet auswählen und kopieren
Sheets("Datenbank").Select
Range("A4:CS4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Select
Daten in Sheet Datenbank Zeile 4 als reine Werte hinterlegen und eine neue Zeile in _
Zeile 4 einfügen
ActiveSheet.Range("A34:CS35").Select
Selection.Copy
Daten im aktiven Sheet auswählen und kopieren
Range("A35:CS36").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Daten im aktiven Sheet eine Zeile tiefer wieder als reine Werte einfügen
Range("B2,B7:K10,A13:I17,J14:M17,A20:M28").Select
Range("A20").Activate
Selection.ClearContents
Daten aus der Eingabemaske im aktiven Sheet entfernen
ActiveSheet.Protect Password:="Test"
Worksheet("Datenbank").Protect Password:="Test"
Blattschutz wieder herstellen in beiden Sheets
End Sub
Es hakt immer bei den Einfügevorgängen