Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
Hallo zusammen,
ist wahrscheinlich ganz einfach, aber ich komme einfach nicht dahinter, deswegen brauche ich wieder mal eure Hilfe! :)
Dim KdNa as string
KdNa = Cells(1, 7).Value
KdNa = Left(KdNa, InStr(KdNa, " ") - 1)
Msgbox Kdna
In G1 steht zum Beispiel: "Ich will nicht"
Wenn ich den Code laufen lassen, dann spuckt er mir "Ich" aus. Wenn aber in G1 nur "Ich" drin steht, dann kommt es zum Fehler im Code, da kein Leerzeichen gefunden wird?
Die Frage ist, wie kann ich das abfangen, wenn eben in einer Zelle eben nur ein Wert steht, dass mir dieser trotzdem angezeigt wird?
Vielen Dank im Voraus
LG, Alexandra
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hi,
z.B.:
KdNa = Cells(1, 7).Value & " "
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 29.09.2015
Version(en): 2030,5
Code:
Sub M_snb()
msgbox split(Cells(1, 7))(0)
End Sub
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
10.04.2024, 09:20
(Dieser Beitrag wurde zuletzt bearbeitet: 10.04.2024, 09:21 von cysu11.)
Hallo Edgar und snb,
funktionieren beide, habe mich für die Lösung von snb entschieden, scheint da "sauberer" in meinen Augen! :)
Herzlichen Dank Euch Beide! :)
LG aus Nürnberg
Alexandra
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
mal noch ein Hinweis - auch wenn ich den Vorschlag von snb nutzen würde
Man kann natürlich auch prüfen, ob der INSTR 0 ergibt und wenn ja, alles übernehmen
![Smile Smile](https://www.clever-excel-forum.de/images/smilies/smile.gif)
Darüber hinaus könnte man das dann mit IIf auswerten, im Prinzip
IIf InStr(KdNa, " ")=0,KdNa,Left(KdNa, InStr(KdNa, " ") - 1))
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
Hallo Andre,
das ist auch eine gute Idee, allerdings, wie du auch schon geschrieben hast, die Lösung von snb wird bevorzugt! :)
Herzlichen Dank & LG
Alexandra
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
12.04.2024, 11:54
(Dieser Beitrag wurde zuletzt bearbeitet: 12.04.2024, 11:54 von LCohen.)
Als Formel: =TEXTVOR(A1&" ";" ") funktioniert auch bei Leerzelle (da dürfte Split möglicherweise einen Fehler zurückgeben)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
12.04.2024, 13:54
(Dieser Beitrag wurde zuletzt bearbeitet: 12.04.2024, 13:55 von Kuwer.)
Das geht auch in VBA, wie Egar auch schon schrieb:
Code:
Sub M_Kuwer()
MsgBox Split(Cells(1, 7).Value & " ")(0)
End Sub