ich versuche seit Tagen ein Problem zu lösen und komme einfach nicht weiter. Ich bin absoluter Neuling und beschäftige mich erst seit 3 Wochen mit VBA.
Ich hoffe mir kann jemand hier helfen.
Ich habe ein Formulare zur Anforderung von Arbeitshandschuhen.
1. Dieses wird nach dem ausfüllen mittels VBA Button in eine PDF umgewandelt
2. und als E-Mail versendet.
3. Die PDF wird im Server gepeichert.
4. Die Zellen nach dem absenden automatisch geleert.
5. Nun sollen die Daten mit dem gleichen Button in eine andere geschlossene Arbeitsmappe kopiert werden. Damit man den Verbrauch der jeweiligen Abteilungen auswerten kann.
Wie bekomme ich es hin das die Daten immer in die nächste leere Zelle einer bestimmten Spalte kopiert wird?
Mein VBA Code zu Punkt 5. lautet:
Workbooks.Open "M:\00_ServerNeu\Produktionslogistik\Test Ziel1.xlsm"
Windows("Test Handschuhe_Halle 2.xlsm").Activate
Range("A11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Dim ErstefreieZelle As Long
ErstefreieZelle = Range("A1").End(x1Down).Row + 1
Range("A" & ErstefreieZelle).Select
Windows("Test_Handschuhe_Halle 2.xlsm").Activate
Range("A7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Dim ErstefreieZelle As Long
ErstefreieZelle = Range("B1").End(x1Down).Row + 1
Range("B" & ErstefreieZelle).Select
Windows("Test_Handschuhe_Halle 2.xlsm").Activate
Range("B27").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Dim ErstefreieZelle As Long
ErstefreieZelle = Range("C1").End(x1Down).Row + 1
Range("C" & ErstefreieZelle).Select
Windows("Test_Handschuhe_Halle 2.xlsm").Activate
Range("B26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Test Ziel1.xlsm").Activate
Dim ErstefreieZelle As Long
ErstefreieZelle = Range("D1").End(x1Down).Row + 1
Range("D" & ErstefreieZelle).Select
Ich bekomme immer die Fehlermeldung:
Fehler beim Komplementieren
Mehrfachdeklaration im aktuellen Gültigkeitsbereich.
Und
ErstefreieZelle As Long
wird blau angezeigt.