Option
Explicit
Sub
Gästeverteilen_Kopierenwenn()
Dim
variable
As
String
, i
As
Long
, z
As
Long
variable = [A1]
z = 4
Application.ScreenUpdating =
False
With
Sheets(variable)
For
i = 1
To
30
If
WorksheetFunction.CountIf(.Columns(5),
"Tisch "
& i) > 0
Then
.Range(
"A1"
).AutoFilter Field:=5, Criteria1:=
"Tisch "
& i
With
.AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Copy
Sheets(
"Tischverteilung"
).Range(
"A"
& z).PasteSpecial xlPasteValues
z = z + 11
End
With
Else
z = z + 11
End
If
Next
i
If
.AutoFilterMode
Then
.AutoFilterMode =
False
End
With
Application.CutCopyMode =
False
End
Sub