Thema Datum  Von Nutzer Rating
Antwort
27.07.2018 10:14:39 Christoph
NotSolved
27.07.2018 17:38:40 f
NotSolved
29.07.2018 10:33:20 Gast49638
NotSolved
Blau Prüfe, ob Wert in einer Range vorhanden ist
 29.07.2018 22:01:39 Daniel
NotSolved

Ansicht des Beitrags:
Von:
Daniel		 Datum:
29.07.2018 22:01:39		 Views:
1135		 Rating:
     
Antwort:
  Ja
Thema:
Prüfe, ob Wert in einer Range vorhanden ist

Hallo Christoph,

ist zwar ungetestet, aber so sollte es ungefähr aussehen (bitte in das Tabellenblatt direkt kopieren und nicht in ein Modul):

Private Sub Worksheet_Change(ByVal Target As Range)

Dim varSuchwert as Variant
Dim rngSuchbereich As Range
Dim rngSuche As Range

'Suchwert definieren
varSuchwert = ActiveSheet.Range("B1")
'Suchbereich definieren, wobei Cells(Zeile, Spalte)
Set rngSuchbereich = ActiveSheet.Range(Cells(1,4) _
        , Cells(4,4))
'Suche den Wert im Suchbereich
Set rngSuche = rngSuchbereich. Find(varSuchwert)

'Prüfe ob der Suchwert gefunden wurde bzw. kein Fehler aus der Suche resultiert
If IsError(rngSuche) = False Then
   msgbox "Ok"
End If

End Sub

LG Daniel

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.07.2018 10:14:39 Christoph
NotSolved
27.07.2018 17:38:40 f
NotSolved
29.07.2018 10:33:20 Gast49638
NotSolved
Blau Prüfe, ob Wert in einer Range vorhanden ist
 29.07.2018 22:01:39 Daniel
NotSolved