Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Datum in TextBox - Zelle im Jahreskalender

Forumthread: Datum in TextBox - Zelle im Jahreskalender

Datum in TextBox - Zelle im Jahreskalender
05.01.2018 16:38:37
frank
Hi Leute
Ich habe ein UserForm mit TextBox 1 und 2.
In TextBox 1 steht ein Datum z.B 05.01.2018
In TextBox 2 steht eine Zahl z.B 3,5
In dem Tabellenblatt 1 habe ich einen Jahreskalender.
In Spalte A (A2 bis A32) stehen die Tage von 01 bis 31
In den Spalten B bis M (B1 bis M1) die Monate von Januar bis Dezember.
Wie kann ich am besten den Wert aus TextBox 2 in die Zelle des Datums eintragen.
Gruß
frank
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum in TextBox - Zelle im Jahreskalender
05.01.2018 16:57:39
Sepp
Hallo Frank,
Dim lngDay As Long, lngMonth As Long

If IsDate(TextBox1) Then
  lngDay = Day(CDate(TextBox1))
  lngMonth = Month(CDate(TextBox1))
  Sheets("Tabelle1").Cells(lngDay + 1, lngMonth + 1) = _
    IIf(IsNumeric(TextBox2), CDbl(TextBox2), TextBox2)
End If

Gruß Sepp

Anzeige
AW: Datum in TextBox - Zelle im Jahreskalender
05.01.2018 19:36:15
frank
Danke Sepp
Leider bekomme ich die Fehlermeldung
Fehler beim Kompillieren Variable nicht difiniert und lngDay ist blau markiert.
Werde das morgen noch mal in einer neuen Arbeitsmappe testen.
Gruß
Frank
AW: Datum in TextBox - Zelle im Jahreskalender
05.01.2018 19:45:49
Sepp
Hallo Frank,
die Deklarationen musst du natürlich schon auch übernehmen!
Gruß Sepp

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige