Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Amerikanisches Währungsformat umwandeln

Amerikanisches Währungsformat umwandeln
04.01.2013 17:20:50
Martin
Hallo,
jede Woche erhalte ich eine Excelliste, die ich auswerte. Problem: die auszuwertende Tabelle enthält Spalten mit als TEXT formatierten Einträgen in dieser Schreibweise: "$1,524.99" (also einem "überflüssigen" Dollarzeichen und amerikanischer Dezimaltrennung etc). Damit ich nun Summen ziehen kann, suche und ersetze ich jedes Mal das "$" sowie die "," durch 'nichts', um dann anschliessend die Punkte durch Kommas zu ersetzen. Im Ergebnis habe ich folgenden Zelleneintrag: "1524,99", womit ich dann rechnen kann.
Gibt es eine Möglichkeit, dieses Prozedere zu automatisieren?
Vielen Dank für Eure Hilfe!
Grüße,
Martin

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Amerikanisches Währungsformat umwandeln
04.01.2013 17:50:08
Sheldon
Hi Martin,
das hier gehört in ein Modul der betreffenden Mappe. Also VBA-Editor aufrufen mit Alt+F11. Dann findest Du irgendwo auf der linken Seite des Bildschirms den Namen Deiner Datei. Da klickst Du dann mit der rechten Maustaste drauf, Einfügen -> neues Modul. Dort fügst Du das dann ein:
Sub aaaa()
Dim Rng As Range, txTmp As String
For Each Rng In ActiveSheet.UsedRange
If Left(Rng, 1) = "$" Then
txTmp = Replace(Right(Rng.Value, Len(Rng.Value) - 1), ".", ";")
txTmp = Replace(txTmp, ",", "")
txTmp = Replace(txTmp, ";", ",")
Rng.Value = CDbl(txTmp)
End If
Next
End Sub
Im Prinzip kannst Du das Makro auch in einer separaten Datei speichern und jeweils diese öffnen, wenn Du das Makro brauchst.
Ach ja, ausführen geht dann (zumindest in V2007) über Entwicklertools -> Makros -> Name des Makros -> Ausführen. Oder über das Play-Symbol im VB-Editor.
Gruß
Sheldon

Anzeige
AW: Amerikanisches Währungsformat umwandeln
04.01.2013 18:25:12
Martin
wow, that was quick :)
Danke für die Antwort. Klappt so weit ganz prima, wenn ich das im VB-Editor einfüge.
Ein Problem habe ich leider übersehen: es gibt noch Einträge in diesem Stil: "($5,758.08)". Das sind negative Werte, also eigtl müsste ein "-" davorstehen. Wie sieht da der entsprechende If-Befehl aus um die auch entsprechend zu ersetzen? Sorry, VBA ist Neuland für mich.
Was ich nicht verstanden habe: wie kann ich Deinen Code als Detei speichern, um ihn dann jeweils auf eine neue Excel-Tabelle anzuwenden?
Danke!

AW: Amerikanisches Währungsformat umwandeln
04.01.2013 19:43:18
Martin
...

AW: Amerikanisches Währungsformat umwandeln
04.01.2013 19:48:20
Hajo_Zi
Hallo Martin,
Du solltest mal erklären woran man ein negativen Wert erkennt für mich sehen die Einträge $1,524.99 $5,758.08 gleich aus. Der zweite soll aber negativ sein. Warum?
Gruß Hajo

Anzeige
AW: Amerikanisches Währungsformat umwandeln
04.01.2013 19:53:38
Martin
Hi Hajo,
der zweite Wert steht in Klammern. Das diese Werte in Klammern nun negative Zahlen sind, ist eine rein willkürliche Setzung. War nicht meine Idee...

AW: Amerikanisches Währungsformat umwandeln
04.01.2013 19:55:37
Sheldon
Hi Martin,
dann so:
Sub aaaa()
Dim Rng As Range, txTmp As String
For Each Rng In ActiveSheet.UsedRange
Select Case Left(Rng, 1)
Case "$"
txTmp = Replace(Right(Rng.Value, Len(Rng.Value) - 1), ".", ";")
txTmp = Replace(txTmp, ",", "")
txTmp = Replace(txTmp, ";", ",")
Rng.Value = CDbl(txTmp)
Case "("
If Mid(Rng, 2, 1) = "$" Then
txTmp = Replace(Right(Rng.Value, Len(Rng.Value) - 2), ".", ";")
txTmp = Replace(txTmp, ",", "")
txTmp = Replace(txTmp, ";", ",")
txTmp = "-" & Left(txTmp, Len(txTmp) - 1)
Rng.Value = CDbl(txTmp)
End If
End Select
Next
End Sub

Das mit dem separat speichern: Du speicherst die Datei mit dem Makro drin ab. Wenn Du nun eine neue Datei zum Konvertieren von Dir hast, rufst Du sie wieder auf, gehst zurück in die zu konvertierende Datei und startest dann das Makro. Wichtig ist nur, dass das Tabellenblatt gerade aktiv ist, also im Vordergrund, wenn Du das Makro startest.
Gruß
Sheldon

Anzeige
AW: Amerikanisches Währungsformat umwandeln
04.01.2013 20:42:42
Martin
Sheldon, das klappt, vielen Dank!
Ich habe das Ganze jetzt als Addin hinterlegt und die Ribbonbar um eine neue Registerkarte ergänzt. Gruppen kann ich da auch anlegen, nur einen Button kriege ich nicht hin, der die Funktion dann aufrufen würde. Hat da jemand einen Tipp?

AW: Amerikanisches Währungsformat umwandeln
04.01.2013 22:12:54
Martin
hat sich erledigt, ich hab's hinbekommen. danke für eure unterstützung!

300 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Erstellungsdatum bzw. Änderungsdatum in Zelle
di

Hi Forum!
ich habe eine Tabelle mit Adressen (Liste) und möchte gerne beim hinzufügen eines neuen Datensatz beziehungsweise bei Änderung, das aktuelle Datum mit Uhrzeit und Benutzername automatisch in die vordefinierte Zelle eintragen lassen.
Beispiel:
RegistriertAm RegistriertVon G...
01.09.2008 13:22:00
Thread-ID: 1006414
10 Beiträge
Anzeige
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Datum als Text kopieren
Thomas3

Hallo zusammen,
ich habe folgendes Problem.
Aus einer Datei werden aus einer Spalte das Tagesdatum in eine andere Datei kopiert.
Das ist kein Problem.
Aus der zweiten Datei werden dann mittels Serienbrief diese Daten ausgelesen.
Und nun beginnt das Problem.
Das Datum ko...
16.09.2008 18:22:00
Thread-ID: 1010173
4 Beiträge
Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 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
3
3
16
9
6
5
3
3
5
1
6
3
31
4
2
6
7
4
3
2
5
10
4
14
2