Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Tabellenbereich in andere Mappe kopieren

Forumthread: Tabellenbereich in andere Mappe kopieren

Tabellenbereich in andere Mappe kopieren
18.06.2021 12:40:00
Sebastian
Hallo VBA Götter :),
ich möchte einen Bestimmten Teil einer Tabelle kopieren und in einer anderen Arbeitsmappe in der nächsten leeren Zeile Einfügen.
Leider komm ich beim Einfügen mit der leeren Zeile nicht zurecht. Bitte um Hilfe. Danke schon mal
Anbei meine bisherigen Versuche

Private Sub Abschluss_OK_Click()
Dim freieZeile As Long
Dim letzteZeile As Long
letzteZeile = Steuerung.UsedRange.Rows.Count
Steuerung.Range("A4:T" & letzteZeile).Copy
Sheets("Tabelle1").Select
freieZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZeileFrei, 1).Paste
End Sub
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenbereich in andere Mappe kopieren
18.06.2021 12:45:10
Beverly
Hi Sebastian,
vielleicht so (ungetestet):

Private Sub Abschluss_OK_Click()
Dim freieZeile As Long
Dim letzteZeile As Long
letzteZeile = Steuerung.UsedRange.Rows.Count
With Sheets("Tabelle1")
freieZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Steuerung.Range("A4:T" & letzteZeile).Copy .Cells(freieZeile, 1)
End With
End Sub

GrußformelBeverly's Excel - Inn
Anzeige
AW: Tabellenbereich in andere Mappe kopieren
18.06.2021 15:05:33
Sebastian
Hallo Karin,
danke das hat gefunzt.
Danke
AW: Tabellenbereich in andere Mappe kopieren
18.06.2021 12:46:06
EtoPHG
Hallo Sebastian,
Ersetze

Sheets("Tabelle1").Select
freieZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZeileFrei, 1).Paste
durch

With Sheets("Tabelle1")
.Cells(.rows.count,1).End(xlUp).Offset(1).Paste
End With
Gruess Hansueli
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige