Suchen ersetzen Makro
04.01.2007 22:50:13
Sonnenpeter
Ich habe mir eine Zeittabelle erstellt,
um das für mich umständliche eingeben des Zeichen ":" zu ersparen dacht ich mir folgendes Makro aus;
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then
ActiveCell.Replace What:="+", Replacement:=":", LookAt:=xlWhole
End If
End Sub
Sinn: ich gebe die Zeit so ein 12+30 das Makro macht daraus 12:30
Es tut sich aber leider gar nichts nach der Eingabe.
Was ist verkehrt? denke wohl mal wieder zu einfach?
Gruß Sonnenpeter