Hi,
was mache ich denn in dem Code falsch ? Wenn ich den Code starte, dann werden die Daten in B31 eingetragen. Dann sollte die Prüfung statt finden, ob in der Textbox3 der Wert grösser als 3 ist, wenn ja, soll er auf 3 Zeilen gekürzt werden:
For Each C In Range("B31")
TextBox11.Value = C.Value
Next
If TextBox3 GRÖSSER 3 Then
Dim var, tempvar, i As Long
var = Split(Cells(1, 1), Chr(10)) 'A1 splitten
tempvar = Trim$(var(0))
For i = 1 To UBound(var)
If i = 3 Then tempvar = tempvar & "...": Exit For
tempvar = tempvar & Chr(10) & Trim$(var(i))
Next
var = tempvar
Cells(2, 1) = var 'Ausgabe in A2
Debug.Print var 'Ausgabe im Direktfenster
End If
:
:
weiterer Code
:
Irgend wie komme ich da in eine Schleife, weil der Code die ganze Zeit nur immer daten in B31 rein schreibt, wie in einer Schleife , er schreibt und überschreibt und überschreibt....... und geht nicht mehr weiter.
Woran liegt denn das ?
Danke mal Joachim