Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1464to1468
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
Datum + x Tage in UF berechnen
06.01.2016 23:40:16
Ludmila
Schönen Abend Zusammen,,
ich habe immer wieder Probleme das Enddatum zu errechnen.
Startdatum = ComboBox1
Anzahl der Tage = ComboBox2
Es soll in der Textbox1 das Enddatum stehen gem. Vorgaben.
Wenn in ComboBox2 "AZ" gewählt wird, dann 18 Tage, "SR" dann 30 Tage
Tage = Werktage Mo.- bis Sa.
Feiertage sollten ebenfalls berücksichtigt werden.
Danke und noch eine schöne Nacht!
Gruß
Ludmila
https://www.herber.de/bbs/user/102635.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: Datum + x Tage in UF berechnen
07.01.2016 00:02:28
Daniel
Hi
steht doch schon fast richtig da.
folgendes ist zu korrigieren:
1. der Comboboxwert muss mit CDate in ein Datum gewandelt werden (in der Combobox steht ein Text)
2. du musst den Zellbereich für die Feiertage als Range angeben
3. um den Datumswert für die Textbox ins richtige format zu bringen, nimmt man die Funtkion Format
TextBox1.Text = Format(WorksheetFunction.WorkDay_Intl(CDate(UserForm1.ComboBox1.Value), sArt, 11, .Range(.Cells(3, 7), .Cells(3, 20))), "DD.MM.YYYY")
Gruss Daniel

AW: Datum + x Tage in UF berechnen
07.01.2016 00:05:46
Sepp
Hallo Ludmila,
Private Sub CommandButton2_Click()
Dim sArt As Long
If ComboBox2.Value = "SR" Then sArt = 30
If ComboBox2.Value = "AZ" Then sArt = 18

TextBox1.Text = Format(WorksheetFunction.WorkDay_Intl(CDate(ComboBox1.Value), sArt, 11, _
  Tabelle1.Range("feiertage")), "dd.MM.yyyy")

End Sub

Gruß Sepp

Anzeige
Vielen Dank Euch beiden. o.T.
07.01.2016 05:14:13
Ludmila
.

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige