Zeiten vierstellig eingeben

[hoholger]

Hallo,

für eine excel-Datei nutze ich folgendes Makro, um Uhrzeiten vierstellig eingeben zu können:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabebereich As String
Dim Eingabe, Zeitwert
On Error GoTo ChgEvent_Error
Eingabebereich = "B4:E35"
If Not Application.Intersect _
(Target, ActiveSheet.Range(Eingabebereich)) _
Is Nothing _
And _
IsNumeric(Target.Value) _
And _
Target.Cells.Count = 1 Then
Application.EnableEvents = False
Eingabe = Format(Target.Value, "0000")
Zeitwert = _
Left(Format(Eingabe, "0000"), _
Len(Eingabe) - 2) & ":" & _
Right(Format(Eingabe, "0000"), 2)
Target.Value = Zeitwert
End If
ChgEvent_Error:
Application.EnableEvents = True
End Sub


Nun müsste ich zwei weitere Eingabe-Bereiche dazu nehmen, nämlich J4 bis M35 und R4 bis U35. In den Spalten dazwischen sollen Dezimalzahlen eingegeben werden. 
Wie muss ich diese zusätzlichen Bereiche in das Makro eintragen, dass die vierstellige Zeiteingabe wieder funktioniert? Geht ein getrennter bzw. unterbrochener Eingabebereich überhaupt?

Danke
Holger

[Kuwer]

Hallo Holger,

probiers mal so:

Eingabebereich = "B4:E35,J4:M35,R4:U35"

Gruß Uwe

[hoholger]

Hallo Uwe,

perfekt! Ich hatte es mit ";" versucht und war gescheitert. Hätte ich ein bisschen nachgedacht...

Vielen Dank für deine Hilfe!

Viele Grüße

Holger