Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Suchfunktion
08.05.2022 20:18:20 Andreas
NotSolved
08.05.2022 21:04:20 ralf_b
NotSolved
13.05.2022 18:19:45 Andreas
NotSolved
13.05.2022 18:29:43 Gast48442
NotSolved
14.05.2022 02:11:57 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Andreas
Datum:
08.05.2022 20:18:20
Views:
64
Rating: Antwort:
  Ja
Thema:
VBA Suchfunktion

Hallo zusammen, 

ich würde gerne zwei aktive Suchzellen auf einem Tabellenblatt erstellen. Dies sind A2 und B2. Wenn beide Zellen leer oder voll sind soll die Funktion nicht weiterlaufen. Dies Funktioniert auch soweit so gut. 

Nun hänge ich an der Suche an sich, denn es wird immer nur die erste Zelle mit dem Wert gefunden Aber die Werte sind öfters in den nachfolgenden Zeilen (In spalte A für Suche A und Spalte B für suche B )zu finden. Könnte mich jemand unterstützen?

 Folgend mal der Code:

Private Sub cmd_suchen_Click()

'Variablen definieren
Dim searchdate As Variant
Dim searchnumber As Variant

'Püfung ob beide Zellen nicht leer sind
If Not IsEmpty(Fundsachen.Range("A2").Value) And IsEmpty(Fundsachen.Range("B2").Value) = False Then
    MsgBox ("Bitte nur Datum oder Zimmernummer eintragen")
    Exit Sub
End If

'Prüfen ob beide Zellen leer sind
If IsEmpty(Fundsachen.Range("A2").Value) And IsEmpty(Fundsachen.Range("B2").Value) = True Then
    MsgBox ("Bitte Datum oder Zimmernummer eintragen")
    Exit Sub
End If

'Prüfung welche Variable aktiv ist
If IsEmpty(Fundsachen.Range("A2").Value) = False Then
    Range("A2").Select
    searchdate = ActiveCell.Value
        'Suchfunktion
        cells.Find(What:=searchdate, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Else
    Range("B2").Select
    searchnumber = ActiveCell.Value
        'Suchfunktion
        cells.Find(What:=searchnumber, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    End If

End Sub


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
Rot VBA Suchfunktion
08.05.2022 20:18:20 Andreas
NotSolved
08.05.2022 21:04:20 ralf_b
NotSolved
13.05.2022 18:19:45 Andreas
NotSolved
13.05.2022 18:29:43 Gast48442
NotSolved
14.05.2022 02:11:57 ralf_b
NotSolved