heutiges datum finden mit VBA

Hallo ihr lieben,
Frohe Weihnachten gehabt zu haben.
Auf meiner Startseite habe ich eine Passwortbox über die meine Kollegen zu Ihrem jeweiligen Datenblatt kommen.
Bisher wurde eine bestimmte celle (.cells(1, 3)) angewählt.
Nun hätte ich gerne das statt der festen celle das heutige datum (in B14:B93 zu finden) angewählt wird.
Option Explicit

Private Sub CommandButton1_Click()
If pass = Sheets("Daten").Cells(25, 19) Then
Sheets("MA22").Activate
Sheets("MA22").Cells(1, 3).Select
End If
Unload frmpasswort
End Sub

So sieht der Code derzeit aus
Und so stelle ich ihn mir vor
Option Explicit

Private Sub CommandButton1_Click()
If pass = Sheets("Daten").Cells(25, 19) Then
Sheets("MA22").Activate
Sheets("MA22").Range("B14:B93").Find(date).Select
End If
Unload frmpasswort
End Sub

funktioniert so aber leider nicht :-(
In diesem Test geht´s ohne Probleme

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("$A$1") And Range("$A$1") = "12" Then
Sheets("a").Activate
Sheets("a").Range("B:B").Find(Date).Select
Worksheets("Tabelle1").Cells(1, 1).ClearContents
End If
Kann mir jemand sagen wo der fehler ist?
LG Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub CommandButton1_Click() Dim pass As String pass = TextBox1.Value If pass = Sheets("Daten").Cells(25, 19) Then Sheets("MA22").Activate Sheets("MA22").Range("B14:B93").Find(Date).Select Unload frmpasswort Else MsgBox "falsche Eingabe" End If End Sub

Private Sub CommandButton1_Click() Dim pass As String Dim aktDatum As Variant pass = TextBox1.Value If pass = Sheets("Daten").Cells(25, 19).Value Then Sheets("MA22").Activate aktDatum = Application.Match(CLng(Date), Columns(2), 0) Cells(aktDatum, 2).Select Unload frmpasswort End If End Sub

Hi
bei der .Find-Funktion kannst du aussuchen, ob du im angezeigten Zellwert oder im Formeltext suchen willst!
du steuerst dies über den zusätzlichen Paramter: LookIn:=xlFormulas bzw LookIn:=xlValues
wenn du im Code diesen Parameter nicht angibst, wird die letzte Einstellung des Anwenders verwendet. Weil du aber nicht weißt, wie der Anwender zuletzt gesucht hast, solltest du das hier genau angeben:

.Find(what:=Date, LookIn:=xlvalues)

ansonsten ist es so, dann wenn in den Zellen ein lückenlos fortlaufendes Datum steht, es gar nicht notwendig ist, die .Find-Funktion zu bemühen, weil man die Zielzelle auch berechnen kann:

With Sheets("MA22").Range("B14")
.Worksheet.Select
.Offset(Date - .value, 0).Select
End With

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

heutiges datum finden mit VBA

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread