Transponieren
22.08.2002 17:39:03
Jens
Ich verwende folgenden Code zum speichern von Werten aus einem Formular. Das funktioniert auch so. Nun möchte ich aber das beim Aufruf des Codes die Werte immer in die erste leere Spalte geschrieben werden und nicht in die erste leere Zelle in Spalte 1.
Sub Transponieren()
Application.ScreenUpdating = False
Dim i As Integer
Dim x As Integer
Dim str As String
For x = 1 To Sheets(1).UsedRange.Rows.Count
For i = 1 To Sheets(1).UsedRange.Columns.Count
str = Sheets(1).Cells(x, i)
Sheets(2).Cells(Rows.Count).End(xlUp). _
Offset(1, 0).Value = str
Next i
Next x
Sheets(2).Rows(1).Delete
Application.ScreenUpdating = True
End Sub
Danke für eure Hilfe Jens