weis mir jemand einen Rat zu folgendem Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim sTxt As String
For Each rng In Selection.Cells
sTxt = rng.Value
rng.NumberFormat = "hh:mm"
rng.Value = TimeSerial(Left(sTxt, 2), Right(sTxt, 2), 0)
Next rng
Application.MoveAfterReturn = False
End Sub
Es ist so dass sobald man eine Zelle in dieser Tabelle wählt, eine Fehlermeldung kommt. Das Makro selber funktioniert schon,
bräuchte eine Erweiterung bzw. einen Einschub der folgendes bewirkt:
man sollte irgendwelche Zellen mit der maus oder den Pfeiltasten per Tastatur einfach anwählen können ohne dass das makro darauf reagiert,
es sollte erst dann bei Return oder Enter einmalig auslösen.
es schreibt aus einer vierstelligen Zahl 1222 dann die Uhrzeit
nach Betätigung 12:22 usw.
wäre euch sehr dankbar, lieben Gruß, udo