Thema Datum  Von Nutzer Rating
Antwort
09.04.2021 11:36:37 Karl Heizner
NotSolved
09.04.2021 11:43:59 Mase
NotSolved
09.04.2021 14:32:09 Heinz
NotSolved
10.04.2021 08:44:38 Mase
NotSolved
09.04.2021 14:49:30 jofed
NotSolved
09.04.2021 15:21:30 Heinz
NotSolved
Rot Suchfunktion
09.04.2021 16:01:48 jofed
NotSolved
09.04.2021 23:05:14 Nobody
NotSolved

Ansicht des Beitrags:
Von:
jofed		 Datum:
09.04.2021 16:01:48		 Views:
522		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion

Dann versuchs mal so in Spalte B

 Sub Suchen()
    Dim c, firstAddress
    Dim strSuch As String, rngBer As Range
    Set rngBer = Range("B2:B" & Range("B65536").End(xlUp).Row)
    With rngBer
            strSuch = InputBox("Suchen nach:", "Suchen in Spalte: B")
        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

 

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
09.04.2021 11:36:37 Karl Heizner
NotSolved
09.04.2021 11:43:59 Mase
NotSolved
09.04.2021 14:32:09 Heinz
NotSolved
10.04.2021 08:44:38 Mase
NotSolved
09.04.2021 14:49:30 jofed
NotSolved
09.04.2021 15:21:30 Heinz
NotSolved
Rot Suchfunktion
09.04.2021 16:01:48 jofed
NotSolved
09.04.2021 23:05:14 Nobody
NotSolved