in Zeile per inputbox suchen

[omron2003]

Hallo Forum,

ich suche eine Möglichkeit, in Zeile 2 per Inputbox
ein Datum (z.B. 09.07.2020) zu suchen und zu markieren.

Besten Dank im Voraus
Omron2003

[shift-del]

Moin Omron2003

STRG-F.

[schauan]

Hallöchen,

... und falls es auf eine Makrolösung hinauslaufen soll, hier die Hälfte mit der Inputbox:

Code:

Sub test()
'InputBox Type Parameter Options
'Value  Type
'   0   Formula
'   1   Number
'   2   String
'   4   Boolean - True or False
'   8   Range
'  16   An error value like #N/A
'  64   Array of values
Dim dDate
dDate = Application.InputBox("Datum eingeben", "Datumseingabe", , , , , , 1)
If IsDate(CDate(dDate)) Then
  'hier statt der Meldung die Suche
   MsgBox CDate(dDate)
End If
End Sub

[RPP63]

Moin André!
Ist If IsDate(CDate(dDate)) nicht doppelt gemoppelt?
Es kann (hier) zwar nicht in einen Fehler laufen, weil die InputBox den Type 1 hat …
… aber generell würde ich nur auf If IsDate(dDate) prüfen.

Prinzipiell halte ich aber nichts von dieser Art der Eingabe.
Schließlich ist auch "12,3" ein für VBA gültiges Datum.
CDate(12.3)
ergibt den 11.01.1900 07:12:00

Gruß Ralf

[schauan]

Hallöchen Ralf,

ich hab mir auch ein paar Fragen gestellt   

- ob überhaupt eine VBA-Lösung erwünscht ist - ich nehme an, ja, da explicit nach einer Inputbox gefragt wurde,
- ob es unbedingt eine Inputbox sein muss
- wenn ja, die Syntax umfassender prüfen und wenn nein, könnte man (m)einen Datepicker verwenden
- ob die Inputbox nur ein Teil eines Projektes ist - dann könnte man noch darauf hinweisen, das man meistens auf die Markierung (Selection) verzichten kann

:17:

übrigens, 12.3 wird mit der codierung wie auch bei einer Zelleingabe als Datum erkannt und zum 12.3.20 gemacht - ohne cDate wäre es kein Datum. Ich nehme aber auch an, dass das aus 12,3 hervorgehende Datum nicht in der Zeile gefunden wird

[RPP63]

übrigens, 12.3 wird mit der codierung wie auch bei einer Zelleingabe als Datum erkannt und zum 12.3.20 gemacht - ohne cDate wäre es kein Datum. Ich nehme aber auch an, dass das aus 12,3 hervorgehende Datum nicht in der Zeile gefunden wird

Ja, ich wollte eben keine Romane schreiben , aber gut:

Da die Inputbox Type:=1 hat, wird intern geprüft (IsNumeric()), ob es sich um eine Zahl handelt.
Die Übergabe des Textes "12,3" an Deinen Variant wird in VBA mittels CDbl("12,3") erledigt, was 12.3 entspricht.

Conclusio:
Cdate("12,3") ergibt den 12.03.2020
"Deine" Variante erzeugt jedoch ein
CDate(CDbl("12,3")) was den 11.01.1900 07:12:00 ergibt.

Ist halt die babylonische Sprachverwirrung deutsches Excel und US-englisches VBA.

Gruß Ralf

[schauan]

Hi Ralf,

ich denke, wir sind uns einig Die Fragen zielen auch ein bisschen an den TE, aber vermutlich kommt er erst Montag von der Arbeit wieder hier vorbei