Uhrzeitberechnungen über UF

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Wolfgang
Versuch es mal hiermit:
https://www.herber.de/bbs/user/44570.xls
In meinem Bsp werden - deine Datei als Grundlage - nun die im UF eingetragen Uhrzeiten in die Tabelle übertragen, und mit Excel-Formeln werden die Summen ohne Pausen berechnet - aufgeteilt in Std + Min
Ich habe meine Bsp-Zeiten stehen gelassen.
Aber ich habe keine Kontrollen eingebaut wegen...
...falsche Uhrzeiteingaben (ich meine falsches Format, z Bsp 123:15 oder so)
...der OK Buton kann immer angeklickt werden - auch, wenn noch keine Zeiten eingegeben wurden
...und vllt noch mehr notwendige Kontrollen, die mir gerad nicht einfallen
Hilft denn mein Versuch?
Ciao
Thorsten
p.s. an Peters Bsp sieht man leider wieder, dass es wirklich NOTWENDIG IST, dass der Fragesteller eine Bsp-Datei zur Verfügung stellt, da Peter nun ja leider eine zwar funktionierende, aber für deine Zwecke nicht erwünschte Lösung programmierte - die Arbeit war umsonst..schade für Peter

Hi Wolfgang
Das Eintragen der Daten in die Tabelle wird in der For/Next-Schleife durchgeführt.


liZeile = 2
liTxtNr = 1
For liDurchlauf = 1 To 5
With ActiveSheet
.Range("B" & liZeile).Value = UFEingabe.Controls("txt" & liTxtNr).Text
.Range("C" & liZeile).Value = UFEingabe.Controls("txt" & liTxtNr + 1).Text
.Range("D" & liZeile).Value = UFEingabe.Controls("txt" & liTxtNr + 2).Text
.Range("E" & liZeile).Value = UFEingabe.Controls("txt" & liTxtNr + 3).Text
End With
liZeile = liZeile + 1
liTxtNr = liTxtNr + 4
Next

Es werden, egal, ob alle Zeiten eingetragen wurden oder nicht, immer die Werte aller Textboxen übertragen - also auch "Leerwerte".
liZeile beginnt bei 2 und bestimmt die Zeile in der Tabelle, in die eingetragen wird.
Ich habe die Textboxen umbenannt in txt1 - txt20.
liTxtNr beginnt bei 1 (txt1) und wird zuerst innerhalb des ActiveSheet-Blockes um 1 hochgezählt
"txt" & liTxtNr + 1
"txt" & liTxtNr + 2
"txt" & liTxtNr + 3
behält so aber für jeden Block seinen Ursprungswert.
Erst, wenn eine Übertragung durchgeführt wurde, wird der Ursprungswert von liTxtNr um 4 erhöht.
So ist sichergestellt, dass bei jedem Durchlauf immer die Werte der nächst vierten Textboxen übertragen werden - in die richtige Zeile.
Ich verstehe deine letzte Frage nicht. Warum soll das beliebig veränderbar sein? Dann würden die Tage mit der Tabelle ja nicht mehr übereinstimmen?
Natürlich könntest du den Code umschreiben. Da ich aber den Sinn nicht verstehe, weiß ich jetzt auch nicht, wo du umschreiben willst/sollst.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Uhrzeitberechnungen über UF

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread