Office: VBA

Wiiua · 16. März 2015

Hallo liebe Leute,

ich komme bei folgenden VBA Code nicht weiter.
Ich versuche mittels .find ein Datum im bereits formatierten Format zu suchen - Zell Format = "dd/mm/", Inhalt von "17.03.2015" wird auch richtig als "17.03." angezeigt.
Leider finde finde ich keinen Lösungsansatz wie ich richtig nach diesen Format suchen kann.
Hier mein Code mit dem die Suche versucht habe:

Code:

'Geburtstag
Dim FindString_2 As Date
Dim Rng As Range

For MASTER_DAY = 1 To 31 Step 1
If Len(Cells(4, 7 + MASTER_DAY).Value) < 1 Then
GoTo EndLoop2
End If

FindString_2 = Format(Cells(4, 7 + MASTER_DAY).Value, "dd/mm/")

If Trim(FindString_2) "" Then

With Application.FindFormat
.NumberFormat = "dd/mm/"
End With
With Sheets("Mitarbeiter").Range("P" & PUBLIC_ERSTE_ZEILE_MITARBEITER, "P" & PUBLIC_LETZTE_ZEILE_MITARBEITER)
Set Rng = .Find(What:=FindString_2, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=True)
If Not Rng Is Nothing Then
AKTUELLE_ZEILE = PUBLIC_ERSTE_ZEILE_DIENSTPLAN

ANZAHL_MITARBEITER = Rng.Row - 11
ERSTE_ZEILE = 8
ZEILEN_PRO_MITARBEITER = 4
ERSTE_ZEILE_MITARBEITER = ERSTE_ZEILE
AKTUELLE_ZEILE = 0

For POINTER = 1 To ANZAHL_MITARBEITER Step 1
If POINTER = 1 Then
AKTUELLE_ZEILE = ERSTE_ZEILE_MITARBEITER
Else
AKTUELLE_ZEILE = AKTUELLE_ZEILE + ZEILEN_PRO_MITARBEITER
End If

'Platzhalter nach 5 Mitarbeiter
If POINTER > 5 Then
If POINTER = 6 Or POINTER = 11 Or POINTER = 16 Or POINTER = 21 Or POINTER = 26 Or POINTER = 31 Or POINTER = 36 Or POINTER = 41 Or POINTER = 46 Then
AKTUELLE_ZEILE = AKTUELLE_ZEILE + 1
End If
End If
Next POINTER

Cells(AKTUELLE_ZEILE, 7 + MASTER_DAY).AddComment
Cells(AKTUELLE_ZEILE, 7 + MASTER_DAY).Comment.Visible = False
Cells(AKTUELLE_ZEILE, 7 + MASTER_DAY).Comment.text text:=FindString_2 & Chr(10) & "Geburtstag von " & Chr(10) & Rng.Offset(0, -13)
End If
End With
End If

EndLoop2:
Next MASTER_DAY
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

HS(V) · 18. März 2015

Hallo,

Versuche's mal so.

Code:

FindString_2 = Format(Cells(4, 7 + MASTER_DAY).Value, "dd\/mm\/")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wiiua · 18. März 2015

Hallo,
daran liegt es nicht, es produziert sogar einen Laufzeitfehler.
Ich denke es liegt einfach an der falschen Verwendung der Funktion.

HS(V) · 18. März 2015

Nicht hier.

Klaus-Dieter · 18. März 2015

Hallo zusammen,

die Find-Methode ist etwas speziell, wenn man nach einem Datum sucht. Das hat nichts mit dem Format zu tun, in dem das Datum abgebildet ist. Wenn man ein Datum sucht, dass nicht durch eine Formel erzeugt wird, muss man den Parameter xlFormulas verwenden. Wird das Datum durch eine Formel erzeugt, dann wird der Parameter xlValues eingesetzt. Warum auch immer.

So geht es zum Beispiel:

Code:

Sub hsv()
Dim sstringvalue2, c
sstringvalue2 = Cells(1, 4)
Set c = Columns(1).Find(sstringvalue2, , xlFormulas, xlWhole)
c.Offset(, 1) = "gefunden"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V) · 18. März 2015

Hallo Klaus Dieter,

Das war auch meine erste option.
Ich konnte das Format mit einem Punkt in der Niederländischen version nicht reproduzieren.

Zitat:
Zell Format = "dd/mm/", Inhalt von "17.03.2015" wird auch richtig als "17.03." angezeigt.

Wiiua · 19. März 2015

Danke euch zwei, nun kann ich den Code auch nachvollziehen und fehlerfrei ausführen.

Es entspricht aber noch nicht meinem Vorhaben. Die Suche müsste genau andersrum sein.

Beispiel:
Ich möchte 2 Daten vergleichen um zu überprüfen ob Heute Geburtstag ist.
TAG ist in 19.03.2015 vorhanden
GEBURTSTAG ist in 19.03.1975 vorhanden
Suchen kann ich nicht nach dem Geburtstag da ja das Jahr anders ist, darum die Kürzung.
Die Suche nutze ich da 31 Tage durchlaufen werden und alle Geburtstage der Mitarbeiter überprüft werden. Performance Technisch dachte ich mir wäre es sinnvoller über die Suche laufen zu lassen.

Luschi · 19. März 2015

Hallo Wiiua,

warum arbeitest Du nicht mit 1 Hilfspalte, in der Du das Geburtsdatum auf das aktuelle Jahr umsetzt.
Angenommen, in C37 steht das Geburtsdatum, dann steht in der Hilfszelle D37 folgende Formel:
=DATUM(JAHR(HEUTE());MONAT(C37);TAG(C37))

Jetzt kannst du in dieser Hilfsspalte auch suchen.

Gruß von Luschi
aus klein-Paris

Office: VBA

VBA

VBA

VBA

VBA

VBA - Similar Threads - VBA

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)