Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

=REST(H1-G1;1) in VBA | Herbers Excel-Forum


Betrifft: =REST(H1-G1;1) in VBA von: reinhardt springer
Geschrieben am: 30.01.2010 11:28:15

Hallo.
Eintragungen aus einer Usrform werden wie u.a. in ein TB eingetragen.
Cells(MyRow, 7).Value = Me.TextBox5.Text 'Ankunft Zeit
Cells(MyRow, 8).Value = Me.TextBox6.Text 'Anfahrt Zeit

Die Fahrzeit errechne und trage ich ein mit:
Cells(MyRow, 9).FormulaLocal = "=" & Cells(MyRow, 8).Address & "-" & Cells(MyRow, 7).Address 'Errechnen Fahrzeit

Nun bekomme ich manchmal aufgrund der Werte eine negative Zeit, z.B. aus
Abfahrt: 8:00
Ankunft: 01:59
Im Tabellenblatt bekomme ich das mit der Formel =REST(H1-G1;1) hin.
Ich bräuchte einmal Hilfe bei der VBA schreibweise anstatt:
Cells(MyRow, 9).FormulaLocal = "=" & Cells(MyRow, 8).Address & "-" & Cells(MyRow, 7).Address

???

Gruß Reinhardt.

  

Betrifft: Die Syntax bekommst Du mit Makrorekorder von: Tino
Geschrieben am: 30.01.2010 11:40:14

Hallo,

.FormulaR1C1 = "=MOD(R[-7]C8-R[-7]C7,1)"

Gruß Tino


  

Betrifft: Korrektur gleiche Zeile "=MOD(RC8-RC7,1)" oT. von: Tino
Geschrieben am: 30.01.2010 11:42:44




  

Betrifft: AW: =REST(H1-G1;1) in VBA von: Josef Ehrensberger
Geschrieben am: 30.01.2010 11:42:02

Hallo Reinhard,


entweder
Cells(MyRow, 9).FormulaLocal = "=REST(" & Cells(MyRow, 8).Address & "-" & Cells(MyRow, 7). _
Address & ";1)"

oder
Cells(MyRow, 9) = (Cells(MyRow, 8) - Cells(MyRow, 7)) Mod 1



Gruß Sepp



  

Betrifft: Sorry. Vielen Dank für die Hilfe. o.T. von: reinhardt springer
Geschrieben am: 30.01.2010 14:06:08

.