Thema Datum  Von Nutzer Rating
Antwort
Rot .find Methode
 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
09.05.2024 21:52:29 AlterDresdner
Solved
11.05.2024 19:37:26 Daniel
Solved

Ansicht des Beitrags:
Von:
Daniel		 Datum:
09.05.2024 17:42:20		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
.find Methode

Hallo zusammen,

ich stehe auf dem Schlauch und wäre für Hilfe dankbar.

Mit einem Makro soll der Inhalt von Zelle J1 im Bereich A2:J100 gesucht werden. In J1 steht immer ein Datum, zB "16.05.". Im Zellbereich kann dieses Datum ebenfalls aufgeschrieben, zB so:
J31= "16.05.2024"
J80= "16.05.-17.05."

Warum springt das Makro zu Zelle J80 und nicht zu Zelle J31? Selbst wenn J80 leer ist, wird J31 nicht gefunden.

Viele Grüße
Daniel

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SucheInBereich()
    Dim ws As Worksheet
    Dim rngSuchen As Range
    Dim rngWertSuchen As Range
     
    Set ws = ThisWorkbook.Sheets("Bearbeitung")
    Set rngSuchen = ws.Range("A2:J100")
     
    ' Wert suchen
    Set rngWertSuchen = rngSuchen.Find(What:=ws.Range("J1").Value, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
     
    ' Überprüfen, ob der Wert gefunden wurde
    If Not rngWertSuchen Is Nothing Then
        rngWertSuchen.Activate
    Else
        MsgBox "Wert nicht gefunden."
    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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 .find Methode
 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
09.05.2024 21:52:29 AlterDresdner
Solved
11.05.2024 19:37:26 Daniel
Solved