Textbox Ausgabe Text statt Zahl
28.04.2017 09:01:49
Glanck
ich möchte mir gerne eine Eingabemaske erstellen bei der in einer Textbox das Datum eingetragen und nachdem drücken eines Button der Wert in eine kleine Datenbank geschrieben wird und das Fortlaufend.
Anschließend ruft eine kleine Tabelle, neben anderen Daten, den aktuellsten hinterlegten Wert ab und füllt seine Zelle.
Problem dabei ist, dass das Datum nicht erkannt wird als Datum, sondern als wahrscheinlich nicht definierbare Zahl für Excel und somit auch nicht als letzter aktuellster Wert übernommen wurde.
Der Button "Speichern" in der Eingabemaske
Private Sub Speichern1_Click()
Dim lZeile As Long
lZeile = 2
Do While Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) ""
lZeile = lZeile + 1
Loop
Tabelle11.Cells(lZeile, 1).Value = CStr(TextBox1.Text)
Tabelle11.Cells(lZeile, 2).Value = TextBox2.Text
End Sub
Die Formel aus der Zelle Datum:
{=INDEX(Daten!A:A;MAX(ISTZAHL(Daten!A2:A32)*ZEILE(Daten!A2:A32)))}
Als Matrixfunktion ausgeführt.
Gebe ich also nun in das Textfeld das Datum 01.04.2017 ein und speichere dies ab, so ist in der Tabelle Daten in Zelle A2 dies auch abgelegt worden. Jedoch kann sich die Formel nicht diesen Wert abrufen. Ich habe versucht Statt Istzahl dann Isttext zu nehmen auch das ohne Erfolg. Nach meinen bisherigen Versuchen und Ansätzen vermute ich, dass bei einem Datum das Format übergeben werden müsste da es sonst zu Problemen führt.
Denn den 01.04 zum Beispiel übernimmt er als 1 und kann dies anschließend auch als 01.01.1990 auslesen.
Bestimmt ist mein Fehler recht simpel. Ich bin gespannt welchen Wald ich vor lauter Bäumen nicht sehe.
Danke.