Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textbox1 +365 Tage

Textbox1 +365 Tage
HaGeN
Tach zusammen,
ich glaube ich stehe gradmal so zimmlich auf dem Schlauch!
aber ich hoffe ihr könnt mir weiterhelfen!
1) ich habe in der Textbox1 ein Datum stehen:
TextBox1.Value = Application.WorksheetFunction.Max(ThisWorkbook.Sheets("Database 1").Range("110:110"))
in 110:110 stehen die Datume... Excel gibt mir aber nicht das Maximale Datum aus diesem Bereich, sondern immer den heutigen Tag!?
was ist da falsch?
2) Zudem habe ich das Problem das ich in TextBox2 das Datum aus TextBox1 + 1Jahr stehen haben möchte, funkt aber leider auch nicht!?
wo ist hier mein Problem?
Danke für eine Hilfestellung.
Grüße
HaGeN

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

Betreff
Benutzer
Anzeige
AW: Textbox1 +365 Tage
24.03.2010 16:36:19
Hajo_Zi
Hallo Unbekannte(r),
ich hätte CDate(Application.WorksheetFunction.Max(ThisWorkbook.Sheets("Tabelle3").Rows(110)))
Eine Textbox enthält Text möchtest Du damit rechnen mußt Du es erst umwandln Cdate(Textbox1)

AW: Textbox1 +365 Tage
24.03.2010 16:48:59
hary
Hallo
so?

Private Sub UserForm_Initialize()
TextBox1.Value = CDate(Application.WorksheetFunction.Max(ThisWorkbook.Sheets("Database 1").Rows( _
110)))
TextBox2.Value = DateSerial(Year(TextBox1) + 1, Month(TextBox1), Day(TextBox1))
End Sub

gruss hary
Anzeige
DANKE
24.03.2010 16:53:00
HaGeN
Das habe ich gesucht!
Grüße
HaGeN

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige