Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenbereich in andere Mappe kopieren

Tabellenbereich in andere Mappe kopieren
18.06.2021 10: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

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenbereich in andere Mappe kopieren
18.06.2021 10: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 13:05:33
Sebastian
Hallo Karin,
danke das hat gefunzt.
Danke
AW: Tabellenbereich in andere Mappe kopieren
18.06.2021 10: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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige