Uhrzeit mit mit ner Zahl aus Textbox adieren

[will dazu lernen]

Hallo hab da ein Prob.mit ner Uhrzeit
in einer Textbox Steht   Startzei 7:45 in einer anderen Textbox steht ne Zahl zb 4(ist 60 min) oder 3 (IST 45 MIN)oder 5 (ist 45min)für jede zahl steht für andere minuten also 7:45  +0,45 min diese 0,45 min sollen mit der 7:45 in einer anderen Textbox erscheinen wäre also 8:30
in einem tabell mit Formel schaffe ich das aber nicht in einer Userform
für eure hilfe Danke ich euch
Gruss Ralf

[Fennek]

Hallo,

in einer Textbox steht Text, der erst in ein Datum umgewandelt werden muss.

(in vba: date())

mfg

[will dazu lernen]

Hallo hab den Text umgewandelt aber das prob ich suche ne vba lösung sind mehrere if abfragen also
wenn in Textbox 44 "4" steht dann Textbox 45  soll  die uhrzeit 7:45 + 0,60min adiert werden
wenn in Textbox 44 "3" steht dann Textbox 45  soll  die uhrzeit 7:45 + 0,45 adiert werden
wenn in Textbox 44 "5" steht dann Textbox 45  soll  die uhrzeit 7:45 + 0,75 adiert werden
und das  wird in einer zeile einer Tabelle gespeichert
also nicht so  ganz einfach
mfG Ralf

[Steffl]

Hallo Ralf,

meinst Du so?

Code:

Private Sub TextBox44_AfterUpdate()
    Select Case TextBox44.Value
        Case 3 To 5
            TextBox45.Value = Format(0.322917 + Choose(TextBox44.Value, , , 0.041667, 0.03125, 0.052083), "h:mm")
        Case Else
            TextBox45 = ""
    End Select
End Sub

[RPP63]

Hi!
Zunächst, wie schon geschrieben, steht in TextBoxes Text.
Deine Textbox44 ist eine Textzahl, die ein Vielfaches einer Viertelstunde ist.
Eine Viertelstunde ist ein 96stel Tag.
Quasi-Code, getestet mit Text in einer Tabelle, eine UserForm wollte ich jetzt nicht basteln:

Code:

Format(CDate(Range("A1")) + Range("B1") / 96, "hh:mm")

Die Ranges musst Du mit Deinen Textboxes austauschen.

@fennek:
Knapp daneben ist auch vorbei.

Gruß Ralf

[RPP63]

Aufbauend auf Steffls Code dann so (7:45 ist fest im Code vorgegeben):

Code:

Private Sub TextBox44_AfterUpdate()
TextBox45.Value = TimeSerial(7, 45, 0) + TextBox44 / 96
End Sub

Gruß Ralf

[will dazu lernen]

Sorry Funzt nicht habes vl falsch vormuliert aber konnte eure Beiträge für andere sachen gebrauchen Danke
Also
in TB 12 steht als Anfangszeit 7:45 die bleibt auch fest
in TB 44 steht ne Zahl die sich ändern kann ZB 4 oder 3 oder ne 5
jede Zahl ist ein Wert der  minuten bedeutet zb 3 ist 0,45 min 2 ist 0,30 min 4 ist 0,60 min und die 5 ist 0,75 min
nun zum Prob
steht in tb 44 ne 3 so soll in TB 13 die zeit aus tb 12 um 0,45 min erhöht werden
steht in tb 44 ne 4 soll in tb 13 die zeit aus tb 12 um 0,60 min erhöht werden usw
so setzt  sich das fort über die anderen TB s
Danke euch

[BoskoBiati]

Hallo,

1. wo sind Deine Textboxen?
2. was willst Du mit denen, das geht doch mit Formeln
3. 0,45min sind für mich 0,45*60 Sekunden also 27s
4. Was soll das Ganze eigentlich werden????

[Steffl]

Hallo Edgar,

in seiner Datei ist eine Userform und in der befinden sich die TextBoxen.

[BoskoBiati]

Hallo Stefan,

schon, aber wie will er die aufrufen? Was soll das werden? Da gibt es doch viel einfachere Lösungen. Das ist nichts anderes als eine sinnlose Aneinanderreihung von WENN nur mit VBA! Ich bin der letzte, der nicht helfen will, aber wenn jemand offensichtlich nur wenig mit der Materie vertraut ist, dann werde ich das nicht einfach nur abnicken, sondern schon Kritik anbringen und hinterfragen.