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

Ansicht des Beitrags:
Von:
f		 Datum:
27.07.2018 17:38:40		 Views:
1086		 Rating:
     
Antwort:
  Ja
Thema:
Prüfe, ob Wert in einer Range vorhanden ist

Hallo Chris,

vielleicht so:

In ein Modul eintragen:

 Sub Finden()
    Dim c, firstAddress
    Dim strSuch As String, rngBer As Range
    Set rngBer = Range("B2:M100")
    With rngBer
            strSuch = Range("A1")
        If strSuch = "" Then
        Exit Sub
        End If
                Set c = .Find(strSuch, LookIn:=xlValues)
        If c Is Nothing Then
            MsgBox "Eintrag nicht vorhanden"
        Else
            firstAddress = c.Address
            Do
                c.Activate
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
   End With
End Sub

In die aktive Tabelle eintragen:

  Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
  If Range("A1") <> "" Then Call Finden
  End If
  End Sub

Musterdatei nötig ??

 

Gruß

fedjo

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
Blau Prüfe, ob Wert in einer Range vorhanden ist
 27.07.2018 17:38:40 f
NotSolved
29.07.2018 10:33:20 Gast49638
NotSolved
29.07.2018 22:01:39 Daniel
NotSolved