Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datum finden und Adresse ausgeben

Datum finden und Adresse ausgeben
05.10.2013 18:21:55
Martina
Hallo zusammen
Ich möchte in meiner Tabelle ein Datum finden und die Adresse davon ausgeben. Hier mein Code:
Sub DatumSuchen ()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Sheets("Tabelle1").Columns(3)
Set Zelle = Bereich.Find(Range("A1"), lookat:=xlWhole, LookIn:=xlFormulas)
If Zelle Is Nothing Then
MsgBox "Das Datum wurde nicht gefunden!"
Else
MsgBox "Das Datum " & Range("A1") & _
" befindet sich in Zelle " & Zelle.Address(False, False)
End If
End Sub

Leider funktionier der Code nur, solange ich das Datum von Hand in die Zellen schreibe. Die Daten kommen aber mit verschiedenen Funktionen aus anderen Zellen. Ich vermute mal, dass ich das Datum irgendwie mit "Clng" oder "Value2" umwandeln muss, habe aber keine Ahnung, wie ich vorgehen muss.
Vielen Dank für eure Hilfe.
Martina

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum finden und Adresse ausgeben
05.10.2013 18:27:21
Hajo_Zi
Hallo Martina,
Datum suchen
Sub Datum()
Dim SuchDatum As Date                           ' Variiable als Datum
Dim VaMatch As Variant                          ' da Fehler oder Zahl
SuchDatum = Date                                ' Suchdatum zuweisen
If Not IsError(Application.Match(CLng(SuchDatum), Rows(2), 0)) Then
MsgBox "Datum vorhanden in Spalte " & Application.Match(CLng(SuchDatum), Rows(2), 0)
Else
MsgBox "Datum nicht vorhanden"
End If
End Sub

Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige