Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Datum in TextBox - Zelle im Jahreskalender
05.01.2018 15: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

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

Betreff
Datum
Anwender
Anzeige
AW: Datum in TextBox - Zelle im Jahreskalender
05.01.2018 15: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 18: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 18:45:49
Sepp
Hallo Frank,
die Deklarationen musst du natürlich schon auch übernehmen!
Gruß Sepp

342 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige