Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ersetzen

Ersetzen
24.08.2005 18:05:24
Alwin
Hallo Leute,
warum funktioniert das nicht in dem Worksheet_Change - Modul?
Target.Offset(0, 0).Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Ich will damit aus dem Komma in einer Zahl einen Punkt machen.
Oder gibt es dafür eine andere Methode?
Gruß Alwin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ersetzen
24.08.2005 18:53:13
Nepumuk
Hi Alwin,
weil in VBA bei einer Zahl die Nachkommastellen durch den Punkt und nicht das Komma getrennt werden. VBA spricht AMERIKANISCH !!!!
So kannst du Excel aber austricksen:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strText As String
    Application.EnableEvents = False
    strText = CStr(Replace(Target.Text, ",", "."))
    Target.Value = ""
    Target.NumberFormat = "@"
    Target.Value = strText
    Application.EnableEvents = True
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige