Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktion ausführen bei bestimmten Wert in Zelle

Aktion ausführen bei bestimmten Wert in Zelle
10.01.2019 12:55:04
Flo
Hallo zusammen,
ich möchte eine Spalte mit mehreren gefüllten Zellen untersuchen. Sobald in eine der Zellen ein bestimmtes Zeichen vorkommt - wie bspw. "," - soll eine bestimmte Aktion durchgeführt werden.
Kann mir jemand helfen, wie ich das am besten realisieren kann?
Vielen Dank vorab und schöne Grüße
Flo
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Aktion ausführen bei bestimmten Wert in Zelle
10.01.2019 13:29:03
Nepumuk
Hallo Flo,
automatisch beim eingeben eines Kommas oder manuell gestartet? Zudem sind deine Angabe sehr Allgemein, daraus lässt sich auch nur sehr allgemeiner Code abgeleitet werden. Also, in welcher Spalte ab welcher Zeile in welcher Tabelle und welch Aktion?
Gruß
Nepumuk
AW: Aktion ausführen bei bestimmten Wert in Zelle
12.01.2019 23:21:55
Flo
Hallo Nepumuk,
da ist wohl ein Fehler beim Absenden meiner Rückmeldung passiert.
Es handelt sich hierbei um eine bestehende Tabelle, die "überprüft" werden soll (also manuell). Die nachfolgende Aktion ist erst einmal nebensächlich, sowie Spalte und Zeile auch. Ich würde sagen wir lassen die Tabelle einfach ab B1 laufen.
Ich hoffe es ist jetzt konkreter und ihr habt eine Lösung.Vielen Dank!
Schöne Grüße
Flo
Anzeige
AW: Aktion ausführen bei bestimmten Wert in Zelle
13.01.2019 08:46:54
Nepumuk
Hallo Flo,
na dann:
Option Explicit

Public Sub Beispiel()
    Dim avntValues As Variant, vntItem As Variant
    With Worksheets("Tabelle1")
        avntValues = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value2
    End With
    For Each vntItem In avntValues
        If InStr(1, vntItem, ",") > 0 Then
            MsgBox "Aktion"
        End If
    Next
End Sub

Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Aktionen in Excel basierend auf Zellinhalten ausführen


Schritt-für-Schritt-Anleitung

Um eine Aktion in Excel auszuführen, wenn ein bestimmtes Zeichen, wie ein Komma, in einer Zelle gefunden wird, kannst Du den folgenden VBA-Code verwenden. Dieser Code überprüft die Zellen in einer bestimmten Spalte und führt eine Aktion aus, wenn das Zeichen gefunden wird. Hier sind die Schritte:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Option Explicit
    
    Public Sub Beispiel()
        Dim avntValues As Variant, vntItem As Variant
        With Worksheets("Tabelle1")
            avntValues = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value2
        End With
        For Each vntItem In avntValues
            If InStr(1, vntItem, ",") > 0 Then
                MsgBox "Aktion"
            End If
        Next
    End Sub
  4. Ändere den Blattnamen ("Tabelle1") und die Spaltennummer (2 für Spalte B) entsprechend Deiner Tabelle.

  5. Schließe den VBA-Editor und führe das Makro aus, indem Du ALT + F8 drückst und das Makro wählst.


Häufige Fehler und Lösungen

  • Fehler: Kein Ergebnis wird angezeigt
    Lösung: Überprüfe, ob die angegebenen Zellen in der richtigen Spalte und Zeile liegen. Achte darauf, dass in den Zellen tatsächlich ein Komma vorhanden ist.

  • Fehler: Makro läuft nicht
    Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen, und aktiviere die Makros.


Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Funktion "Bedingte Formatierung" verwenden, um Zellen mit einem Komma hervorzuheben:

  1. Wähle die Zellen aus, die Du überprüfen möchtest.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden".
  4. Gib die Formel =FINDEN(",", A1) ein (ersetze A1 durch die erste Zelle in Deinem Bereich).
  5. Wähle ein Format aus und klicke auf OK.

Praktische Beispiele

Wenn Du beispielsweise eine Liste von E-Mail-Adressen hast und überprüfen möchtest, ob diese ein Komma enthalten, kannst Du den oben genannten VBA-Code verwenden und die Spalte anpassen.

Ein einfaches Beispiel, um die Verwendung des Codes zu verdeutlichen:

  • Wenn in Spalte B die Werte "test@example.com", "name,surname@example.com" und "hello@world.com" stehen, wird beim Ausführen des Makros nur für die zweite Adresse eine Nachricht angezeigt.

Tipps für Profis

  • Für komplexere Prüfungen: Du kannst den InStr-Befehl anpassen, um nach anderen Zeichenfolgen oder Kombinationen zu suchen.
  • Automatisierung: Du kannst das Makro so einstellen, dass es automatisch beim Öffnen der Datei oder bei Änderungen in der Tabelle ausgeführt wird, indem Du das Workbook_Open-Ereignis oder das Worksheet_Change-Ereignis verwendest.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um mehrere Zeichen zu überprüfen?
Ja, Du kannst mehrere If-Bedingungen hinzufügen oder die Funktion InStr in einer Schleife verwenden, um verschiedene Zeichen zu überprüfen.

2. Funktioniert dieser Code in Excel 365?
Ja, der VBA-Code ist mit Excel 365 und anderen Versionen von Excel kompatibel, solange die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige