Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1616to1620
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

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

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
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige