Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm Datum minus Datum

UserForm Datum minus Datum
14.12.2017 11:51:31
Sandro
Hallo liebes Forum
Ich habe 3 UserFormen
1 -> Datum Eingang
2 -> Datum geplantes Ende
3 -> Geplante Dauer
Ziel ist es, dass in der 3. Box die Differenz der beiden Daten (in Tagen) berechnet wird. Mit meinem jetzigen Code funktioniert dies aber leider nicht: 
Private Sub Geplante_Dauer_rechnen()
If Datum_Eingang_Auftrag.Text = "" Then Exit Sub
With Geplante_Dauer
Geplante_Dauer.Text = (Val((DateValue(Datum_Bestätigtes_Ende) - DateValue( _
Datum_Eingang_Auftrag)))) 'Berechnung Geplante Dauer
End With
End Sub

Weiss jemand Rat um dieses Problem zu lösen?
Danke & Gruss
Sandro

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm Datum minus Datum
14.12.2017 12:04:48
yummi
hallo Sandro,
nimme datediff
Geplante_Dauer.Text = DateDiff("d", DateSerial(Year(Cells(1, 1).Value), Month(Cells(1, 1).Value), Day(Cells(1, 1).Value)), DateSerial(Year(Cells(1, 2).Value), Month(Cells(1, 2).Value), Day(Cells(1, 2).Value)))
ich weiß nciht wie du deien Userform aufgebaut hast du musst cells1,1 erstzen durch edein start und Cells(1,2) durch dein enddatum
Gruß
yummi
AW: UserForm Datum minus Datum
14.12.2017 12:27:34
Sandro
Hallo Yummi
Vielen Dank für die rasche Rückmeldung.
Habe deinen Code getestet, er sieht nun folgendermassen aus:
Private Sub Geplante_Dauer_rechnen()
If Datum_Eingang_Auftrag.Text = "" Then Exit Sub
With Geplante_Dauer
Geplante_Dauer.Text = DateDiff("d", DateSerial(Year(Datum_Eingang_Auftrag).Value), Month( _
Datum_Eingang_Auftrag).Value),Day(Datum_Eingang_Auftrag).Value)), DateSerial(Year(Datum_Bestätigtes_Ende).Value), Month(Datum_Bestätigtes_Ende).Value), Day(Datum_Bestätigtes_Ende).Value))) 'Berechnung Kosten Geplante Dauer
End With
End Sub
Leider kommt immer die Fehlermeldung "Erwartet: Anweisungsende" und zwar markiert er das Komma nach dem 2. "Value". Kannst du mir weiterhelfen?
Gruss
Sandro
Anzeige
AW: UserForm Datum minus Datum
14.12.2017 12:34:36
yummi
Hallo Sandro,
DateDiff("d", DateSerial(Year(Datum_Eingang_Auftrag.Value), Month(Datum_Eingang_Auftrag.Value),Day(Datum_Eingang_Auftrag.Value)), DateSerial(Year(Datum_Bestätigtes_Ende.Value), Month(Datum_Bestätigtes_Ende.Value), Day(Datum_Bestätigtes_Ende.Value))) 'Berechnung Kosten Geplante Dauer
es kan nsein dass du anstatt .value .text nehmen musst, falls deine Datum_Eingang_Auftrag eine Textbox ist (gilt für beide.
in eienr userform besser so ansprechen:
me.textbox.text
wobeitextbox durch dein vergebenen namen ersetzt werden muss.
Gruß
yummi
AW: UserForm Datum minus Datum
14.12.2017 13:28:10
Sandro
Hallo Yummi
Leider funktioniert der Code weder mit .value noch mit .text "Unverträgliche Typen" es sieht nun so aus:
Private Sub Geplante_Dauer_rechnen()
If Datum_Eingang_Auftrag.Text = "" Then Exit Sub
With Geplante_Dauer
Geplante_Dauer.Text = DateDiff("d", DateSerial(Year(Me.Datum_Eingang_Auftrag.Text), Month( _
Me.Datum_Eingang_Auftrag.Text), Day(Me.Datum_Eingang_Auftrag.Text)), DateSerial(Year(Me.Datum_Bestätigtes_Ende.Text), Month(Me.Datum_Bestätigtes_Ende.Text), Day(Me.Datum_Bestätigtes_Ende.Text))) 'Berechnung Kosten Geplante Dauer
End With
End Sub
Datum_Eingang_Auftrag & Datum_Bestätigtes_Ende sind beides TextBoxen. In die Boxen wird das Datum eingetragen. folgender Code überprüft dann das Format beim Verlassen der Box:
Private Sub Datum_Eingang_Auftrag_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Datum_Eingang_Auftrag.Text = "" Then Exit Sub
If IsDate(Datum_Eingang_Auftrag.Text) Then
Datum_Eingang_Auftrag.Text = Format(Datum_Eingang_Auftrag.Text, "DD.MM.YYYY")
Format_Datum.Visible = False
Else
Format_Datum.Visible = True
Datum_Eingang_Auftrag.Value = ""
End If
End Sub
Weisst du noch weiter was ich versuchen kann? Würde es Helfen, wenn ich das ganze File hoch lade?
Gruss
Sandro
Anzeige
AW: UserForm Datum minus Datum
14.12.2017 13:30:55
yummi
Hallo sandro,
ja lad mal hoch
AW: UserForm Datum minus Datum
14.12.2017 13:50:56
Sandro
Hallo Yummi
https://www.herber.de/bbs/user/118328.xlsm
Hier das File, es ist noch nicht alles fertig, bin einfach bei der Geplanten Dauer stecken geblieben...
Danke für deine Mühe!
Gruss
Sandro
AW: UserForm Datum minus Datum
14.12.2017 14:13:19
yummi
Hallo Sandro,
du rechnest zu früh!
lösch mal

Private Sub Datum_Eingang_Auftrag_change()
'If Datum_Eingang_Auftrag.Text = "" Then Exit Sub
'Geplante_Dauer_rechnen
End Sub
Private Sub Datum_Bestätigtes_Ende_change()
'If Datum_Bestätigtes_Ende.Text = "" Then Exit Sub
'Geplante_Dauer_rechnen
End Sub
und ruf Geplante_Daer_Berechnen in Erfassen_click auf

Private Sub Erfassen_Click()
If Tätigkeit.Text = "" Or Name_Bearbeiter = "" Or Auftragsbezeichnung = "" Or  _
Datum_Eingang_Auftrag = "" Or Datum_Bestätigtes_Ende = "" Then
MsgBox "Alle Pflichtfelder ausfüllen!" 'wenn eines der Felder leer ist dann Meldung
Else
Geplante_Dauer_rechnen
Bei deienr Version musst du bei jeder eingabe abfragen, ob schon beide datum vollständig sind und erst dann rechnen, reicht doch auch wenn du den button drückst.
Falls das nicht reicht musst du abfragen vor aufruf der rechnung überprüfen, das die eingaben vollständig ist.
Du könntest das Feld auch weglassen und den wert direkt in dein tabellenblatt schreiben so wie jetzt.
Gruß
yummi
Anzeige
AW: UserForm Datum minus Datum
14.12.2017 14:54:22
Sandro
Hallo Yummi
Jetzt funktioniert es wunderbar! Das war die Lösung, wusste nicht, dass das Rechnen einen solchen Einfluss hat. Ich danke dir ganz herzlich für deine Geduld.
Gruss
Sandro

303 Forumthreads zu ähnlichen Themen

Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
Anzeige
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Monat und Jahr aus Datum extrahieren
ItsMyLife

Hallo,
für ein Diagramm will ich die Anzahl von Datensätzen die nach dem Datumsfeld in einen Monat fallen ermitteln.
Wie kann ich den Monat und das Jahr aus einem Datumsfeld extrahieren.
Ich meine nicht die Anzeige (Format Zellen), sondern den tatsächlichen Feldinhalt?
19.05.2009 14:21:13
Thread-ID: 1076146
3 Beiträge
Anzeige
Aus Systemdatum Monatszahl ermitteln
Wolfgang

Hallo,
wäre denkbar, aus dem Systemdatum den Monat als Monatszahl darzustellen, so dass bei WorkbookOpen in Zelle A1 des Tabellenblattes "Start" automatsch die aktuelle Monatszahl minus 1 Monat, also nun 08 erscheint? Kann hierzu unter Recherche bzw. auf der Excel-CD nichts entdecken, so da...
19.09.2009 18:41:39
Thread-ID: 1104115
12 Beiträge
Enddatum eines Monats bestimmen? (28/29/30/31)
Tim

Hallo,
gibt es in VBA eine Möglichkeit dass Enddatum eines Monats zu bestimmen? Also ich sag ihm Juli und er gibt mir 31 zurück ? Ich könnte auch eine case-anweisung bauen aber vielleicht kann VBA das ja auch schon..
04.11.2009 20:40:00
Thread-ID: 1114589
5 Beiträge
Aus Monats und Jahreszahlen ein Datum erzeugen.
Josef_T

Guten Abend zusammen.
Habe in C1 eine zweistellige Monatszahl und in D1 eine vierstellige Jahreszahl.
zB. so: in C1 steht 08 (August)und in D1steht 2010. Der Monat und das
Jahr wird händig eingetragen. Nun möchte ich, dass in B1 aus den Daten ein Datum erstellt wird,
dass immer...
18.12.2009 21:37:54
Thread-ID: 1124989
4 Beiträge
Datum plus 14 Werktage
Sonnenpeter

Hallo,
das www ist voll mit Nettoarbeitstagen etc.
Ich suche eine Formel die vom Anfangsdatum ausgehend 14 Werktage dazu addiert.
Habt ihr da was vorliegen?
Gruß SP
20.03.2010 15:23:27
Thread-ID: 1147268
5 Beiträge
Diagrammtitel Datum+Text
Stefan

Hallo Leute,
es handelt sich um folgendes Problem. Ich würde gern in einem Diagrammtitel einen selbstgeschriebenen Text, also kein Text der bereits in einer Zelle vorhanden ist und das aktuelle Datum vereinen. Ist dies möglich und wenn ja wie?
Vielen dank für eure Hilfe
Gruß Stefan<...
13.04.2010 12:57:13
Thread-ID: 1151441
4 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
9
6
2
8
11
4
3
4
3
21
1
2
9
2
1
8
11
35
1
4
2
7
4
3