|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Markierten Bereich kopieren und in freie Zeile einfügen |
07.07.2017 11:14:33 |
Tobi |
|
|
|
07.07.2017 15:14:59 |
Mackie |
|
|
|
07.07.2017 17:16:30 |
Gast46144 |
|
|
|
17.07.2017 09:41:06 |
Tobi |
|
|
|
18.07.2017 10:23:53 |
Tobi |
|
|
Von:
Tobi |
Datum:
07.07.2017 11:14:33 |
Views:
2337 |
Rating:
|
Antwort:
|
Thema:
Markierten Bereich kopieren und in freie Zeile einfügen |
|
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Markierten Bereich kopieren und in freie Zeile einfügen |
07.07.2017 11:14:33 |
Tobi |
|
|
|
07.07.2017 15:14:59 |
Mackie |
|
|
|
07.07.2017 17:16:30 |
Gast46144 |
|
|
|
17.07.2017 09:41:06 |
Tobi |
|
|
|
18.07.2017 10:23:53 |
Tobi |
|
|