Office: find mit Datum

Helfe beim Thema find mit Datum in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Abend zusammen, ich fast am verzweifeln. Ich versuche mit diesem Code in einem Tabellenblatt in den Zellen E15 bis E34 ein Datum zu finden. Aber... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von hilfsente, 16. Oktober 2009.

Seite 1 von 2

HILFSENTE

hilfsente

find mit Datum

Guten Abend zusammen,

ich fast am verzweifeln. Ich versuche mit diesem Code in einem Tabellenblatt in den Zellen E15 bis E34 ein Datum zu finden. Aber irgenwie mache ich einen Fehler; denn ich bekomme immer #Wert! zurück.

Weiss jemand, woran das liegen kann ?

Code:

Dim c

Range("'A&E Report'!E15:E34").Select
c = Selection.Find(What:="11.11.2008", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

If c = nothing then
msgBox "Nichts gefunden"
else
Debug.Print c
end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße und schon mal herzlichen Dank für jeden Hinweis

Grüße Hilfsente

:)

hilfsente, 16. Oktober 2009

#1
JOSEF E

josef e

Hi,

"Select" und "Activate" gewöhnen wir uns gar nicht erst an;-))

Probier mal, aber es hängt stark von deinen Daten ab, ob du so erfolgreich bist. Beim Datum ist .Find manchmal recht störrisch.

Sub findDate()
Dim rngFind As Range

Set rngFind = Range("'A&E Report'!E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing
End Sub

josef e, 18. Oktober 2009

#2
JOSEF E

josef e

... deklaration des Ranges geachtet.

so sollte es laufen.

Sub findDate()
Dim rngFind As Range

With Sheets("A&E Report")
Set rngFind = .Range("E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=.Range("E34"), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With

If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing
End Sub

josef e, 18. Oktober 2009

#3
HILFSENTE

hilfsente

find mit Datum

Hallo Sepp,

das ging ja riesig schnell - klasse herzlichen Dank für deine Antwort.

Ich habe deinen Code in einem Modul als Funktion eingefügt; leider hats immer noch nicht funktioniert.
Ist das evtl. falsch das in ein Modul zu schreiben ?

Code:

Function datfinden()
Dim rngFind As Range
Set rngFind = Range("'T&E Report'!E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße

Hilfsente

hilfsente, 18. Oktober 2009

#4
HILFSENTE

hilfsente

Hallo,

ich habs geändert; leider kommt immer noch dieses #Wert!

Code:

Function tssatz(kziua, kland, ktvon, ktbis, kessen)
Dim dauer ' Dauer der Reise
Dim vortag 'Datum des Vortags
Dim vortagyes As Boolean 'ist ein Vortag vorhanden
Dim i 'Hilfszähler
Dim col As Integer 'Spalte in der der Satz steht
Dim koord 'Koordinaten der aktiven Zelle
Dim satz As Double 'Variable, die den ermittelten Satz für weitere Berechnungen trägt
Dim rngFind As Range

'ermittelt die Koordinaten der aktiven Zelle
koord = ActiveCell.Address

'Schaut nach, ob es einen Vortag gibt
vortag = kziua - 1
'vortag = Format(vortag, "Short Date")

With Sheets("T&E Report")
Set rngFind = Range("'T&E Report'!E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing

'Ermittelt die Dauer;
'abhängig ob ein Vortag existiert und gibt die Spalte in der Satztabelle zurück

dauer = (ktbis - ktvon) * 24

If vortagyes = True Then
If ktvon = 0 Then
If dauer >= 2 And dauer < 6 Then col = 7
If dauer >= 10 Then col = 8
End If
Else
If dauer < 6 Then col = 4
If dauer >= 6 And dauer < 10 Then col = 5
If dauer >= 10 Then col = 6
End If

'Schaut den Satz in der Tabelle Daily Rates (HIdden) nach und gibt ihn zurück
satz = Application.WorksheetFunction.VLookup(kland, Range("'Daily_Rates (Hidden)'!c7100"), col, False)

'Exceptions
'Wenn Inland; dann...

If kland Like "FI*" Then

'Wenn Inland; zwischen 6 und 10 h und ein Essen -> dann halber Satz
If col = 5 Then
If kessen = 1 Then satz = satz / 2
End If

'Wenn Inland; ganzer Tag und 2 Essen -> dann halber Satz
If col = 6 Then
If kessen = 2 Then satz = satz / 2
End If

End If

'Gibt den errechneten Satz als Ergebnis der Formel zurück
tssatz = satz

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Hilfsente

hilfsente, 18. Oktober 2009

#5
JOSEF E

josef e

Hi,

Modul ist OK, aber wozu als Funktion?

Eine Funktion verwendet man, wenn man einen Rückgabewert erwartet/braucht.

Hast du den Code aus meinem zweiten Post probiert?

josef e, 18. Oktober 2009

#6
JOSEF E

josef e

Hi nochmal,

du hast den Code zwar geändert, aber nicht richtig.

Kopier doch meinen kompletten Code in ein Modul.

josef e, 18. Oktober 2009

#7
HILFSENTE

hilfsente

find mit Datum

Hi,

eigentlich ist es ein Bestandteil von einer größeren Funktion, die bis zu dem Punkt gelaufen ist.
Das Problem trat ab dem Moment auf, von dem ich versucht habe nach dem Datum zu suchen.
Ich hänge sie auch gerne an - Deinen Code habe ich schon integriert

Grüße und vielen vielen Dank für deine Hilfe

Hilfsente

Code:

Function tssatz(kziua, kland, ktvon, ktbis, kessen)
Dim dauer ' Dauer der Reise
Dim vortag 'Datum des Vortags
Dim vortagyes As Boolean 'ist ein Vortag vorhanden
Dim i 'Hilfszähler
Dim col As Integer 'Spalte in der der Satz steht
Dim koord 'Koordinaten der aktiven Zelle
Dim satz As Double 'Variable, die den ermittelten Satz für weitere Berechnungen trägt
Dim rngFind As Range

'ermittelt die Koordinaten der aktiven Zelle
koord = ActiveCell.Address

'Schaut nach, ob es einen Vortag gibt
vortag = kziua - 1
'vortag = Format(vortag, "Short Date")

Set rngFind = Range("'T&E Report'!E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing

'Ermittelt die Dauer;
'abhängig ob ein Vortag existiert und gibt die Spalte in der Satztabelle zurück

dauer = (ktbis - ktvon) * 24

If vortagyes = True Then
If ktvon = 0 Then
If dauer >= 2 And dauer < 6 Then col = 7
If dauer >= 10 Then col = 8
End If
Else
If dauer < 6 Then col = 4
If dauer >= 6 And dauer < 10 Then col = 5
If dauer >= 10 Then col = 6
End If

'Schaut den Satz in der Tabelle Daily Rates (HIdden) nach und gibt ihn zurück
satz = Application.WorksheetFunction.VLookup(kland, Range("'Daily_Rates (Hidden)'!c7100"), col, False)

'Exceptions
'Wenn Inland; dann...

If kland Like "FI*" Then

'Wenn Inland; zwischen 6 und 10 h und ein Essen -> dann halber Satz
If col = 5 Then
If kessen = 1 Then satz = satz / 2
End If

'Wenn Inland; ganzer Tag und 2 Essen -> dann halber Satz
If col = 6 Then
If kessen = 2 Then satz = satz / 2
End If

End If

'Gibt den errechneten Satz als Ergebnis der Formel zurück
tssatz = satz

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hilfsente, 18. Oktober 2009

#8
HILFSENTE

hilfsente

Hallo,

ich bins nochmal; unsere postings haben sich überschnitten -
im Moment sieht die Funktion so aus:

Grüße Hilfsente

Code:

Function tssatz(kziua, kland, ktvon, ktbis, kessen)
Dim dauer ' Dauer der Reise
Dim vortag 'Datum des Vortags
Dim vortagyes As Boolean 'ist ein Vortag vorhanden
Dim i 'Hilfszähler
Dim col As Integer 'Spalte in der der Satz steht
Dim koord 'Koordinaten der aktiven Zelle
Dim satz As Double 'Variable, die den ermittelten Satz für weitere Berechnungen trägt
Dim rngFind As Range

'ermittelt die Koordinaten der aktiven Zelle
koord = ActiveCell.Address

'Schaut nach, ob es einen Vortag gibt
vortag = kziua - 1
'vortag = Format(vortag, "Short Date")

With Sheets("T&E Report")
Set rngFind = Range("'T&E Report'!E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With
If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing

'Ermittelt die Dauer;
'abhängig ob ein Vortag existiert und gibt die Spalte in der Satztabelle zurück

dauer = (ktbis - ktvon) * 24

If vortagyes = True Then
If ktvon = 0 Then
If dauer >= 2 And dauer < 6 Then col = 7
If dauer >= 10 Then col = 8
End If
Else
If dauer < 6 Then col = 4
If dauer >= 6 And dauer < 10 Then col = 5
If dauer >= 10 Then col = 6
End If

'Schaut den Satz in der Tabelle Daily Rates (HIdden) nach und gibt ihn zurück
satz = Application.WorksheetFunction.VLookup(kland, Range("'Daily_Rates (Hidden)'!c7100"), col, False)

'Exceptions
'Wenn Inland; dann...

If kland Like "FI*" Then

'Wenn Inland; zwischen 6 und 10 h und ein Essen -> dann halber Satz
If col = 5 Then
If kessen = 1 Then satz = satz / 2
End If

'Wenn Inland; ganzer Tag und 2 Essen -> dann halber Satz
If col = 6 Then
If kessen = 2 Then satz = satz / 2
End If

End If

'Gibt den errechneten Satz als Ergebnis der Formel zurück
tssatz = satz

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hilfsente, 18. Oktober 2009

#9
JOSEF E

josef e

Hi,

sorry, aber verwendest du das als Tabellenfunktion?

Was hat "Activecell" in einer Tabellenfunktion verloren?
Was hat eine MsgBox in ihr verloren?
Warum übergibst du der Funktion etliche Parameter, andererseits beziehst du dich in der Funktion auf fix programmierte Tabellen/Bereiche?

Was du berechnen willst, lässt sich sicher mit Excelfunktionen einfacher lösen.

josef e, 18. Oktober 2009

#10
HILFSENTE

hilfsente

Hallo Sepp,

ich habe es abgeändert. Prima; jetzt habe ich die Fehlermeldung weg.

Die MsgBox war nur temporär, wegen dem Suchen nach dem Datum.
Problem ist jetzt noch, dass ich weiss, dass in dem Suchbereich
der 11.11.08 (so formatiert) vorhanden ist; die Suche ergibt jedoch kein Ergebnis.
Muss ich das noch umwandeln ?

Grüße Hilfsente

hilfsente, 18. Oktober 2009

#11
JOSEF E

josef e

Hi,

probier mal statt " LookIn:=xlValues " , " LookIn:=xlFormulas " aus.

josef e, 18. Oktober 2009

#12
HILFSENTE

hilfsente

find mit Datum

Hallo Sepp,

leider auch ohne Erfolg...

Es sieht jetzt so aus:

Code:

With Sheets("T&E Report")
Set rngFind = .Range("E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=.Range("E34"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With

If rngFind Is Nothing Then
Debug.Print "Nichts gefunden"
Else
Debug.Print "Vortag da"
End If

Set rngFind = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Hilfsente

hilfsente, 18. Oktober 2009

#13
JOSEF E

josef e

Hi,

ohne deine Daten zu sehen wird das schwierig.

josef e, 18. Oktober 2009

#14
HILFSENTE

hilfsente

Hallo Sepp,

eigentlich werden in die Felder nur die jeweiligen Tagesdaten eingetragen.
Format Benutzerdefiniert TT.MM.JJ@ -> z.B 11.11.08
Kann das durch nochetwas beeinflusst werden ?

Grüße Hilfsente

hilfsente, 18. Oktober 2009

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

find mit Datum

Die Seite wird geladen...

find mit Datum - Similar Threads - find Datum
letztes Datum finden
in Microsoft Excel Hilfe
letztes Datum finden: Hallo Leute, hab jetzt vergebens die KI bemüht mir eine einfache Formel zu erstellen.o_O Jetzt frag ich einfach mal hier da es ja meist besser funzt.*:)* Also: ich hab ne Tabelle in der ich in...
Power Query - Rücklaufkontrolle und Laufzeit berechnen
in Microsoft Excel Hilfe
Power Query - Rücklaufkontrolle und Laufzeit berechnen: Liebe Power Query Enthusiasten Ich habe folgende Aufgabe: Für Versandboxen mit eindeutiger ID soll eine Rücklaufkontrolle und Berechnung der Laufzeit erstellt werden. Die entsprechenden Daten aus...
Ältestes Datum finden
in Microsoft Excel Hilfe
Ältestes Datum finden: Hallo In Spalte A befinden sich Personennummern. Diese können mehrfach vorkommen (hier gelb markiert). In Spalte B ist das Eintrittsdatum der Personen zu finden. Spalte C ist gesucht: Ich möchte...
Bestimmtes Ereignis(Datum) in Zeitraum finden
in Microsoft Excel Hilfe
Bestimmtes Ereignis(Datum) in Zeitraum finden: Hallo zusammen, ich brauche dringend Hilfe mit einer Excel-Formel. Ich habe eine Tabelle mit Veranstaltungen und möchte gerne auslesen, ob für Datum X eine Veranstaltung geplant ist. Das Problem...
Kleinstes Datum finden und Zeile ausgeben
in Microsoft Excel Hilfe
Kleinstes Datum finden und Zeile ausgeben: Hallo, Ich habe einen Datensatz, in dem zu verschiedenen Fahrzeugen jeden Tag die Betriebsstunden aufgezeichnet werden. Folglich möchte ich mir die Betriebsstunden am ersten und am letzten Tag...
Saisonale Mietpreise einem Zeitraum zuordnen
in Microsoft Excel Hilfe
Saisonale Mietpreise einem Zeitraum zuordnen: Hallo zusammen. Ich möchte Mietpreise einer Ferienwohnung berechnen. Wenn ich den Zeitraum eingebe, soll der Mietpreis pro Tag aus einer zweiten Tabelle geholt werden und mit der Anzahl der...
nächstkleineres Datum finden!
in Microsoft Excel Hilfe
nächstkleineres Datum finden!: Hallo zusammen, ich bin bereits seit zwei Tagen verzweifelt auf der Suche nach einer Formel, finde jedoch keine Lösung, auch in sämtlichen Foren bin ich nicht fündig geworden :confused:...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden