Hallo K.Rola? Von Zeile in Spalte!
03.01.2004 08:27:43
Andre
Hallo K.Rola,
danke noch mal für deine Hilfe, aber die Probleme enden einfach nicht! Dein folgender Code funktioniert fantastisch, aber ich brauche ihn auch umgekehrt und einfach die entsprechende Zeile umzukehren scheint nicht hinzuhauen!
Könntest du mir noch einmal helfen?
Public
Sub t()
Dim WS As Worksheet
Dim iZeile As Long
Dim Zeile As Long, Spalte As Integer, s As Integer
Dim arr
Set WS = Worksheets("Tabelle1")
With UserForm1.Spreadsheet1.ActiveSheet
For iZeile = 1 To 38
Zeile = WorksheetFunction.RoundUp(iZeile / 38, 0) + 1
Spalte = ((iZeile * 6) + 21) - ((Zeile * 228) - 456)
For s = 1 To 6
WS.Cells(Zeile, Spalte + s) = .Cells(iZeile, s)
Next
Next iZeile
End With
End Sub
Also ich muß jetzt wieder von der Zeile in die Spalte.
Vielen Dank schon mal.
Gruß Andre