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

Forumthread: mehrere Spalten kopieren

mehrere Spalten kopieren
12.04.2018 07:46:23
Tippi
Guten Morgen Zusammen
Ich möchte aus einer Tabelle1 Daten kopieren und zwar aus Spalte A Spalte B und Spalte F und G aus Spalte A soll bis zur letzten beschriebenen Zeile alles kopiert werden.
Eingefügt wird in Tabelle2 In Spalte A,B,F und G
Danke für eure Hilfe
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Spalten kopieren
12.04.2018 08:07:40
Martin
Hallo Tippi,
ich habe deine Aufgabenstellung nicht ganz erfüllt und die gesamten Spalten kopiert:
Sub CopyColumns()
With Sheets("Tabelle1")
.Columns("A:A").Copy (Sheets("Tabelle2").Columns("A:A"))
.Columns("B:B").Copy (Sheets("Tabelle2").Columns("B:B"))
.Columns("F:F").Copy (Sheets("Tabelle2").Columns("F:F"))
.Columns("G:G").Copy (Sheets("Tabelle2").Columns("G:G"))
End With
End Sub
Viele Grüße
Martin
Anzeige
AW: mehrere Spalten kopieren
12.04.2018 08:32:36
Tippi
Hallo Martin
Das hilft mir erstmal nicht weiter
aber trotzdem Danke für deine Antwort
AW: mehrere Spalten kopieren
12.04.2018 08:49:15
Martin
Hallo Tippi,
nun ist deine Aufgabenstellung aber zu 100 Prozent erfüllt:
Sub CopyColumns()
Dim lngLastRow As Long
Dim rngCopy As Range
With Sheets("Tabelle1")
lngLastRow = .Range("A1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 1), .Cells(lngLastRow, 1))
rngCopy.Copy (Sheets("Tabelle2").Range("A1"))
lngLastRow = .Range("B1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 2), .Cells(lngLastRow, 2))
rngCopy.Copy (Sheets("Tabelle2").Range("B1"))
lngLastRow = .Range("F1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 6), .Cells(lngLastRow, 6))
rngCopy.Copy (Sheets("Tabelle2").Range("F1"))
lngLastRow = .Range("G1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 7), .Cells(lngLastRow, 7))
rngCopy.Copy (Sheets("Tabelle2").Range("G1"))
End With
End Sub
Viele Grüße
Martin
Anzeige
AW: mehrere Spalten kopieren
12.04.2018 09:26:21
Tippi
Supi Martin läuft super DANKE und ein schönen Tag noch

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige