AW: siehe 6 Threads tiefer. owT
23.10.2019 13:31:32
bassi
Vielen Dank für den Tipp,
lustig das ausgerechnet jetzt jemand dasselbe Problem hat :)
Und schlecht das ich vorher nicht selbst danach geschaut hab :(
Ich habe den Code übernommen, klappt natürlich so nicht.
Genau genommen klappt das garnicht - auch wenn ich die Konstellation vom Ersteller übernehme.
*grübel*
Was müsste ich denn hier umstellen, damit der Text "einfach nur" in der Zelle darunter weiter geführt wird?
So übergebe ich aus der Combobox in die Zelle:
(range"AY22")=combobox10.value
Gefunden hatte ich zuvor diesen Code hierfür. Jedoch schneidet dieser die Wörter ab.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle
Dim xZe
Dim xZeichen
Dim i
Dim myval
xZe = 0
Application.EnableEvents = False
If Intersect(Target, Range("AY22")) Is Nothing Then Application.EnableEvents = True: Exit _
Sub
If Range("AY23") > "" Then Application.EnableEvents = True: Exit Sub
For Each zelle In ActiveSheet.Range("A4")
myval = zelle.Value
If myval "" Then
For i = 1 To Len(myval)
xZeichen = xZeichen & Mid$(myval, i, 1)
If Len(xZeichen) = 52 Or Len(xZeichen) > 0 And Len(myval) = i Then
Cells(4 + xZe, 1).Value = xZeichen
xZeichen = ""
xZe = xZe + 1
End If
Next i
End If
xZe = 0
Next
Application.EnableEvents = True
End Sub
Besten Dank und viele Grüße
bassi