|
Hallo VBA-Tüftler,
VBA ist für mich relativ neu, deshalb habe ich natürlich mit einigen Problemchen zu kämpfen :)
Ich habe 2 Excel Dateien geöffnet. Nun möchte ich von Datei-1 einen Bereich markieren und dann das Makro starten. Das Makro soll den markierten Bereich kopieren und in die 2. Datei an der nächsten freien Zeile einfügen (es handelt sich dabei um Werte, kein Text). Ich habe selbst schon etwas getüftelt und habe folgenden Code geschrieben (Datei-Bezeichnungen können ignoriert werden ^^) :
Sub CopyPasteZellen()
Application.ScreenUpdating = False
'Bildschirm-Update wird ausgeblendet'
Dim zelle As Range
'Zellbereich definieren'
For Each zelle In Selection
'Für jede ausgewählte Zelle'
Selection.Copy
'Kopieren von ausgewähltem Bereich'
Windows("Arbeitsstunden.xlsx").Activate
'Zu Datei Arbeitsstunden springen'
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
'Erste freie Zeile auswählen'
ActiveSheet.Paste
'= aktives Blatt (mit Formeln)einfügen'
Next zelle
'Nächste Zelle selber Schritt'
Windows("VBA.xlsm").Activate
'In diese Datei zurück springen'
Application.ScreenUpdating = True
'Bildschirm-Update wird eingeblendet'
End Sub
'Dateinamen ändern im Code'
'Selection.PasteSpecial Paste:=xlPasteValues kopiert nur Text ohne Formeln'
Das Makro kopiert zwar meinen markierten Bereich und fügt ihn auch in die andere Excel an der nächsten freien Zeile ein, jedoch wiederholt sich der Vorgang mehrere Male, sodass der markierte Bereich gleich 5-6 mal untereinander eingefügt wird....
Würde mich über jede Hilfe freuen :)
LG
Euer VBA-Neuling |