Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige