Fehler im Macro
04.05.2020 14:40:23
Florian
ich bräuchte eure Hilfe. Ich arbeite gerade an einer Datei zur Speicherung von Schichtdaten und habe Probleme den Fehler im meinem Macro zu finden.
Das Macro soll Daten aus einer Liste im aktiven Arbeitsblatt in das Arbeitsblatt Datenbank als reine Werte einfügen und danach im Blatt Datenbank noch eine neue leere Zeile einfügen.
Einmal geht es ohne Problem dann wieder nicht. Könnt ihr mir sagen was dort nicht stimmt?
Die Teile des Macros die nicht sauber laufen habe ich fett und kursiv markiert.
ICh habe noch versucht die Datei hochzuladen. Sie liegt unter 137248.xlsm ab, aber die Homepage läuft hier nicht sauber, bsw. es ist nicht klar ersichtlich wie dies ablaufen muss.
Gruß Florian
Sub Datenübertragung()
' Datenübertragung Makro
msg = MsgBox("Daten nicht mehr änderbar! Wirklich Absenden?", 4, "Achtung")
If msg = 6 Then
Worksheets("Datenbank").Unprotect Password:="Test"
ActiveSheet.Unprotect Password:="Test"
Range("A34:CS34").Copy
Worksheets("Datenbank").Range("A4:CS4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Worksheets("Datenbank").Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove _
b>
Range("A34:CS35").Copy
Range("A35:CS36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2,B7:K10,A13:B17,C13:D17,E13:E17,F13:G17,H13:I17,J14:M17,A20:M28").ClearContents
ActiveSheet.Protect Password:="Test"
Worksheets("Datenbank").Protect Password:="Test"
End If
Exit Sub
End Sub
