Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Replace mit entsprechendem Format

Replace mit entsprechendem Format
15.02.2008 16:28:15
Johannes
Hallo alle zusammen!
Ich hänge momentan an folgendem Problem:
Mittels
ActiveSheet.UsedRange.Replace what:="Test", replacement:=Format(Cells(1, 1), Cells(1, 1).NumberFormat)
möchte ich in der Zelle wo "Test" steht die Zahl aus A1 einfüllen.
Funktioniert wunderbar außer wenn ich A1 als Ganzzahl mit Tausendertrennzeichen formatiere. Dann nämlich ersetzt Excel einfach das Tausendertrennzeichen durch ein Komma. Kaum wird A1 mit einer Nachkommastelle und/oder keinem Tausendertrennzeichn formatiert, tritt das Problem nicht mehr auf.
Ist irgendjemandem dieses Verhalten schon mal aufgefallen und hat vielleicht sogar eine Lösung ohne die Zelle anders zu formatieren?
Schöne Grüße,
Johannes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Replace mit entsprechendem Format
15.02.2008 16:43:10
Ramses
Hallo
so geht's
Option Explicit

Sub ReplaceValue()
    'Das ReplacementFormat vorher festlegen !!!
    Application.ReplaceFormat.NumberFormat = Cells(1, 1).NumberFormat
    '... und das Replacement Format übergeben
    ActiveSheet.UsedRange.Replace What:="Test", Replacement:=Cells(1, 1), ReplaceFormat:=True
End Sub

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige