Kann man in VBA spezielle Unicode-Symbole in den Text einer Message Box einbinden?

Hallo,

gibt es eine Möglichkeit, in VBA (Excel) ein Unicodezeichen in den Text einer Message Box einzubinden? Konkret geht es mir um das Warning sign.

Die Möglichkeit, die MsgBox-Konstante vbExclamation zu verwenden, ist mir übrigens bekannt, das ist aber nicht das, was ich meine bzw. möchte.

Vielen Dank für eure Hilfe!

Gruß, BerchGerch

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

daCypher

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren

05.01.2022, 07:33

Die integrierte MsgBox kann das anscheinend nicht. Die einzige Möglichkeit, die mir einfällt ist, dass du eine UserForm baust, die aussieht, wie eine MsgBox. Da kannst du dann das Symbol in ein Label einfügen

Me.Label1.Caption = ChrW(&H26A0)

BerchGerch

Beitragsersteller

05.01.2022, 07:43

Vielen Dank! Dann weiß ich, dass es so nicht geht.

Danke auch für den Workaround :-)

geri3d

05.01.2022, 08:50

Löse Dich von dem Esel Excel und steige um auf das Ross Visual Basic wenn Dir VBA gefällt und Du Excel automatisieren möchtest.

Bild zum Beitrag

Woher ich das weiß:Berufserfahrung

BerchGerch

Beitragsersteller

05.01.2022, 09:07

Vielen Dank für den Hinweis!

adi120369

05.01.2022, 07:32

Also man kann ueber Chr(Zahl) ASCII Zeichen anzeigen.

"Dies ist ein" & chr(34) zeigt dann Dies ist ein " an. Also wie gesagt ueber die chr() Funktion kann man Zeichen anzeigen. Ob das Zeichen dabei ist, das du suchst, musst du einmal recherchieren.

BerchGerch

Beitragsersteller

05.01.2022, 07:41

Vielen Dank für deine Hilfe. Die Chr- bzw. ChrW-Funktionen hatte ich bereits versucht, allerdings war es mir nicht möglich, den Zeichencode des Warning Signs zu finden, der mit diesen Funktionen funktioniert.

Aber anscheinend ist das so auch gar nicht möglich (siehe die Antwort von daCypher). Vielen Dank nochmal.

Ähnliche Beiträge

Excel VBA: Wie Inhalt einer Zelle in einer Msgbox anzeigen?

Meine ersten Schritte nach 20 Jahren Pause. Ich will etwas tun, wenn eine Zelle den Text "crash" enthält. Welche Eigenschaft der Zelle ist der Text (VBA)?

...zum Beitrag

Word VBA bestimmten Text fett anzeigen?

Hallo zusammen,

bei meiner Frage vor einigen Tagen (https://www.gutefrage.net/frage/text-mittels-checkbox-in-word-einblenden-vba-macros) habe ich erfahren, wie man per VBA Text durch Checkboxen anzeigen lassen kann.

Es handelt sich hier allerdings nicht um einzelne Wörter, sondern um ganz Absätze, die einer gewissen Formatierung bedürfen. Gibt es eine Möglichkeit, den Code im VBA-Editor so zu verändern, dass einzelne Worte fett oder unterstrichen angezeigt werden?

Herzlichen Dank im Voraus für hilfreiche Antworten!

...zum Beitrag

Wie kann ich mit VBA ein Datum auslesen, welches nicht als Datum formatiert ist?

Hallo zusammen,

ich möchte aus einem Bericht in einer bestimmten Spalte in Excel ein Datum aus einem Text auslesen. Da es aber nicht als Datum in Excel formatiert ist komme ich nicht weiter. Gibt es die Möglichkeit, nach einer bestimmten Zeichenfolge zu suchen? Also z.B. ZahlZahlPunktZahlZahlPunktZahlZahlZahlZahl (tt.mm.jjjj)?

Danke für eure Ideen :)

Schönen Gruß Jan

...zum Beitrag

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zum Beitrag

VBA MSG BOX Titel nur aufzählen wenn Spalte "L" bestimmter Text?

Hallo zusammen,

ich komme bei diesem Code nicht weiter. Die Msgbox soll nur die Zeilen auflisten wenn ihn Spalte "L" der Text "offen" vorkommt. Kann mir dabei jemand bitte behilflich sein?

Private Sub Workbook_Open()

Dim rDatWartung

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

lz = Cells(Rows.Count, 5).End(xlUp).Row

For Each rDatWartung In Range("D30:D600")

If rDatWartung.Value <> "" Then

If rDatWartung.Value <= Date + 7 Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatWartung.Row, 4) & " " & vbCrLf & Cells(rDatWartung.Row, 6)

Else

If rDatWartung.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatWartung.Row, 4) & " " & Cells(rDatWartung.Row, 4) & vbCrLf

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" Then

MsgBox "Überfällig" & vbCrLf & " " & sMsgUeberFaellig

End If

End Sub

Herzlichen Dank, und einen schönen Abend

...zum Beitrag

Excel VBA - If Not ... Like ... Wurm drin

Irgendwie hab ich den Wurm drin...

Ich habe es mit beiden untenstehenden Codes probiert und jedes mal bringt er den MsgBox Text, der auf dir If anweisung folgt, auch wenn eingabe 1 "1" oder "5" enthält.

ElseIf Not eingabe1 Like "1" Or Not eingabe1 Like "5" And eingabe2 Like "" Then
ElseIf eingabe1 <> "1" Or eingaben1 <> "5" And eingabe2 = "" Then

...zum Beitrag

E-Commerce in homepage einbinden?

Hallo

Gibt es möglichkeiten, e-commerce (Klarna,PayPal) in eine selbst programmierte website (kein CMS wie z.B. Wordpress, Jimdo) einzubinden?

...zum Beitrag

Wie erstelle ich in VBA eine MsgBox mit Ja-Nein-Abfrage?

Benötige folgenden VBA Befehl, den ich leider nicht zusammengebastelt bekomme... Wenn in Zelle D15 der Wert "LK" auftaucht, dann MsgBox mit "beliebiger Fragestellung" -> wenn ja, dann Exit und wenn nein, dann "beliebiger Text" anschließend Exit

...zum Beitrag

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zum Beitrag

VBA Message-Box mit zwei Bedingungen?

Hallo zusammen,

ich versuche eine Message-Box in Excel zu erzeugen, die beim Wechsel eines Worksheets bald fällige bzw. überfällige Termine anzeigt. Dabei stehen die Fälligkeiten in der Spalte K. Eine solche Meldung soll allerdings unterbleiben, sofern der Bearbeitungsstand auf "abgeschlossen" gesetzt wurde. Der Bearbeitungsstand wird in der Spalte N mittels Dropdown-Liste erfasst.

Mein Code sieht folgendermaßen aus:

Private Sub Worksheet_Activate()

Dim rDatTermin

Dim rDatStand

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

Dim sMsgAbgeschlossen As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

For Each rDatTermin In Range("K4:K500")

If rDatTermin.Value <> "" Then

If rDatTermin.Value < Date Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatTermin.Row, 2) & vbCrLf

Else

If rDatTermin.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatTermin.Row, 2) & vbCrLf

End If

For Each rDatStand In Range("N4:N500")

If rDatStand.Value <> "" Then

If rDatStand.Value = "abgeschlossen" Then _

sMsgAbgeschlossen = 1

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" & sMsgAbgeschlossen <> 1 Then

MsgBox "Überfällig" & vbCrLf & vbCrLf & sMsgUeberFaellig & "Bald fällig" & vbCrLf & sMsgBaldFaellig

End If

End Sub

Offensichtlich klappt hier die Verknüpfung zur zweiten Bedingung noch nicht. Die erste Bedingung wird geprüft und korrekt angezeigt. Der Bearbeitungsstand wird dabei jedoch nicht berücksichtigt. Wo habe ich da meinen Gedankenfehler?

...zum Beitrag

Wie kann ich mit Excel VBA, Werte mit bestimmtem Wortteil in einer Spalte finden und dann die zugehörigen Zeilenwerte ausgeben lassen - alle anderen Zeilen weg?

Ich brauche einen VBA code mitdem man aufgefordert wird einen Text einzugeben (Msg-Box) welche von Jan-Dec auswählbare diskrete Werte erlaubt und diese werte dann in einer Spalte B sucht (darin steht dann z.B. 10-OCT-2015) -> ich will dann OCT eingeben können und für alle Werte in Spalte B, die OCT enthalten, sollen dann die Spalten A,C,D,E ausgegeben werden bzw. sthen bleien und die restlichen Zeilen (die kein OCT in Spalte B enthalten), sollen gelöscht bzw. ausgeblendet werden.

...zum Beitrag

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

...zum Beitrag

Windows 11 Message Box wird nicht richtig angezeigt?

Immer wenn ich eine msgbox mit einer .vbs Datei erstelle, wird die msgbox im alten Design (alte Buttons und alte Icons) dargestellt und Umlaute werden falsch dargestellt, obwohl die UTF-8 Codierung beim speichern ausgewählt wurde. Hier ein Screenshot:

...zum Beitrag

Teamviewer in Webseite einbinden?

Ich suche eine Möglichkeit Teamviewer auf meine Webseite einzubinden. Das heißt das ich Teamviewer nicht auf dem PC installieren muss sondern über meine Homepage nutzen kann.

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen