hallo alle!
wie kann ich korrekt beide befehle in einen längeren text einfügen, (hier: in einer msgbox)
es grüßt euch alle
nikodemo
dear joey,
danke für deinen hinweis, funktioniert aber bei mir (in vba) nicht.
fehlermeldung: syntxfehler.
trotzdem danke
nikodemo
ps. in „syntaxfehler“ , s.o, fehlt ein „a“, sorry
Hallo Niko,
danke für deinen hinweis, funktioniert aber bei mir (in vba)
nicht.
da wäre der genaue Code mit dem du es getestet hast hilfreich.
MsgBox ist sehr tolerant mit CR und LF:
Sub Test()
Call tt1
Call tt2
Call tt3
Call tt4
End Sub
’
Sub tt1()
MsgBox „Zeile1“ & Chr(13) & „Zeile2“ & Chr(13) & „Zeile3“
End Sub
’
Sub tt2()
MsgBox „Zeile1“ & Chr(10) & „Zeile2“ & Chr(10) & „Zeile3“
End Sub
’
Sub tt3()
MsgBox „Zeile1“ & Chr(10) & Chr(13) & „Zeile2“ & Chr(10) & Chr(13) & „Zeile3“
End Sub
’
Sub tt4()
MsgBox „Zeile1“ & Chr(13) & Chr(10) & „Zeile2“ & Chr(13) & Chr(10) & „Zeile3“
End Sub
Gruß
Reinhard
danke, reinhard,
schaut gut aus, dein code.
aber für heute geb ichs auf:
jetzt meckert der compiler schon bei **„Chr“**:
projekt oder bibliothek nicht gefunden.
mach nix anders als
MsgBox „Zeile1“ & Chr(10) & „Zeile2“ & Chr(10) & „Zeile3“
was is los?
es grüßt dich nikodemo
Hallo Niko,
schaut gut aus, dein code.
ist getestet, XL2000.
jetzt meckert der compiler schon bei **„Chr“**:
projekt oder bibliothek nicht gefunden.mach nix anders als
MsgBox „Zeile1“ & Chr(10) & „Zeile2“ & Chr(10) & „Zeile3“
Ich hatte das noch nicht, kenne es nur aus Forenanfragen, gelegentlich klappen wohl alle Stringbefehle wie left,Mid usw. nicht, vielleicht auch Chr().
Da ist dann irgendwas mit den Verweisen (Im Editor: Extras–Verweise) faul *grad nix genaues weiß*
Kurzfristige Abhilfe ist dann die Benutzung von „VBA“ im Code:
Sub Test()
Call tt1
Call tt2
Call tt3
Call tt4
End Sub
’
Sub tt1()
MsgBox „Zeile1“ & VBA.Chr(13) & „Zeile2“ & VBA.Chr(13) & „Zeile3“
End Sub
’
Sub tt2()
MsgBox „Zeile1“ & VBA.Chr(10) & „Zeile2“ & VBA.Chr(10) & „Zeile3“
End Sub
’
Sub tt3()
MsgBox „Zeile1“ & VBA.Chr(10) & VBA.Chr(13) & „Zeile2“ & VBA.Chr(10) & VBA.Chr(13) & „Zeile3“
End Sub
’
Sub tt4()
MsgBox „Zeile1“ & VBA.Chr(13) & VBA.Chr(10) & „Zeile2“ & VBA.Chr(13) & VBA.Chr(10) & „Zeile3“
End Sub
Gruß
Reinhard
reinhard, das war genial.
mit vba.chr(10) funktionierts.
wieviele vba - programmierer hingen deswegen und wegen anderer ähnlicher misteriöser fehler schon am dachbalken?
na, seis drum.
vielen dank, dein nikodemo…
Hallo,
Du musst da nicht mit den beiden characters arbeiten, VB/VBA kennen ‚VbCrLf‘
MsgBox "Test Zeile 1 " & VbCrLf & "und Zeile 2"
Danach kannst Du auch suchen …
Position = Instr(1, Text, VbCrLf)
Gruß Rainer
Grüezi NikoDemo
mit vba.chr(10) funktionierts.
wieviele vba - programmierer hingen deswegen und wegen anderer
ähnlicher misteriöser fehler schon am dachbalken?na, seis drum.
…nein, denn das ist nur die Beköämpfung des Symptoms, nicht aber dessen Ursache!
Prüfe im VBA-Editor unter Extras/Verweise ob dort solche mit ‚Nicht vorhanden‘ markiert sind und lösche diese. Speichere und schliesse die Mappe, nach dem erneuten öffnen dürfte dein Code auch ohne explizite Nennung der Bibliothek laufen.
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -