|
Hallo Sabrina,
dann schreibe für ... .Offset(0,1) ... dieses ... .Offset(0,i). ...
Offset( Zeile, Spalte) geht von einer festen Position entsprechend viele Zeilen und Spalten weiter
d. h. ich habe als letze Position z. B. "B:3" (3. Zeile, 2. Spalte) ein Offset von (0, 2) hat dann (3. Zeile, 4. Spalte)
Du kannst jetzt mit dem i der FOR-Schleife deinen Offset ändern ( hier aber nur 1 und 2), ich denke das muß auch noch geändert werden
For i = 1 To 2
Sheets("Allokation").Select
Range("$B$1", "$F$35").Select
Selection.Copy
Sheets("Drop").Cells(Rows.Count, 1).End(xlUp).Offset(0, i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next i
Gruß Detlev
|