Thema Datum  Von Nutzer Rating
Antwort
09.05.2024 17:42:20 Daniel
NotSolved
09.05.2024 18:36:51 AlterDresdner
NotSolved
09.05.2024 20:42:36 Daniel
NotSolved
09.05.2024 20:59:28 AlterDresdner
NotSolved
09.05.2024 21:03:24 Daniel
NotSolved
09.05.2024 21:46:15 Daniel
NotSolved
Rot .find Methode
 09.05.2024 21:52:29 AlterDresdner
Solved
11.05.2024 19:37:26 Daniel
Solved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
09.05.2024 21:52:29		 Views:
123		 Rating:
     
Antwort:
 Nein
Thema:
.find Methode

Daniel,
mir fällt da nur etwas selbstgebasteltes ein. Du durchpflügst den Bereich und vergleichst halt die texte:
 

Sub SucheInBereich()
    Dim ws As Worksheet
    Dim rngSuchen As Range
    Dim Zelle As Variant, Suchwert As String, erg As Boolean, Merken
     
    Set ws = ThisWorkbook.Sheets("Bearbeitung")
    ws.Activate 'sonst klappt das Select unten nicht
    Suchwert = ws.Range("J1").Text
    For Each Zelle In ws.Range("A2:J100")
      If InStr(1, Zelle.Text, Suchwert) > 0 Then
        erg = True
        Merken = Zelle.Address
        Exit For
      End If
    Next Zelle
    If Not erg Then
      MsgBox "Wert nicht gefunden."
    Else
      Range(Merken).Select
    End If
  End Sub

Ob das für alle Deine Fälle passt?? 16.05., 16.5.,...???

Gruß der ALteDresdner

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.05.2024 17:42:20 Daniel
NotSolved
09.05.2024 18:36:51 AlterDresdner
NotSolved
09.05.2024 20:42:36 Daniel
NotSolved
09.05.2024 20:59:28 AlterDresdner
NotSolved
09.05.2024 21:03:24 Daniel
NotSolved
09.05.2024 21:46:15 Daniel
NotSolved
Rot .find Methode
 09.05.2024 21:52:29 AlterDresdner
Solved
11.05.2024 19:37:26 Daniel
Solved