Excel 2007 VBA: Immer 5 Spaltenköpfe mit gleicher Beschriftung aus Liste ausfüllen

15/04/2009 - 15:12 von stefan schneider | Report spam
Hallo,

ich habe auf Blatt "Daten" 250 Spalten.
Bei jeweils 5 Spalten sollen jeweils die 1. Zeilen mit einem Begriff aus
Blatt "Liste" ausgefüllt werden. Dann die nàchsten 5 Spalten in der 1.
Zeile mit dem 2. Begriff aus Blatt "Liste" usw.
Die Begriffe sind in "Liste" A1:A50 angeordnet.

Kann mir jemand sagen wie das geht?

Danke schon mal

stefan
 

Lesen sie die antworten

#1 Thomas Kühn
15/04/2009 - 16:00 | Warnen spam
Hallo Stefan

ich habe auf Blatt "Daten" 250 Spalten.
Bei jeweils 5 Spalten sollen jeweils die 1. Zeilen mit einem Begriff aus
 Blatt "Liste" ausgefüllt werden. Dann die nàchsten 5 Spalten in der 1.
Zeile mit dem 2. Begriff aus Blatt "Liste" usw.
Die Begriffe sind in "Liste" A1:A50 angeordnet.



Sub Überschriften()
Dim i As Integer
Dim j As Integer
For i=1 to 50
For j=1 to 5
Sheets("Daten").Cells(1, 5 * (i - 1) + j) = Sheets("Liste").Cells
(i, 1)
Next j
Next i

End Sub

Ähnliche fragen