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

mit VBA ein Spalte kopieren

Forumthread: mit VBA ein Spalte kopieren

mit VBA ein Spalte kopieren
18.04.2026 11:48:00
Opalu
Hey Profis,

Wie kann ich mit VBA eine Spalte in eine andere Datei nach der letzten gefüllten Spalte kopieren ??

Jetzt schon Dank
Gruss Opalu
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA ein Spalte kopieren
18.04.2026 12:18:27
RPP63
Moin!
Ein wenig dünn, die Infos.
Eine Datei (Workbook) hat keine Spalten, sondern ein bestimmtes Tabellenblatt eines Workbooks.
Wenn dieses Workbook geöffnet ist, bspw. so: 
ThisWorkbook.Tabelle1.Columns(3).Copy _

   Workbooks("xyz.xlsx").Tabelle3.Range("XFD1").End(xlToLeft).Offset(, 1)

Gruß Ralf
Anzeige
AW: mit VBA ein Spalte kopieren
18.04.2026 16:58:36
Opalu
Danke Ralf
klappt bestens.
Gruss Opalu
AW: mit VBA ein Spalte kopieren
18.04.2026 15:33:44
GerdL
Moin,
da sin mer dabei. :-) 
Sub Unit()



Dim Quelle As Range, Ziel As Range



Set Quelle = Tabelle1.Columns("C")

Set Ziel = Workbooks(2).Worksheets("Tabelle1").Cells(1, "XFD").End(xlToLeft).Offset(0, 1)

Call Quelle.Copy(Destination:=Ziel)



End Sub

Gruß Gerd
Anzeige
AW: mit VBA ein Spalte kopieren
20.04.2026 20:06:00
snb 
Sub M_snb()

   workbooks(3).Sheet1.Rows(1).Find("").EntireColumn = Sheet1.Columns(2).Value

End Sub
AW: mit VBA ein Spalte kopieren
20.04.2026 20:41:59
daniel
Hi
der richtige Weg, die erste freie Spalte zu finden, hängt ein bisschen davon ab, ob man sicher sein kann, dass es eine Zeile gibt, die über den Datenbereich vollständig mit Werten gefüllt ist.
In der Regel ist das die Zeile 1 mit der Überschrift, für diese Annahme sollten die meisten Antworten passen.
und es wäre noch zu klären, ob es ggf rechts der Daten noch Formeln gibt, die aber "" als Wert ausgeben und die ggf überschrieben werden sollen.

ein Code, der die neue Spalte neben der letzten Spalte mit angezeigtem Wert einfügt wäre das hier., hierbei darf dieser Wert in irgendeiner Zeile stehen 
Workbooks(???).Sheets(???).Columns(?).copy

Workbooks(???).Sheets(???).Cells.Find("?*", lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious, searchorder:=xlByColumns).Offset(0, 1).EntireColumn.PasteSpecial xlPasteAll

Gruß Daniel
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum