Seit drei Tagen versuche ich ein Problem zu lösen, bis jetzt leider erfolglos.
In möchte eine 7stellige Zahlen erfassen, die dann in die Spalte N3:N1000 geschrieben wird. Die Spalte N hat die benutzerdefinierte Formatierung h:mm:ss,00
- Die Formatierung 0":"00":"00",00 oder 0\:00\:00\,00 hilft mir nicht, da dadurch die Formatierung der Spalte N aufgehoben
wird.
- von 1234567 soll 1:23:45,67 werden.
- Spalte N ist mit h:mm:ss,00 formatiert
- Zeiten werden nicht in der Reihenfolge und auch nicht in allen Zellen, der Spalte N erfasst
Die einzige Methode die ich bis jetzt gefunden habe, habe ich aufgezeichnet:
Sub zeitenerfassen()
Range("N3:N1000").Select
Selection.NumberFormat = "h:mm:ss,00"
Range("N1").Select
' folgende Zeit habe ich in die Bearbeitungsleiste rechts neben Eingeben
' und Abbrechen eingegeben 1:22:22,44 und wird auch so in der
' Zelle dargestellt
ActiveCell.FormulaR1C1 = "1:22:22 AM" ' 1:22:22,44 Eingabe in Bearbeitungsleiste
Range("N8").Select
ActiveCell.FormulaR1C1 = "2:44:55 AM" ' 2:44:55,40 Eingabe in Bearbeitungsleiste
Range("N200").Select
ActiveCell.FormulaR1C1 = "3:11:22 AM" ' 3:11:22,11 Eingabe in Bearbeitungsleiste
Range("N1000").Select
End Sub
Ablauf:
Ich gehe mit dem Cursor in die Zelle (Spalte N) in die ich die Zeit eingeben möchte, dann gehe ich in die Bearbeitungsleiste und gebe die Zeit wie folgt ein z. B. 1:22:22,44 dann bestätige ich mit Enter und die Zeit wird korrekt in die aktive Zelle der Spalte N übernommen.
Da die Eingabe mit Doppelpunkt und Komma sehr umständlich ist, möchte ich vereinfachen!
Vielen Dank für eure Hilfe!
Tschüß
Rolf