Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrere Zeilen in der Message Box

Forumthread: mehrere Zeilen in der Message Box

mehrere Zeilen in der Message Box
28.07.2003 11:12:57
Hendrik
Hi experts,

wie kann ich mehrere Zeilen in eine MsgBox bringen, bei denen ich auch bestimme wann die Zeile endet - durch Beendigung der jeweiligen Zeile mit " ist es anscheinend nicht getan?

Danke im voraus

Ciao Hendrik
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Zeilen in der Message Box
28.07.2003 11:14:41
Mike E.
Hallo Hendrik,

so z.B.:

MsgBox("Hallo" & Chr(10) & Sheets(1).Cells(1,1))

Gruß
Mike


AW: mehrere Zeilen in der Message Box
28.07.2003 11:24:51
Hendrik
Hi Mike,

danke erstmal, aber ich glaube ich habe mich ein bisschen falsch ausgedrückt.
wofür steht das Chr(10)?

Ich habe folgendes Prob:

Ich möchte eine Auflistuung in der MsgBox vornehmen, z.B. so:

Bestellung A: "& Sheets(1).Cells(1,1))
Bestellung B: "& Sheets(1).Cells(1,1))
usw.

aber ich bekomme nicht hin, das Bestellung B unter Best. A steht ohne, dass ich im code 25 Mal die Tabtaste betätige und somit einen so großen BAstand schaffe, dass Bestellung B dann aus Platzgründen in der nächsten Zeile steht.
Wie schon beschrieben mit einem Gänsefüsschen am Ende jeder Zeile funzt es nicht.


Ciao Hendrik


Anzeige
AW: mehrere Zeilen in der Message Box
28.07.2003 11:28:39
Mike E.
Hallo Hendrik,

Chr(10) fügt eine Zeile in die MsgBox; für dein Beispiel:

MsgBox("Bestellung A: " & Sheets(1),Cells(1,1) & Chr(10) & _
"Bestellung B: " & Sheets(1).Cells(2,1))

Gruß
Mike


;
Anzeige

Infobox / Tutorial

Mehrere Zeilen in der Message Box in Excel anzeigen


Schritt-für-Schritt-Anleitung

Um mehrere Zeilen in einer Message Box (MsgBox) in Excel anzuzeigen, kannst du die Funktion Chr(10) verwenden, um einen Zeilenumbruch zu erzeugen. Hier ist eine einfache Anleitung, wie du das umsetzen kannst:

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den Editor zu öffnen.
  2. Erstelle ein neues Modul:

    • Klicke auf Einfügen > Modul.
  3. Füge den folgenden Code ein:

    Sub MehrereZeilenMsgBox()
       MsgBox "Bestellung A: " & Sheets(1).Cells(1, 1) & Chr(10) & _
              "Bestellung B: " & Sheets(1).Cells(2, 1)
    End Sub
  4. Führe das Makro aus:

    • Drücke F5 im VBA-Editor, um das Makro zu starten.

Dieser Code zeigt die Werte aus den Zellen A1 und A2 des ersten Arbeitsblattes in einer MsgBox an, jeweils in einer neuen Zeile.


Häufige Fehler und Lösungen

  • Fehler: Typen-Mismatch beim Ausführen des Codes.

    • Lösung: Stelle sicher, dass die Zellen, auf die du zugreifst, tatsächlich Werte enthalten. Überprüfe, ob die Zellen leer sind oder ob du auf eine falsche Zelle zugreifst.
  • Fehler: MsgBox zeigt alles in einer Zeile an.

    • Lösung: Vergiss nicht, Chr(10) korrekt einzufügen, um Zeilenumbrüche zu erzeugen.

Alternative Methoden

Neben der Verwendung von Chr(10) kannst du auch vbCrLf verwenden, um Zeilenumbrüche zu erstellen. Der Code würde dann so aussehen:

Sub AlternativeZeilenMsgBox()
    MsgBox "Bestellung A: " & Sheets(1).Cells(1, 1) & vbCrLf & _
           "Bestellung B: " & Sheets(1).Cells(2, 1)
End Sub

Beide Methoden sind effektiv und funktionieren in Excel VBA.


Praktische Beispiele

Hier sind einige praktische Anwendungsbeispiele für die Verwendung von MsgBox mit mehreren Zeilen:

  1. Auflistung von Preisen:

    Sub PreisListe()
       MsgBox "Produkt 1: " & Sheets(1).Cells(1, 1) & Chr(10) & _
              "Produkt 2: " & Sheets(1).Cells(2, 1) & Chr(10) & _
              "Produkt 3: " & Sheets(1).Cells(3, 1)
    End Sub
  2. Statusmeldung:

    Sub Statusmeldung()
       MsgBox "Auftrag in Bearbeitung..." & Chr(10) & _
              "Bitte warten Sie."
    End Sub

Tipps für Profis

  • Nutze Variablen, um die Zellenwerte zu speichern, bevor du sie in der MsgBox anzeigst. Das macht deinen Code übersichtlicher.

    Sub OptimierteMsgBox()
      Dim bestellungA As String
      Dim bestellungB As String
    
      bestellungA = Sheets(1).Cells(1, 1)
      bestellungB = Sheets(1).Cells(2, 1)
    
      MsgBox "Bestellung A: " & bestellungA & Chr(10) & _
             "Bestellung B: " & bestellungB
    End Sub
  • Verwende Application.InputBox, um Daten dynamisch abzufragen und in die MsgBox einzufügen.


FAQ: Häufige Fragen

1. Frage Was ist der Unterschied zwischen Chr(10) und vbCrLf?

Antwort: Beide erzeugen einen Zeilenumbruch in einer MsgBox. Chr(10) steht für einen Zeilenumbruch (LF), während vbCrLf einen Wagenrücklauf (CR) und einen Zeilenumbruch (LF) kombiniert.

2. Frage Kann ich die MsgBox anpassen, um mehr Informationen anzuzeigen?

Antwort: Ja, du kannst die MsgBox mit zusätzlichen Informationen und Formatierungen erweitern, z.B. durch die Verwendung von Variablen oder durch das Erstellen komplexerer Nachrichten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige