Wie kann man einen ausgewählten Bereich oder Zellwerte in einem Meldungsfeld in Excel anzeigen?
In bestimmten Situationen möchten Sie sich möglicherweise an den von Ihnen markierten Bereich erinnern oder alle Werte innerhalb dieses begrenzten Bereichs anzeigen lassen. In diesem Artikel erfahren Sie, wie Sie ein Meldungsfeld nutzen können, um entweder die Zellreferenz Ihrer Auswahl oder detaillierte Zellwerte in Excel anzuzeigen.
Meldungsfeld zum Anzeigen eines Zellbereichs mit VBA-Code
Meldungsfeld zum Anzeigen der Werte von Begrenzter Bereich mit VBA-Code
Meldungsfeld zum Anzeigen eines Zellbereichs mit VBA-Code
Der folgende VBA-Code zeigt Ihnen den von Ihnen ausgewählten Bereich in einem Meldungsfeld an. Gehen Sie dazu wie folgt vor:
1. Nachdem Sie einen Zellbereich im Arbeitsblatt markiert haben, drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Meldungsfeld zum Anzeigen eines Zellbereichs
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend erscheint ein Meldungsfeld mit dem Bereich der ausgewählten Zellen.
Meldungsfeld zum Anzeigen der Werte von Begrenzter Bereich mit VBA-Code
Angenommen, Sie möchten ein Meldungsfeld anzeigen, das alle Zellwerte des Bereichs A1:D13 – wie im folgenden Screenshot dargestellt – enthält. Führen Sie dazu den unten stehenden VBA-Code aus.
1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Im Microsoft Visual Basic für Applikationen klicken Sie auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code, und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Meldungsfeld zum Anzeigen ausgewählter Zellwerte in Excel
Sub message()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Geben Sie im erscheinenden Kutools für Excel-Dialogfeld den Bereich ein, dessen Zellwerte in einem Meldungsfeld angezeigt werden sollen, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
Anschließend erscheint ein Meldungsfeld wie im folgenden Screenshot gezeigt, und alle Zellwerte aus dem begrenzten Bereich werden darin angezeigt.
Verwandte Artikel:
- Wie richtet man einen Timer für ein Meldungsfeld ein, damit es in Excel nach einer bestimmten Zeit automatisch geschlossen wird?
- Wie lässt sich ein Meldungsfeld anzeigen, sobald auf eine bestimmte Zelle in Excel geklickt wird?
- Wie kann man Text aus einem Meldungsfeld in Excel kopieren?
- Wie kann beim Aktivieren oder Öffnen eines bestimmten Arbeitsblatts in Excel ein Meldungsfeld angezeigt werden?
- Wie lässt sich ein Meldungsfeld anzeigen, sobald sich der Wert einer Zelle innerhalb eines bestimmten Bereichs in Excel ändert?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins