Doppelpunkt bei Zeiteingabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Folgendes Makro als Worksheet Change
hilft auch!
in Diesem Beispiel erfolgt die Umwandlung der 4stelligen Zahl (1300) in 13:00 nur in den Spalten 7 und 9!
Der Bereich ist in der 3. Zeile bis zur 11 Spalte eingegrenzt. Individuelle Anpassung sollte also kein Problem darstellen
Gruß Leif


Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%, xpos
If Target.Column < 0 Or Target.Column > 11 Then Exit Sub
' Auslesen der aktuellen Position (Spalte und Zeile)
xSpalte = "" & Target.Column
'Hier umsetzen der Spaltenzahlen ( 2 = B, 3 = C etc.)
Select Case xSpalte
Case 7, 9
xSpalte = Target.Column
xZeile = Target.Row
Case Else
'Rauswerfen wenn andere als o.a. Zeilen
Exit Sub
End Select
'Prüfen ob die ZellenZahl im Bereich 4 - 36 liegt
If xZeile >= 4 And xZeile <= 36 Then
xZeile = Target.Row
Else
'Wenn nicht dann
Exit Sub
End If
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
End With
End Sub

Hallo Peter,
Mag sein, dass das Makro nicht weltbestes VBA ist, aber ich bin dort kein Fachmann.
Ich verwende es allerdings erfolgreich in einer riesigen Tabelle und nur bestimmte Spalten (die 7. und die 9.)im Bereich von der 4.bis zur 36 Zeile sollen die Wandlung der Zahlen in Uhrzeiten erhalten. Andere Zellen enthalten auch Formeln, die widerum nicht das Ergebnis als Uhrzeit darstellen sollen.
Bei einer benutzerdefinierten Ersetzung von Zeichen "." in ":" ist oft die Folge, dass mit der Uhrzeit/Ergebnis nicht vernünftig weitergerechnet werden kann.
Wer eine solche Lösung braucht, kann ja o.a. Makro kopieren und in den VBA-Editor in seine Mappe kopieren. Das ist nun wirklich kein großer Aufwand.
Hier: If Target.Column < 0 Or Target.Column > 11 Then Exit Sub -die 11 entsprechend der benötigten Spalten die 11 auf den benötigten Spaltenbereich ersetzen;
Hier: Case 7, 9 -die Spalten eintragen, in denen das Makro wirken soll.
Dafür steht 1für A, 2für B, 3für C usw.
'Prüfen ob die ZellenZahl im Bereich 4 - 36 liegt
Hier:If xZeile >= 4 And xZeile <= 36 Then -steht das von Zeile 4 bis Zeile 36 das Makro aktiv ist. Das kann man auch entsprechen des BEdarfes ändern.
Lieber Peter, wenn Du natürlich ein schöneres Makro fertigen kannst, würde ich mich freuen,wenn du mir das übermitteln könntest. Gruß und Dank Leif

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 4 Or Target.Row > 36 Then Exit Sub If Not (Target.Column = 7 Or Target.Column = 9) Then Exit Sub If Target.Value = "" Then Exit Sub Application.EnableEvents = False With Target If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then .NumberFormat = "[hh]:mm" Select Case Len(.Value) Case 1 .Value = "00:0" & .Value Case 2 .Value = "00:" & .Value Case 3 .Value = "0" & Left(.Value, 1) & ":" & Right(.Value, 2) Case Else .Value = Left(.Value, Len(.Value) - 2) & ":" & Right(.Value, 2) End Select End If End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread