Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
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
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeit berechnen in Userform

Zeit berechnen in Userform
24.12.2002 12:24:24
Harald S
Hallo alle zusammen.
Vorerst wünsch ich mal allen in diesem Forum ein schönes Weihnachtsfest

Nun zu meinem Problem.
Habe in einer Userform die Textfelder " Beginn" und "Ende", die bei betätigen eines Buttons in eine Tabelle in die Gewünschte Spalte geschrieben werden. Nun möchte ich erreichen, das in eine zusätzlichen Spalte die Differenz Ende-Beginn eingetragen wird. Das zusätzliche Problem ist, das ab und zu die Zeiten über Mitternacht berechnet werden müssen.
Ist das überhaupt möglich?
Der Sinn dieser Sache ist: möglichst wenige Formeln in der Tabelle!
Wäre schön wenn es dafür eine Lösung gäbe

Gruß
Harald

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

Betreff
Datum
Anwender
Anzeige
Re: Zeit berechnen in Userform
24.12.2002 12:43:44
Hajo_ZI
Hallo Harald

die Prüfung das e sich um Uhrzeiten handelt habe ich jetzt nichtgemacht.


Option Explicit

	

Private Sub CommandButton1_Click()

	Range("A1") = CDate(TXT_Anfang)

	Range("B1") = CDate(Txt_Ende)

	If CDate(TXT_Anfang) < CDate(Txt_Ende) Then

		Range("C1") = 1 - CDate(TXT_Anfang) + CDate(Txt_Ende)

	Else

		Range("C1") = CDate(TXT_Anfang) - CDate(Txt_Ende)

	End If

	Range("A1:C1").NumberFormat = "h:mm:ss"

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Anzeige
Re: Zeit berechnen in Userform
24.12.2002 13:14:51
Harald S
Besten Dank
Funktioniert natürlich wie bei Hajo üblich
EINWANDFREI!!
nochmals schöne Feiertage dir und deiner Familie
Ps.: mein schönster Weiihnachtswunsch wäre mal annähernd so gut zu werden wie Hajo

Harald

Re: Zeit berechnen in Userform
24.12.2002 13:18:34
Hajo_ZI
Hallo Harald

da bist Du ja auf dem besten Wege. Das mitlesen im Forum hilft da ungemein.

Auch Dir und Deiner Familie ein schönes Weihnachtsfest.

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige