Suchen ersetzen Makro

Forumthread: Suchen ersetzen Makro
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Suchen ersetzen Makro

04.01.2007 23:50:13

Gast

Hallo,
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ß Gast

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

LookAt:=xlPart

04.01.2007 23:52:20

Kurt
AW: LookAt:=xlPart

04.01.2007 23:59:21

Gast
AW: Suchen ersetzen Makro

04.01.2007 23:58:58

Ramses
AW: Suchen ersetzen Makro

05.01.2007 00:02:10

Gast

LookAt:=xlPart

04.01.2007 23:52:20

Kurt

AW: LookAt:=xlPart

04.01.2007 23:59:21

Gast

Hallo,
das geht leider auch nicht


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:=xlPart
End If
End Sub

Und das


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, LookAt:=xlPart
End If
End Sub

Liefer mir den Laufzeitfehler 448
Gruß Gast
Gruß Gast

AW: Suchen ersetzen Makro

04.01.2007 23:58:58

Ramses

Hallo Peter
das ist ein wenig grundsätzliches schief :-)
ActiveCell ist nicht die Target-Zelle !!
Option Explicit
Probiers mal


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
Application.EnableEvents = False
Target = Application.WorksheetFunction.Substitute(Target.Value, "+", ":", 1)
Application.EnableEvents = True
End If
End Sub

Gruss Rainer

AW: Suchen ersetzen Makro

05.01.2007 00:02:10

Gast

Hallo Rainer,
herzlichen Dank, es funktioniert.
Gruß Gast