Ich sollte folgendes Makro, welches für [hh:mm] formatierung
zuständigist, auf eine Tabelle beschränken (Tabelle2).
Habe es bisher in der Arbeitsmappe abgelegt, wodurch jedoch alle Tabellen logischerweie mit dieser Formatierung verfahren.
Währe für Hilfe sehr Dankbar
MfG
Stefan
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Frei" Or ActiveSheet.Name = "Hinweis" Then Exit Sub
Dim RaBereich As Range, RaZelle As Range
Dim InS As Integer
Dim InM As Integer
' Bereich der Wirksamkeit
Set RaBereich = Range("H17:DT479")
ActiveSheet.Unprotect ("")
On Error GoTo Fehler
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
If .Value "" Then
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And _
InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(Target.Value) > 2 Then
InS = Left(.Value, Len(.Value) - 2)
InM = Right(.Value, 2)
Else
' Stunden haben das Primat
' InS = .Value
' InM = 0
' Minuten haben das Primat
InS = 0
InM = .Value
End If
.Value = InS & ":" & InM
End If
End If
End With
End If
Next RaZelle
Set RaBereich = Nothing
Fehler:
ActiveSheet.Protect ("")
Application.EnableEvents = True
End Sub