Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Währung € in SFR und umgekehrt

Währung € in SFR und umgekehrt
08.06.2006 11:50:51
giovanni
Hallo Forum,
benötige Eure Hilfe noch vor WM Beginn. Komm nicht mehr weiter.
Habe mehrere Tabellenblätter mit Einzel- und Summenbeträgen in €.
Handelt es sich jedoch um Summen in SFR werden alle Preise entsprechend umgerechnet, das funktioniert.
Leider aber bleiben alle Formate eben noch in €.
Wie kann ich per Makro das so machen, daß wenn in Zelle A2 tabelle1 "SFR"
drinsteht alle Zellenformate in allen tabellen von € nach SFR umgewandelt
werden.Umgekehrt, wenn "eur" drinsteht umgekehrt.
Besten Dank im voraus
Gio

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Währung € in SFR und umgekehrt
08.06.2006 14:02:50
UweD
Hallo
- rechtsclick auf den Tabellenblattreiter unten
- Code anzeigen
- ins rechten Fenster den Code reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Z
If Not Intersect(Target, Range("A2")) Is Nothing Then
For Each Z In Union(Cells.SpecialCells(xlCellTypeFormulas, 3), _
Cells.SpecialCells(xlCellTypeConstants, 3))
Select Case UCase(Target.Value)
Case "SFR"
Z.NumberFormat = "#,##0.00 [$SFr.-807]"
Case "EUR"
Z.NumberFormat = "#,##0.00 [$€-407]"
End Select
Next
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
Ergänzung
08.06.2006 14:33:26
UweD
Hallo nochmal
vorher wurden alle Zahlen und Formeln so geändert.
Jetzt muß vorher schon das jeweils andere Format vorhanden sein.
(Also andere Berechnungen, die keine Währungen sind bleiben im ursprünglischen Format bestehen)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Z
If Not Intersect(Target, Range("A2")) Is Nothing Then
For Each Z In Union(Cells.SpecialCells(xlCellTypeFormulas, 3), _
Cells.SpecialCells(xlCellTypeConstants, 3))
Select Case UCase(Target.Value)
Case "SFR"
If Z.NumberFormat = "#,##0.00 [$€-407]" Then
Z.NumberFormat = "#,##0.00 [$SFr.-807]"
End If
Case "EUR"
If Z.NumberFormat = "#,##0.00 [$SFr.-807]" Then
Z.NumberFormat = "#,##0.00 [$€-407]"
End If
End Select
Next
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Ergänzung
08.06.2006 14:44:14
giovanni
Hallo!
ich möchte mich ganz fest für die Hilfe bedanken.
Gruß aus Südtirol
gio

13 Forumthreads zu ähnlichen Themen

Darstellung von Werte-Bereichen in einem €-Raster
Werte-Bereichen

Hallo!
Ich habe folgendes Problem:
In eine €-Übersicht (Raster beginnend bei € 100.000 bis € 1000 in tausender Schritten) sollen verschiedene Werte (3 Werte = 1 Datensatz) eingetragen bzw. graphisch dargestellt werden. Zusätzlich soll noch in verschiedene Bereiche unterteilt werden und...
18.02.2009 17:32:00
Thread-ID: 1051879
2 Beiträge
Anzeige
2 Dropdown Felder mit Betrag in €
Tom

Servus zusammen ich benötige bitte Unterstützung für die Anlage mehrerer abhängiger Dropdown-Menüs. In der Beispieldatei der entsprechende Aufbau, der gewünscht ist. Im 1. Auswahlfeld sollen die Entgeltgruppen E 1 bis E 15Ü enthalten sein, im 2. Auswahlfeld soll die dazugehörige Stufe 1 bis 6 g...
04.06.2019 10:14:53
Thread-ID: 1695939
6 Beiträge
Anzahl der Artikel mit einem Preis von 10 €
Heischo
Hallo
wie kann ich mit Hilfe der Datenbankfunktion die Anzahl der Artikel mit einem preis von mehr als z.B.10€ zählen lassen ??
Gruß
Heiko
01.08.2003 10:55:42
Thread-ID: 288528
4 Beiträge
Anzeige
Alle Werte werden in € angezeigt. Warum?
christoph

Hallo.
Ich stehe vor einem Rätsel!
Ich habe ein Berechnungstool mit VBA entwickelt, und bei sämmtlichen Probedurchläufen lief alles wie gewollt.Jetz werden allerdings sämtliche Werte die mittels VBA bestimmt werden in € (!!!) angezeigt ohne das ich wüsste das ich es irgendwoe festgelegt...
31.08.2004 14:08:25
Thread-ID: 478033
5 Beiträge
Formatierung in €
Jürgen

bei der Formatierung im Bereich Währung wird bei mir immer noch DM als Standard angezeigt. Gibt es ein Tool wo man es auf € umstellen kann, ohne bei der Formatierung ständig nach dem Eurozeichen suchen zu müssen?
27.10.2004 10:53:33
Thread-ID: 507396
2 Beiträge
Benutzerdefiniertes Währungsformat €
Meyer

Installiert ist Excel 2003 SP2.
Die Programmierung schreibt die Zahl in eine Zelle mit dem Ausdruck
.Numberformat="#,##0.00 $"
In der Systemsteuerung ist das Eurozeichen als Länderkennzeichen eingestellt.
Ergebnis in der Tabelle z.B. 111,11000 $.
Mit Excel 2003 SP1 geht alles k...
03.11.2005 11:58:37
Thread-ID: 690959
2 Beiträge
Zelleingabe in US-$ automatisch in € umrechnen
Bernd

Hallo, liebe Community,
ich habe eine Tabelle, in der die Kollegen weltweit in lokaler Währung die Kosten eingeben sollen. Dieser Wert soll dann in Euro umgerechnet werden, und zwar automatisch per VBA.
Ich weiss, geht ja theopretisch per Formel/Verknüpfung. Wenn ich die Formel in die...
17.05.2006 10:22:49
Thread-ID: 764926
5 Beiträge
viele Werte von $ in € mit for-to-do?
$

Guten Morgen. Wie man bestimmt erkennen kann bin ich neu hier. Hoffe mein Problem ist nich zu simpel für euch. Hab grad ers mit Excel angefangen und nach einer Lösung für mein Problem gegoogled, aba leida nix gefunden.
Zum Problem:
Ich habe eine Liste mit Produkten. Zu jedem Produkt hab...
27.06.2007 09:50:05
Thread-ID: 881710
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
5
3
1
4
1
1
4
5
25
4
15