Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie wird ein Meldungsfeld angezeigt, wenn Sie in Excel auf eine bestimmte Zelle klicken?

Dieser Artikel soll Ihnen zeigen, wie Sie beim Klicken auf eine bestimmte Zelle in Excel ein Meldungsfeld öffnen.

Popup-Meldungsfeld, wenn Sie auf eine bestimmte Zelle mit VBA-Code klicken

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blau rechte Blase Popup-Meldungsfeld, wenn Sie auf eine bestimmte Zelle mit VBA-Code klicken


Gehen Sie wie folgt vor, um ein Meldungsfeld zu öffnen, wenn Sie auf eine bestimmte Zelle im Arbeitsblatt klicken.

1. Umschalttaste, um das Arbeitsblatt mit der bestimmten Zelle zu öffnen, die beim Klicken auf das Meldungsfeld angezeigt werden soll. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü.

2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.

VBA-Code: Popup-Meldungsfeld, wenn Sie auf eine bestimmte Zelle klicken

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

Einschränkungen:

1). Im Code bedeutet "A1: B10", dass das Meldungsfeld angezeigt wird, wenn Sie auf eine Zelle dieses Bereichs klicken.

2). "Sie haben Zelle ausgewählt" und "Bitte Daten eingeben" sind der angezeigte Inhalt des Meldungsfelds.

Bitte ändern Sie sie nach Bedarf.

3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Wenn Sie von nun an auf eine Zelle des Bereichs A1: B10 klicken, wird ein Meldungsfeld angezeigt (siehe Abbildung unten).


Pfeil blau rechte BlaseIn Verbindung stehende Artikel:


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @fractalwavesprod@gmail.com Hi,
    Please apply the below code. Hope I can help. thank you for your comment.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xStrRg As String
    xStrRg = "A1:B10,D1:F10" 'Add multiple ranges here and separate with comma
    If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
    MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
    End Sub
  • To post as a guest, your comment is unpublished.
    fractalwavesprod@gmail.com · 1 years ago
    How can I enter more ranges? thank you very much
  • To post as a guest, your comment is unpublished.
    jdt · 2 years ago
    typo select vs selected in code. also maybe switch to vbNewLine rather than crlf
  • To post as a guest, your comment is unpublished.
    Alison · 4 years ago
    I have multiple cells I would like a pop up box for. Can you use this code for multiple boxes?