Anzeige
Archiv - Navigation
1664to1668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige