Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen ersetzen Makro

Forumthread: Suchen ersetzen Makro

Suchen ersetzen Makro
04.01.2007 22:50:13
Sonnenpeter
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ß Sonnenpeter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
LookAt:=xlPart
04.01.2007 22:52:20
Kurt
oT
AW: LookAt:=xlPart
04.01.2007 22:59:21
Sonnenpeter
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ß Sonnenpeter
Gruß Sonnenpeter
Anzeige
AW: Suchen ersetzen Makro
04.01.2007 22: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
Anzeige
AW: Suchen ersetzen Makro
04.01.2007 23:02:10
Sonnenpeter
Hallo Rainer,
herzlichen Dank, es funktioniert.
Gruß Sonnenpeter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige