OpenOffice.info

Das war genau der Beitrag den ich am Anfang genutzt hatte...
Aber manchmal sieht man den Wald vor lauter Bäumen nicht mehr.
Ich habe es jetzt hinbekommen... Danke für die Hilfe

Hallo,

auch da kann Dir geholfen werden. Schau mal [url=http://www.ooowiki.de/CalcFunktionenDatum/RechnenMitDatumUndZeit?highlight=%28KategorieCalc%29]hier[/url].

Viele Grüße
AhQ

Morgen....
Das sieht richtig gut aus und hilft mir auch bei der Berechnung..
Muss jetzt nur noch schauen wie ich mit der Studenzahl HH:MM einen Preis berechne...

Gruß
Sascha

Hallo,

Makros aus Excel gehen üblicherweise nicht wirklich in Calc, aber die Grundfrage wurde hier schon mal behandelt. Schau mal [url=http://de.openoffice.info/viewtopic.php?f=2&t=988&hilit=uhrzeit+eingeben]hier[/url], da hatte jemand die gleiche Frage.

Viele Grüße
AhQ

Attribute VBA_ModuleType=VBAModule
Sub Modul1
Function Berechne_ZeitDiff(strVonZeit As Variant, strBisZeit As Variant) As Single
 
Rem   '/*-------------------------------------*/
Rem   '/*   Diverse Variablen-Deklarationen   */
Rem   '/*-------------------------------------*/
  
Dim sngVonStunde As Single
Dim sngBisStunde As Single
   
Dim sngVonMinute As Single
Dim sngBisMinute As Single
   
Dim sngVonZeit As Single
Dim sngBisZeit As Single
  
Dim sngZeitDiff As Single
  
Dim intColonVon As Integer
Dim intColonBis As Integer
   
Rem   '/*-------------------------------*/
Rem   '/*   Diverse Initialisierungen   */
Rem   '/*-------------------------------*/
  
sngZeitDiff = 0

Rem   '/*--------------------------------*/
Rem   '/*   Leere Zellinhalte abfangen   */
Rem   '/*--------------------------------*/

If (IsNull(strVonZeit) Or IsEmpty(strVonZeit) Or (strVonZeit = "") Or _
IsNull(strBisZeit) Or IsEmpty(strBisZeit) Or (strBisZeit = "")) Then
Berechne_ZeitDiff = sngZeitDiff
    
Exit Function
End If

strVonZeit = Format(strVonZeit, "00:0#")
strBisZeit = Format(strBisZeit, "00:0#")
  
intColonVon = InStr(1, strVonZeit, ":")
intColonBis = InStr(1, strBisZeit, ":")  
Rem   '/*--------------------------------------------------------*/
Rem   '/*   Abbruch bei fehlerhaften Zellinhalten, wenn umfor-   */
Rem   '/*   matierte Zeitangaben keine Doppelpunkte enthalten!   */
Rem   '/*--------------------------------------------------------*/

If ((intColonVon = 0) Or (intColonBis = 0)) Then
Berechne_ZeitDiff = sngZeitDiff
     
Exit Function
End If
     
Rem   '/*------------------------------------*/
Rem   '/*   Die eigentliche Berechnung ...   */
Rem   '/*------------------------------------*/
   
sngVonStunde = Val(Mid(strVonZeit, 1, intColonVon - 1))
sngBisStunde = Val(Mid(strBisZeit, 1, intColonBis - 1))
sngVonMinute = Val(Mid(strVonZeit, intColonVon + 1))
sngBisMinute = Val(Mid(strBisZeit, intColonBis + 1))
   
sngVonZeit = sngVonStunde + sngVonMinute / 60
sngBisZeit = sngBisStunde + sngBisMinute / 60
   
Rem   '/*------------------------------------*/
Rem   '/*   Zeitdifferenz als Rückgabewert   */
Rem   '/*------------------------------------*/
  
sngZeitDiff = sngBisZeit - sngVonZeit

Berechne_ZeitDiff = sngZeitDiff

End Function
End Sub

Ich muss mich berichtigen.
Die Zellen waren auf 00\:00 eingestellt.
Zusätzlich war noch ein Makro erstellt um den Zeitunterschied zu berechnen:
[code]Attribute VBA_ModuleType=VBAModule
Sub Modul1
Function Berechne_ZeitDiff(strVonZeit As Variant, strBisZeit As Variant) As Single

Rem '/*-------------------------------------*/
Rem '/* Diverse Variablen-Deklarationen */
Rem '/*-------------------------------------*/

Dim sngVonStunde As Single
Dim sngBisStunde As Single

Dim sngVonMinute As Single
Dim sngBisMinute As Single

Dim sngVonZeit As Single
Dim sngBisZeit As Single

Dim sngZeitDiff As Single

Dim intColonVon As Integer
Dim intColonBis As Integer

Rem '/*-------------------------------*/
Rem '/* Diverse Initialisierungen */
Rem '/*-------------------------------*/

sngZeitDiff = 0

Rem '/*--------------------------------*/
Rem '/* Leere Zellinhalte abfangen */
Rem '/*--------------------------------*/

If (IsNull(strVonZeit) Or IsEmpty(strVonZeit) Or (strVonZeit = "") Or _
IsNull(strBisZeit) Or IsEmpty(strBisZeit) Or (strBisZeit = "")) Then
Berechne_ZeitDiff = sngZeitDiff

Exit Function
End If

strVonZeit = Format(strVonZeit, "00:0#")
strBisZeit = Format(strBisZeit, "00:0#")

intColonVon = InStr(1, strVonZeit, ":")
intColonBis = InStr(1, strBisZeit, ":")
Rem '/*--------------------------------------------------------*/
Rem '/* Abbruch bei fehlerhaften Zellinhalten, wenn umfor- */
Rem '/* matierte Zeitangaben keine Doppelpunkte enthalten! */
Rem '/*--------------------------------------------------------*/

If ((intColonVon = 0) Or (intColonBis = 0)) Then
Berechne_ZeitDiff = sngZeitDiff

Exit Function
End If

Rem '/*------------------------------------*/
Rem '/* Die eigentliche Berechnung ... */
Rem '/*------------------------------------*/

sngVonStunde = Val(Mid(strVonZeit, 1, intColonVon - 1))
sngBisStunde = Val(Mid(strBisZeit, 1, intColonBis - 1))
sngVonMinute = Val(Mid(strVonZeit, intColonVon + 1))
sngBisMinute = Val(Mid(strBisZeit, intColonBis + 1))

sngVonZeit = sngVonStunde + sngVonMinute / 60
sngBisZeit = sngBisStunde + sngBisMinute / 60

Rem '/*------------------------------------*/
Rem '/* Zeitdifferenz als Rückgabewert */
Rem '/*------------------------------------*/

sngZeitDiff = sngBisZeit - sngVonZeit

Berechne_ZeitDiff = sngZeitDiff

End Function
End Sub[/code]

Nur das funktioniert nicht mehr.

Hallo zusammen..
Ich bin ganz neu hier und hoffe nicht, dass ich schon mir der ersten Frage, eine frage stelle die hier schon beantwortet wurde.
Ich habe zwar gescuht, aber nicht das gefunden was mir bei meinem Problem hilft.

Vor kurzem habe ich MS-Office in die Tonne getreten und mit OO neu angefangen.
Dabei musste ich ein paar Tabellen auch neu machen..

Bei einer Tabelle habe ich eine Berechnung drin, die mir den Stundenunterschied in Kommazahlen wiedergibt.
Das habe ich auch gefunden und ist ja mehr wie einfach.

Nun aber zu dem wo ich nicht weiss wie es gehen soll..
Bei der Eingabe habe ich bei MS-Office die Zelle so eingestellt, dass ich einfach 0900 eingebe und die Zelle es in 09:00 umwandelt.
Die Einstellung war dort "HH\:MM"..
Wenn ich das bei OO einstelle funktioniert die oben beschriebene Berechnung nicht mehr..

Gibt es einen Trick den ich noch nicht kenne?


Gruß
TheCry