Thema Datum  Von Nutzer Rating
Antwort
Rot Datum find. mit Datum-Format
06.04.2021 22:15:42 sven
NotSolved
06.04.2021 23:35:43 ralf_b
NotSolved
07.04.2021 13:29:24 Gast48450
NotSolved
07.04.2021 16:35:50 ralf_b
NotSolved
07.04.2021 18:34:26 Gast85301
NotSolved
07.04.2021 18:46:43 ralf_b
NotSolved
07.04.2021 21:36:39 Gast80217
NotSolved
07.04.2021 21:56:36 ralf_b
NotSolved
07.04.2021 21:57:33 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
sven
Datum:
06.04.2021 22:15:42
Views:
171
Rating: Antwort:
  Ja
Thema:
Datum find. mit Datum-Format

Hallo zusammen, 

ich hoffe, dass Du Ostern gut überstanden hast! 

Ich habe ein Problem mit meinem Code für ein Zeiterfassungstool. Das Tool nimmt Arbeitszeiten und Pausenzeiten in einer UserForm auf und soll diese eingelesen Daten neben dem richtigen Datum auf dem richtigen Sheet platzieren. Für Datumswerte, die ausgeschrieben sind und die Zelle das Format Text hat, wird das Datum in der Spalte gefunden, jedoch möchte ich das Datum mit dem Format Datum und verhüllt in einer Formel mit der Funktion suchen, wo S das eingelesene Datum im Format DD/MM/YYY ist, aber so findet Excel das Datum nicht.

Set ZELLE = bereich.Find(what:=S, lookat:=xlWhole, LookIn:=xlFormulas)

Ich habe es auch mit xlValues probiert, da ich schon einige Foren gelesen habe, aber nichts so richtig funktioniert hat. Hat jemand eine Idee was ich ändern muss, damit ich die DatumsZelle finden kann, wenn diese im Format Datum in einer Formel steckt?! 

Vielen Dank. 

Hier der Code:

Private Sub CommandButton_Click()

Dim S As String
Dim KOMMEN As String
Dim GEHEN As String
Dim MONAT As String
Dim PAUSE1A As String
Dim PAUSE1E As String
Dim PAUSE2A As String
Dim PAUSE2E As String
Dim bereich As Range


Dim ZELLE As Range

S = Zeiterfassung.TextBox3.Value
S = Format(S, "dd/mm/yyyy")

KOMMEN = Zeiterfassung.TextBox10.Value
GEHEN = Zeiterfassung.TextBox5.Value

PAUSE1A = Format(PAUSE1A, "hh:mm")
PAUSE1E = Format(PAUSE1E, "hh:mm")
PAUSE2A = Format(PAUSE2A, "hh:mm")
PAUSE2E = Format(PAUSE2E, "hh:mm")
PAUSE1 = Format(PAUSE1, "hh:mm")
PAUSE2 = Format(PAUSE2, "hh:mm")

KOMMEN = Format(KOMMEN, "hh:mm")
GEHEN = Format(GEHEN, "hh:mm")

MONAT = Zeiterfassung.ComboBox1.Value
PAUSE1A = Zeiterfassung.TextBox11.Value
PAUSE1E = Zeiterfassung.TextBox12.Value
PAUSE2A = Zeiterfassung.TextBox7.Value
PAUSE2E = Zeiterfassung.TextBox6.Value

Set bereich = Sheets(MONAT).Range("A1:A100")

Set ZELLE = bereich.Find(what:=S, lookat:=xlWhole, LookIn:=xlFormulas)

If ZELLE Is Nothing Then
    MsgBox "Bitte Datum korrekt eingeben"
Else
    Application.Goto ZELLE
    ZELLE.Offset(0, 1).Value = TextBox10.Text
    ZELLE.Offset(0, 2).Value = TextBox5.Text
    ZELLE.Offset(0, 4).Value = TextBox11.Text
    ZELLE.Offset(0, 5).Value = TextBox12.Text
    ZELLE.Offset(0, 6).Value = TextBox7.Text
    ZELLE.Offset(0, 7).Value = TextBox6.Text

    
End If
    
Unload Zeiterfassung

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:

 
 

  • 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 Datum find. mit Datum-Format
06.04.2021 22:15:42 sven
NotSolved
06.04.2021 23:35:43 ralf_b
NotSolved
07.04.2021 13:29:24 Gast48450
NotSolved
07.04.2021 16:35:50 ralf_b
NotSolved
07.04.2021 18:34:26 Gast85301
NotSolved
07.04.2021 18:46:43 ralf_b
NotSolved
07.04.2021 21:36:39 Gast80217
NotSolved
07.04.2021 21:56:36 ralf_b
NotSolved
07.04.2021 21:57:33 ralf_b
NotSolved