With
Tabelle1
Set
rngbereich = .Rows(2)
lngzeilemax = Worksheets(
"Tabelle1"
).Range(
"A"
& Rows.Count).
End
(xlUp).Row
For
lngzeile = 2
To
lngzeilemax
If
.Cells(lngzeile, 1).Value = (
Me
.cmb_kontinent)
And
.Cells(lngzeile, 3).Value = (
Me
.cmb_Jahr)
Then
Set
rngbereich = Union(rngbereich, .Rows(lngzeile))
End
If
Next
lngzeile
rngbereich.Columns(
"B"
).Copy Destination:=Tabelle2.Range(
"A4"
)
rngbereich.Columns(
"E"
).Copy Destination:=Tabelle2.Range(
"B4"
)
rngbereich.Columns(
"F"
).Copy Destination:=Tabelle2.Range(
"C4"
)
rngbereich.Columns(
"G"
).Copy Destination:=Tabelle2.Range(
"D4"
)
End
With
End
Sub