Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen im Blatt, Ausgabe der Position

Forumthread: Suchen im Blatt, Ausgabe der Position

Suchen im Blatt, Ausgabe der Position
30.04.2024 12:08:04
Chris
Hallo zusammen,

eigentlich versuche ich etwas total simples, scheitere aber vermutlich genau daran :)

Ich habe ein Dienstplan der wie folgt aufgebaut ist:

Zeile 1: Woche 1
Zeile 2: Mo,15.01.24 (Spalte A) ; Di, 16.01.24 (Spalte B); Mi, 17.01.2024; Do, 18.01.2024 (bis Sonntag geht das weiter)
Zeile 3 : Mitarbeiter; Mitarbeiter; Mitarbeiter; Mitarbeiter; (usw.)
Zeile 4 : Mitarbeiter; Mitarbeiter; Mitarbeiter; Mitarbeiter; (usw.)

Zeile 5: Woche 2
Zeile 6: Mo,22.01.24; Di, 23.01.24; Mi, 24.01.2024; Do, 25.01.2024 (bis Sonntag geht das weiter)
Zeile 7 : Mitarbeiter; Mitarbeiter; Mitarbeiter; Mitarbeiter; (usw.)
Zeile 8 : Mitarbeiter; Mitarbeiter; Mitarbeiter; Mitarbeiter; (usw.)

Ich möchte jetzt gerne mittels VBA Inputbox nach einem Datum suchen und als Ausgabe lediglich Zeilen- und Spaltennummer bekommen. Eine Funktion in einer Zelle ist leider keine Option.

Zum Beispiel suche ich nach dem 24.01.2024 und möchte als Ausgabe lediglich "B6" haben.

Vielen Dank schonmal für die Hilfe.

Grüße

Chris



Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen im Blatt, Ausgabe der Position
30.04.2024 13:12:10
UweD
Hallo

so??

Achte aber auf einheitliche Schreibweise. .2024 bzw .24 

Sub Suchen()

    Dim Datum As String, C As Range

    Datum = InputBox("Suchdatum")

    If Datum > "" Then

        Set C = Cells.Find(Datum, LookIn:=xlValues)

        If Not C Is Nothing Then

            MsgBox C.Address(0, 0)

        End If

    Else

        MsgBox "Falsche Eingabe"

        

    End If

End Sub


LG UweD
Anzeige
AW: Suchen im Blatt, Ausgabe der Position
30.04.2024 15:58:08
daniel
Hi
.find mit Datum ist schwierig.

probier mal das, das Datum muss so eingegeben werden, wie es in der Zelle angezeigt wird: 

Sub Suchen()

    Dim Zelle As Range

    Datum = InputBox("Suchdatum", , "21.01.2024")

    For Each Zelle In Cells.SpecialCells(xlCellTypeConstants, 1)

        If Zelle.Text = Datum Then Exit For

    Next

    If Zelle Is noting Then

        MsgBox "Datum nicht gefunden"

    Else

        MsgBox Datum & " gefunden in Zelle: " & Zelle.Address(0, 0)

    End If

End Sub


Wenn du dir in der Listbox die Eingabe der Jahreszahl sparen willst, dann ändere die erste Zeile mit IF so ab: 

If Zelle.Text like Datum & "*" Then Exit For


Gruß Daniel
Anzeige
AW: Suchen im Blatt, Ausgabe der Position
30.04.2024 13:47:17
Chris
Hallo Uwe,

leider bekomme ich nach Eingabe des Datums überhaupt keine Ausgabe.

LG

Chris

AW: Suchen im Blatt, Ausgabe der Position
30.04.2024 14:27:08
{Boris}
Hi,

die Find-Methode mit Datümern ist etwas tricky. Die Inputbox liefert das Datum als TEXT - und der wird nicht gefunden.
Teste mal die Umwandlungsfunktion CDate bzw. CLng:

Datum = InputBox("Suchdatum")
Datum = CDate(Datum) 'oder auch CLng(Datum)
If Datum > "" Then

VG, Boris
Anzeige
AW: Suchen im Blatt, Ausgabe der Position
30.04.2024 14:43:34
UweD
Wie Boris schon geschrieben hat...

Ich war von Text ausgegangen. Du hast aber scheinbar echte Datumeinträge.

dann so... 
Sub Suchen()

    Dim Datum As Date, C As Range

    Datum = InputBox("Suchdatum", , "21.01.2024")

    If Datum > 0 Then

        Set C = Cells.Find(CLng(Datum))

        If Not C Is Nothing Then

            MsgBox C.Address(0, 0)

        Else

            MsgBox "Datum nicht gefunden"

        End If

    Else

        MsgBox "Falsche Eingabe"

        

    End If

End Sub


LG UweD
Anzeige
AW: Suchen im Blatt, Ausgabe der Position
30.04.2024 14:59:29
Chris
Leider immer noch keine Ausgabe :(

Ich habe die Datei mal hochgeladen. Vielleicht sieht jemand dann direkt, wo ich den Fehler mache.

https://www.herber.de/bbs/user/169166.xlsm

Grüße

Chris
Mit CDate (statt CLng) wird das Datum bei mir gefunden...oT
30.04.2024 15:03:49
{Boris}
VG, Boris
AW: Mit CDate (statt CLng) wird das Datum bei mir gefunden...oT
30.04.2024 15:06:26
Chris
Top, das war die Lösung.

Vielen lieben Dank an euch zwei :)
Anzeige
Find-Methode
30.04.2024 15:16:30
{Boris}
Hi,

beachte übrigens, dass die Find-Methode zig Parameter hat (ich glaube 8, ohne nachgesehen zu haben).
Wenn man die nicht angibt, wird immer die LETZTE Einstellung verwendet (so wie man es im Dialog Suchen bzw. Suchen/Ersetzen eingestellt hat).
Das kann schon mal zu unerwünschten Ergebnissen führen.

VG, Boris
Anzeige
Und die Variable Datum als Variant deklarieren ....oT
30.04.2024 14:28:19
{Boris}
VG, Boris
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige