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

Zellformatierung automatisch umstellen

Forumthread: Zellformatierung automatisch umstellen

Zellformatierung automatisch umstellen
17.02.2009 10:55:00
nicospostbox
Hallo zusammen!
Ich habe folgendes Problem:
Ich habe ein Excel-File, in dem mehrere Zahlen stehen (Währungsbeträge, Anzahl von Einheiten und Flächenangaben). Ich habe ein Textfeld mit einem Makro belegt, so dass sich die Ländereinstellungen von Excel per Klick umstellen lassen (u.a. Tausch von Punkt und Komma bei Zahlen). Bei den Flächenangaben habe ich jetzt folgendes Problem: Ich habe die Zellen so formatiert, dass hinter den Zahlen ein " m²" steht - bei Umstellung auf Englisch hätte ich hier jedoch gerne ein" sqm".
Hat jemand eine Idee, wie ich das lösen kann?
Danke schon für eure Hilfe!
Ciao
Nico
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellformatierung automatisch umstellen
17.02.2009 11:05:00
Renee
Hi Nico,
Vielleicht ungefähr so:

Sub til()
Dim rC As Range
For Each rC In ActiveSheet.UsedRange
If InStr(rC.NumberFormat, "m²") > 0 Then
rC.NumberFormat = Replace(rC.NumberFormat, "m²", "sqm")
Else
If InStr(rC.NumberFormat, "sqm") > 0 Then _
rC.NumberFormat = Replace(rC.NumberFormat, "sqm", "m²")
End If
Next rC
End Sub


GreetZ Renée

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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