Daten per Makro übertragen
17.04.2021 15:37:37
Robert
Ich habe folgendes Makro
Sub AAMakrosLohn_Klicken()
Dim wbZiel As Workbook
Dim strDatei As String, strMonat As String, strRange As String
strDatei = Range("A1")
strMonat = Range("A2")
strRange = Range("A3")
Set wbZiel = Workbooks.Open(strDatei)
ThisWorkbook.Worksheets("Lohn aufbereitet").Range("AA2:AJ329").Copy
wbZiel.Worksheets(strMonat).Range(strRange).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Set wbZiel = Nothing
End Sub
in strMonat = Range("A2")(wird Monat dargestellt) wird generiert aus Datum und der _ Zellformatierung Benutzerdefiniert MMMM. Genau damit Funktioniert aber das übertragen nicht und es kommt als Fehlermeldung "Index Außerhalb des gültigen Bereiches". Dieser Teil des Codetextes wird dann gelb gekennzeichnet
wbZiel.Worksheets(strMonat).Range(strRange).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
In strRange = Range("A3") kommt die Zellbezeichnung wohin kopiert werden soll. Wird zwar auch durch Formel generiert klappt aber Problemlos. Zelle ist Standard formatiert.
NUN MEINE FRAGE WIE KANN ICH AUS DER ZELLE A2 DEN MONAT KOPIEREN IN EINE STANDARD FORMATIERTE ZELLE. Jetzt kommt immer die jeweilige Zahl beginnend von 1.1.1900.
Ich danke Euch im voraus
LG Robert