VBA wenn Wert mit ", " beginnt, lösche erste 2 Zeichen

[Phaona]

Hallo Leute,

ich habe eine Userform mit 4 ListBoxen und (u.a.) einem "weiterButton"
Die Auswahl von ListBox1 wird in eine benannte Zelle ausgegeben (in diesem Fall "Boden", gelb markiert), ListBox2 in Boden.Offset(0,1), ListBox3 in Offset(0,2) und ListBox4 in Offset(0,3).
Der weiterButton fasst die Werte (sofern vorhanden, manchmal wird nichts aus einer Liste ausgewählt) in "Boden" zusammen.
Das klappt auch soweit - nur, wenn aus ListBox1 nichts ausgewählt wurde, mein Wert in "Boden" mit einem ", " beginnt und das will ich nicht ^^

Hat jemand eine Idee, wie ich das lösen kann? Ich steh scheinbar ziemlich auf der Leitung..

[Ralf A]

Hi,

für das Abschneiden von 2 Zeichen muss die Datei nicht hochgeladen werden... ;)
Das ginge z. Bsp. so:

Code:

strK = ", Text"
If Left(strK, 2) = ", " Then strK = Mid(strK, 2)

[Phaona]

Hallo Ralf, 

Datei hochladen kann nie schaden ;) Speziell, wenn man einen leicht begriffstutzigen Tag hat ^^

mit strK hat es nicht geklappt, habs einfach mit Range("Boden").Value ersetzt und aus dem letzten 2er eine 3 gemacht und jetzt klappt es, wie ich es mir vorgestellt hab!

Bei mir steht also jetzt nur diese Zeile drinn:

If Left(Range("Boden").Value, 2) = ", " Then Range("Boden").Value = Mid(Range("Boden").Value, 3)

Danke!

[Phaona]

Hallo Ralf,

es ist mir zwar erst jetzt aufgefallen, bin aber ehrlich verwirrt ^^
Wieso funktioniert die Code-Zeile ohne End If?

Danke :)

[Elex]

Hi

Verwenden von If...Then...Else-Anweisungen (VBA) | Microsoft Docs

Gruß Elex

[Jeanie]

Kle

Kleine Frage:
Was ist der Unterschied von Left Und Left$ oder Mid und Mid$ etc...

Und warum ist Left$ besser - in der Regel?