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

Aus Range 2 nicht aufeinanderfolgende Spalten

Forumthread: Aus Range 2 nicht aufeinanderfolgende Spalten

Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 14:16:11
Samanta
Hallo folgendes Problem.
Mit diesem code ,bekomme ich von g bis z spalten
Range("G1:Z" & Sheets("Tabelle1")
jedoch will ich nur g und z also nicht g-z sonder G als eins und Z als eins
HILFEEE ?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 14:24:34
Torsten
Hallo,
Schau dir mal die Anweisung "UNION" an.
Gruss Torsten
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 14:59:23
Daniel
Hi
für ganze Spalten am einfachsten so:
Range("G:G,Z:Z")
wenn die Endzeile aus einer Zelle ausgelesen werden soll (Zelle A1 auf Tabelle1)
Intersect(Range("1:" &  Sheets("Tabelle1").Range("A1")), Range("G:G,Z:Z"))
Gruß Daniel
Anzeige
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 16:54:01
Samanta
Ich hab den Code jetzt umgeschrieben funktioniert nicht ..
Schau mal hier ..?
Sheets("Tabelle1").Union(Range("A1:A") & Sheets("Tabelle1").Cells(Rows.Count, 1), Range("F1:F" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).row)).Copy
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 16:56:58
Torsten
Hallo,
probier mal:
Sheets("Tabelle1").Union(Range("A1:A" & Sheets("Tabelle1").Cells(Rows.Count, 1).Row), Range("F1:F" & Sheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row)).Copy

Anzeige
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 17:03:03
Samanta
ne leider auch nicht .. hmm
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 17:15:36
Torsten
dann mach es so:
Dim a As Long, f As Long
a = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
f = Sheets("Sheet1").Cells(Rows.Count, 6).End(xlUp).Row
Union(Range("A1:A" & a), Range("F1:F" & f)).Copy
Allerdings muessen fuer den Copy Befehl die Ranges gleich gross sein, also a und f muessen den gleichen Wert haben. Meint, Start- und Endzeile in beiden Ranges muss die gleiche sein. Sonst Fehlermeldung.
Anzeige
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 17:18:41
Samanta
hmm funktioniert immernoch nicht .. oh mano
ja die sind beide gleich lang vom wert her ..
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 17:19:37
Torsten
also bei mir funktioniert das so
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 17:22:55
Werner
Hallo Samanta oder Annika,
warum hast du eigentlich zum gleichen Problem zwei verschiedene Beiträge am Laufen?
Worksheets("Tabelle1").Range("G:G,Z:Z").Copy Worksheets("Tabelle2").Range("A1")
Gruß Werner
Anzeige
AW: Aus Range 2 nicht aufeinanderfolgende Spalten
05.09.2019 17:27:51
Torsten
Achso,
Samanta ist Annika. HHHHMMMMM
anscheinend ja und weder die eine....
08.09.2019 14:55:19
Werner
Hallo Torsten,
...noch die andere scheint es für nötig zu halten auf Hilfe zu reagieren.
Schönen Sonntag noch.
Gruß Werner

Forumthreads zu verwandten Themen

Anzeige
Anzeige