Spalten in Zeilen
16.09.2003 15:49:26
Robert
Sub Übernahme_Arbeitsplan()
Dim lgRowZiel As Long
Dim lgRowQuelle As Long
lgRowZiel = 12
Sheets("Arbeitsplan").Select
For lgRowQuelle = 4 To Range("H65536").End(xlUp).Row Step 36
If Cells(lgRowQuelle, 8) <> "" Then
Sheets("Auswertung").Cells(lgRowZiel, 1) = Cells(lgRowQuelle, 8)
lgRowZiel = lgRowZiel + 1
End If
Next
End Sub
Nun möchte ich die Werte aber nicht nacheinander in einer Spalte, sondern nebeneinander in einer Zeile übernehmen.
Wer kann bei der Anpassung helfen ???
Anzeige