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