Dim
Spalte
As
Long
With
Ziel
Quelle.Range(
"P8:P107"
).Copy
Spalte = Quelle.Range(
"E2"
).Value
And
Quelle.Range(
"D3"
) = Tabelle15.Name
If
Spalte < 13
And
Spalte > 0
Then
.Cells(4, Spalte + 2).PasteSpecial Paste:=xlValues
Quelle.Range(
"P8:P107"
).Copy
Spalte = Quelle.Range(
"E2"
).Value
And
Quelle.Range(
"D3"
) = Tabelle16.Name
If
Spalte < 13
And
Spalte > 0
Then
.Cells(4, Spalte + 18).PasteSpecial Paste:=xlValues
Quelle.Range(
"P8:P107"
).Copy
Spalte = Quelle.Range(
"E2"
).Value
And
Quelle.Range(
"D3"
) = Tabelle17.Name
If
Spalte < 13
And
Spalte > 0
Then
.Cells(4, Spalte + 34).PasteSpecial Paste:=xlValues
End
With