Stoppen automatischer Zeilumbrüche
08.08.2021 19:00:03
Nick
Ich hoffe sehr, dass Ihr mir helfen könnt..
Ich habe eine Userform erstellt, wobei ich durch mehrere Comboboxen Projektnamen aussuchen und daneben (TextBox) die entsprechende Nummer eintragen kann. Diese wird mir für die 'heutige Zelle' eingetragen.
Nun kommt es ab und zu vor, dass ich ein Projektnamen zwei mal auswählen muss, mit zwei unterschiedlichen Nummern. Ich bin bis jetzt soweit gekommen, dass wenn ich ein Projekt mit zwei unterschiedlichen Nummer eintrage, diese Nummern durch ein Zeilenumbruch in der Zelle von einander getrennt werden.
Das Problem hierbei ist: Auch wenn ich nur eine! Nummer eintrage, gibt die Zelle mir die Nummer MIT mehreren Zeilenumbrüchen (5 weil ich 5 Comboboxen in der Userform habe). Wenn ich zwei Nummern eintrage werden immer noch mehrere Zeilenumbrüche angezeigt.
Also so: 'Ich gebe nur eine Zahl an
= 1
Ende.
Was ich also haben möchte ist:
- Wenn ich eine Nummer eintrage sollte kein Zeilenumbruch entstehen = 1
- wenn ich zwei Nummern eintrage sollte ein Zeilenumbruch entstehen =
1
1
- wenn ich drei Nummern eintrage sollten zwei Zeilenumbrüche entstehen =
1
1
1
usw.
Mein Code: (Kontierung = Nummer welche ich eintrage)
If Cells(ifound, jfound).Value = "" Then
ActiveSheet.Cells(ifound, jfound).Value = Me.Kontierung1.Value
Else
ActiveSheet.Cells(ifound, jfound).Value = Me.Kontierung1.Value & vbLf & Me.Kontierung2.Value _
& vbLf & Me.Kontierung3.Value & vbLf & Me.Kontierung4.Value & vbLf & Me.Kontierung5.Value
Liebe Grüße!