Hallo Boris
Boris Kirkorowicz schrieb:
Hallo,
ich habe längere Listen mit Zeiten einzugeben. Dabei nervt mich die
recht umständliche Eingabe der Werte:
Wenn ich bspw. "8:00" eingeben will, muss ich mindestens "8:" eingeben,
bei "12:15" auch eben komplett dieses. Das mag zwar auf den ersten Blick
normal erscheinen, wenn man aber viele, viele solche Zahlenkolonnen
eingeben muss, sehnt man sich nach Vereinfachung. So kenne ich schon mal
die Vereinfachung, nur einen Punkt statt eines Doppelpunktes eingeben zu
müssen oder -ähnlich wie bei einer Supermarktkasse- einfach die drei-
bis vierstelligen Zahlen oder noch intelligenter einfach nur "8" für
"8:00" und "1215" für "12:15".
Bisher scheitert es bei mir (OOo 1.1.4 unter OS/2 bzw. XP) schon mal
daran, dass sich das Zahlenformat automatisch umstellt, wenn man nicht
explizit den Doppelpunkt mit eingibt. Wenn man danach das Format wieder
auf Zeit zurückstellt, hat man da irgend eine verquere Zeit stehen
(mehrere Tage oder so).
Kriegt man das irgendwie besser hin?
Du könntest mit folgendem Makro arbeiten:
Sub format_zeit
oSelect=ThisComponent.CurrentSelection
oColumn=oselect.Columns
oRow=oSelect.Rows
For n= 0 To oColumn.getCount-1
For m = 0 To oRow.getCount-1
oCell=oselect.getCellByPosition (n, m)
If oCell.CellStyle = "auto_zeit" Then
eintrag = oCell.String
If Len(eintrag) = 4 Then
' Eintrag muss 4 Ziffern haben !
links = Left(eintrag, 2)
rechts = Right(eintrag, 2)
neu_eintrag = links & ":" & rechts
oCell.String = ""
oCell.NumberFormat = 40
oCell.FormulaLocal = neu_eintrag
End If
If Len(eintrag) = 3 Then
' Eintrag muss 3 Ziffern haben !
links = Left(eintrag, 1)
rechts = Right(eintrag, 2)
neu_eintrag = links & ":" & rechts
oCell.String = ""
oCell.NumberFormat = 40
oCell.FormulaLocal = neu_eintrag
End If
End If
Next m
Next n
End Sub
Jetzt kannst du die Zeiten als 3 - 4 stellige Zahlen eingeben,
die entsprechenden Spalten/Bereiche mit einer neu erstellten
Formatvorlage "auto_zeit"(vgl. Makro) versehen,
die Spalten/Bereiche markieren und Makro starten...
Ps. Die Formatvorlage "auto_zeit" ist nicht zwingend notwendig,
du kannst im Makro "auto_zeit" auch durch "standard" ersetzen,
ist aber weniger sicher gegen evtl Vertippen falls du das Makro
auf eine Tastaturkombi legst.
Gruss Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
