Hallo,
ich stehe nun wieder vor einem Problem .....
Durch Hilfe hier aus dem Supportnet hab ich ein tolles Makro, dass ich für eine weitere Auswertungen (in einer anderen Tabelle) nutzen möchte.
Das Problem ist, dass nun unterschiedliche, nicht zusammenhängende, Bereiche angesprochen werden müssen, doch wie ???
Der Original-Code sieht folgendermassen aus:
With Workbooks(Datei).Sheets(1)
.Range("B10:H" & lngLastRow).Copy ActiveSheet.Cells(lngFirstRow, 5) 'DIESE ZEILE !! !!
ActiveSheet.Range("A" & lngFirstRow & ":A" & lngCopyRow) = .Range("C3")
ActiveSheet.Range("B" & lngFirstRow & ":B" & lngCopyRow) = .Range("C4")
ActiveSheet.Range("C" & lngFirstRow & ":C" & lngCopyRow) = .Range("C5")
ActiveSheet.Range("D" & lngFirstRow & ":D" & lngCopyRow) = .Range("C6")
End With
Ich habe diverse Varianten probiert .. doch leider ohne Erfolg.
Laut
Google sollte bei Range mit unterschiedlichen Bereichen
Union eingesetzt werden?
Mein Versuch ist folgender:
Dim BehBereichGES As Range
Dim BehBereich1 As Range
Dim BehBereich2 As Range
Dim BehBereich3 As Range
.........
With Workbooks(Datei).Sheets(1)
Set BehBereich1 = Range("B10:E" & lngLastRow)
Set BehBereich2 = Range("L10" & lngLastRow)
Set BehBereich3 = Range("G10:H" & lngLastRow)
Set BehBereichGES = Union(BehBereich1, BehBereich2, BehBereich3)
BehBereichGES.Select
'Und wie bekomme ich dann den Bereich kopiert ????
...
End With
Die Bereiche von denen ich gesprochen habe sind folgende:
B10:E in E:H
L10 in F
G:H in J:K
Ich hoffe nochmals auf Hilfe ..
Viele Grüße - Petra