Re: Zellen verbinden und Zeilenumbruch
15.11.2002 13:09:47
Jens
erst einmal Danke für eure Mühen
das Makro funktioniert als alleiniges bei mir auch nur in verbindung mit anderen Codes kommt Fehlermeldung " Die WrapText-Eigenschaft des Objektes kann nicht festgelegt werden".
Das nachfolgende Makro kopiert alle Werte aus der Textbox und fügt sie in TB in Zelle"C2" ein. Die Zelle C2 ist dabei als verbundene Zelle formatiert(C2:F2).Da das Makro an sich nicht in verbundene Zelle einfügt wollte ich mit dem Makro Zellen_verbinden und Zellen_verbinden_aufheben die umgehen aber es funktioniert so leider nicht.Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Zellen_verbinden_aufheben
Worksheets("Kalkulation").Range("C2").ClearContents
Dim I As Integer
Dim Wert As String
On Error Resume Next
For I = 0 To ListBox1.ListCount
Wert = Wert & "* " & ListBox1.List(I, 1) & Chr(10)
Next I
Range("C2") = Mid(Wert, 1, Len(Wert) - 1)
Zellen_verbinden
Application.ScreenUpdating = True
End Sub
Gruß Jens