Zeilenumbruch in zelle
18.11.2005 09:02:20
jürg
hab da mal en code bekommen nun möcht ich den erweitern können, so dass man die anzahl zeilen in einem eingafeld eingeben kann, kann mir jemand diesen so anpassen?
Sub CommandButton0_Click()
Dim ziel As Range
Set ziel = Application.InputBox("Welche Zelle möchten Sie auswählen?", Type:=8)
With ziel
.WrapText = True
'.Value = "Zeile 1" & Chr(10) & "Zeile 2"
.Value = "Zeile 1" & Chr(10) & "Zeile 2" & Chr(10) & "Zeile 3" & Chr(10) & "Zeile 4" '& Chr(10) & "Zeile 5" & Chr(10)
End With
End Sub
besten dank!
mit Gruss
jürg