Datum über Makro ansteuern

Forumthread: Datum über Makro ansteuern
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datum über Makro ansteuern

07.04.2014 00:16:31

Manu

Hallo, ich habe eine Spalte mit knapp 4000 Datumseinträgen, die nicht nach dem Datum sortiert sind. Nun möchte ich ab und an die Zeile ansteuern, die ein bestimmtes Datum hat, über STRG-F müsste ich erst umständlich die Zahl von dem entsprechenden Datum ermitteln, um die respektive Zeile anzusteuern (Bisher habe ich halt das Datum in A1 gehabt A2=A1 (A1 Datumsformat A2 Textformat) und dann die Suche gestartet. Geht dies nicht komfortabler über einen Makro, bei dem ich das Datum wie bei excel mit beispielsweise 1.2.60 für 1.2.1960 suchen lassen kann?
Danke!
Manu

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum über Makro ansteuern

07.04.2014 00:49:17

Crazy
AW: Datum über Makro ansteuern

07.04.2014 19:29:25

Manu
AW: Datum über Makro ansteuern

07.04.2014 19:47:39

Manu

AW: Datum über Makro ansteuern

07.04.2014 00:49:17

Crazy

Hallo Manu
zum Beispiel so
erstelle eine Userform mit einer Textbox1 und einem Commandbutton1
im Codefenster der Userform

Private Sub CommandButton1_Click()
Dim Suchergebnis  As Range
With Worksheets("2014").Range("A2:" & .Rows.Count, 1).End(xlUp)
Set Suchergebnis = .Find(CDate(TextBox1), LookIn:=xlValues, lookat:=xlPart)
If Not Suchergebnis Is Nothing Then
MsgBox Suchergebnis.Address
End If
End With
End Sub

dann kannst du das Datum so eingeben
entweder 01.04.2014 oder 1.4.14
MfG Tom

AW: Datum über Makro ansteuern

07.04.2014 19:29:25

Manu

Vielen Dank, liefert aber bei exakter Adaption des Arbeitsblattes nur Fehler aus:
ich habe jetzt:

Sub Aad()
Dim lloRow As Long, lstrSuche As String
lstrSuche = InputBox("Nach was soll gesucht werden", " Suchen")
If StrPtr(lstrSuche) = 0 Or Len(Trim(lstrSuche))

Für die Spalte E, aber das Datum ist dann halt bei 01.01.1960, ansonsten werden Fehler zurückgeliefert...
Manu

AW: Datum über Makro ansteuern

07.04.2014 19:47:39

Manu

Hallo,
wie kann ich die Datumsangaben auch auf Jahre bis 1950 beziehen lassen?
Danke!

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