Script in Excel

Hallo Zusammen
Ich brauche ein Script im Excel. Das Script soll folgendes können:

Wenn ich eine Spalte markiere und das Script starte, will ich die Daten welche ich markiert habe, nicht mehr Vertikal auf einer Spalte sondern Horizontal auf einer Zeile haben.

Kann mir jemand helfen??

Gruss Nilo

Hallo

Ich habe selber ein Script geschribe, ich Poste es mal.



Sub START()

Dim InhaltArr(255) As String
x = 0

For Each Cell In Selection
InhaltArr(x) = Cell.Value
Cell.Value = ""
x = x + 1
If x = 256 Then
MsgBox "In einer Zeile haben nur 256 Einträge Platz"
x = 255
Exit For
End If
Next Cell

For i = 0 To x
Cells(1, i + 1) = InhaltArr(i)
Next i

End Sub





Gruss Nilo

Hio,

(auch wenn du das Script schon hast) wenn ich dich richtig verstanden habe, sollte das einfach über Bearbeiten | Inhalte einfügen | Transponieren funktionieren.