Hallo zusammen,
ich bin schon wie blöde am probieren.
Wie schaffe ich es, dass ich Daten von einem Formular, dessen Dateiname sich natürlich ständig ändert (ist ein Anmeldeformular und wird immer auch durch einen makro unter einem bestimmten namen an einem bestimmten ort gespeichert) in die dazugehörige Liste an Anmeldungen kopieren kann. Ich hab es schon, dank des recorders, für ein Formular geschafft, auch die letzte Zeile finden usw., aber wie mache ich diesen Code für alle Formulare aus diesem Ordner gültig? Ich dachte mit MsgBox AktiveWorkbook.Name oder MsgBox ThisWorkbook.Name, ist ja eigentlich doppelt gemoppelt ist es erledigt. Dann habe ich den Code in einer Persönlichen Makroarbeitsmappe oder wie das heißt gespeichert. Aber jetzt erkennt der Code AktiveWorkbook.Name nicht mehr das Anmeldeformular, sondern die im verborgenen geöffnete Arbeitsmappe von diesem Persönlichen Dings.
Ich hoffe, es ist deutlich geworden was ich gerne hätte. Meine stundenlange googelei hat leider nichts gebracht. Aber mir wurde hier schon mal so toll geholfen.
LG,
Sub Anmeldungen()
'
' Anmeldungen Makro
'
' Tastenkombination: Strg+d
'
MsgBox AktiveWorkbook.Name
MsgBox ThisWorkbook.Name
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Anmeldungen,aktuell.xlsm").Activate
Cells(65000, 6).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows(ThisWorkbook.Name).Activate
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Anmeldungen,aktuell.xlsm").Activate
Cells(65000, 5).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows(ThisWorkbook.Name).Activate
End Sub
|