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 ?
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ß DanielSheets("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
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.Worksheets("Tabelle1").Range("G:G,Z:Z").Copy Worksheets("Tabelle2").Range("A1")
Gruß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen