Office: (Office 2019) Werte ausschneiden und in anderer Mappe einfügen

Tim.Seidel · 17. Oktober 2020

Hallo zusammen,

ich möchte Werte aus einer Mappe ausschneiden und in eine andere Mappe einfügen. Die Werte stehen in Mappe 1 von A2:AW2 und sollen in Mappe 2 in die Spalte A eingefügt werden.
Ich habe mir auch schon ein Makro "gebastelt" aber irgendwie klappt es nicht!

Ich hoffe es kann mir jemand helfen. Vorab schon mal Danke.

Hier noch mein Marko:
Code:

Sub XLS_kopieren()

Dim wbTarget As Workbook
Dim wbSource As Workbook
Dim fd As FileDialog
Dim fileXLS As Variant
Dim lngLast As Long

Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set wbTarget = ThisWorkbook

With fd
.Title = "XLS-Datei suchen..."
.ButtonName = "Öffnen"
.AllowMultiSelect = False
.Filters.Add "XLS-Dateien", "*.xlsx", 1
.FilterIndex = 1
If .Show = -1 Then
For Each fileXLS In .SelectedItems
Set wbSource = Workbooks.Open(fileXLS)
lngLast = wbSource.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
wbSource.Sheets(1).Range("A2:AW2" & lngLast).Copy Destination:=wbTarget.Sheets(2).Range("A1").Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
wbSource.Close SaveChanges:=False
Next fileXLS
End If
End With

Call Spalten_loeschen

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Beverly · 18. Oktober 2020

Hi,

hier:

Code:

.... Destination:=wbTarget.Sheets(2).Range("A1").Selection.PasteSpecial
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist auf jeden Fall der rot markierte Teil zuviel.

Tim.Seidel · 19. Oktober 2020

Hi,

auch wenn ich den rot markierten Teil weg lasse funktioniert es nicht.

Beverly · 19. Oktober 2020

Hi,

du musst 2 Zeilen daraus machen wenn du PasteSpecial verwendest:

Code:

wbSource.Sheets(1).Range("A2:AW2" & lngLast).Copy
wbTarget.Sheets(2).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tim.Seidel · 21. Oktober 2020

Hi,

vielen Dank!
Jetzt funktioniert es.

Tim.Seidel · 26. Dezember 2020

Hallo,

ich hätte nochmal eine Frage zu dem Code.

Bei dem jetzigen Code werden die Werte so kopiert:

Code:

wbSource.Sheets(1).Range("A2:AW2").Copy
wbTarget.Sheets(7).Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
wbSource.Close SaveChanges:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt können aber mehrer Werte in Sheets(1) stehen, z.B. von A2:AW10 oder von A2:AW5.
Kann man das variabel machen sodass nur die Werte kopiert werden die auch wirklich vorhanden sind?
Dann sollen die Werte in Sheets(7) immer nach der letzten Zeile die mit Werten gefüllt ist eingefügt werden.

Kann mir da jemand helfen?

Danke im Voraus.

Beverly · 26. Dezember 2020

Hi,

ungetestet:

Code:

lngLast = wbSource.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
wbSource.Sheets(1).Range("A2:AW" & lngLast).Copy
lngLast = wbSource.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
wbTarget.Sheets(2).Cells(lngLast + 1, 1).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tim.Seidel · 27. Dezember 2020

Hallo Karin,

leider keine Funktion. Ich bekomme folgenden Fehler:

Laufzeitfehler '91:
Objektvariable oder With-Blockvariable nicht festgelegt

Und die folgende Zeile ist im Code gelb markiert:
Code:

lngLast = wbSource.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kannst du nochmal helfen?

Danke im Voraus.
Gruß Tim

Beverly · 27. Dezember 2020

Hi Tim,

diese Zeile habe ich nur aus deinem ursprünglichen Code vom 19.10.2020 10:48 übernommen.

Allerdings hat der Code noch einen Fehler, denn das zweitemal darf nicht Bezug auf wbSource.Sheets(1) sondern musst auf wbTarget.Sheets(2) genommen werden, da dies ja die Zieltabelle ist in die kopiert werden soll. Der Code muss also wie folgt aussehen:

Code:

lngLast = wbSource.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
wbSource.Sheets(1).Range("A2:AW" & lngLast).Copy
lngLast = wbTarget.Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
wbTarget.Sheets(2).Cells(lngLast + 1, 1).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tim.Seidel · 27. Dezember 2020

Hallo Karin,

vielen Dank!!!
Jetzt funktioniert es.*Smilie

Gruß Tim

Beverly · 27. Dezember 2020

Hi Tim,

setze den Thread bitte auf erledigt.

Office: (Office 2019) Werte ausschneiden und in anderer Mappe einfügen

Werte ausschneiden und in anderer Mappe einfügen

Werte ausschneiden und in anderer Mappe einfügen

Werte ausschneiden und in anderer Mappe einfügen

Werte ausschneiden und in anderer Mappe einfügen

Werte ausschneiden und in anderer Mappe einfügen - Similar Threads - Werte ausschneiden Mappe

Werte auslesen mit s(w)verweis

Dropdown Auswahl -> anderer Wert Speichern

Werte automatisch übernehmen

Wenn wert dann Schrägstrich

Wert in spalte suche, zeile ausschneiden und in anderes Blatt kopieren

Zeile ausschneiden/kopieren wenn Wert erreicht

Max Wert ermitteln Datenbereich ausschneiden