EXCEL***Euro-Umwandlung

Computer: Software & Programmierung Office Software
1

Hallo Experten,

ich benutze ECXEL 97 und habe viele Dateien mit DM-Werten.

Wie kann man, z.B. mit einem Makro die vorhandenen DM-Werte in Euro-Werte umwandeln?
Ich habe es mit einem Makro probiert bei dem ich über EDIT (F2) die Daten aus der Zelle nehmen und in Euro umrechnen wollte, aber das Makro hat dann bei der nächsten Zelle den Wert der ersten Zelle genommen.
Was ist möglich?

Gruß Ivar.

2

Hallo Ivar,

Sicherheitskopie !!

  1. Schreib den Umrechnungsafaktor (1,95583) in eine freie Zelle Deiner Tabelle.
  2. Markiere ihn und übernimm ihn mit STRG+C in die Zwischenablage.
  3. Markiere den Bereich, den Du umrechnen willst.
  4. Über das Menü: Bearbeiten/Inhalte einfügen/Vorgang Dividieren
    kannst Du nun Deine DM Werte in Euro.Werte umwandeln.
  5. Anschließend noch die umgerechneten Zellen in Euro-Währung formatieren.
    Möchtest Du nur 2 Stellen nach dem Komma in Deinen Zellen haben, so mußt Du vor dem Formatieren über das Menü: Extras/Optionen/Berechnung "Genauigkeit wie angezeigt einstellen, dann wird kaufmännisch gerundet, nicht nur angezeigt, sondern die gerundeten Werte stehen dann in den Zellen.
    Später die Genauigkeit wieder zurückstellen!

Viel Erfolg
Ullrich Sander

3

Hallo Ullrich,

danke für den schnellen Tip. Es funktioniert mit 2 Einschränkungen:

  1. Die Kommentare werden gelöscht.
  2. Die Rahmenformattierungen werden ebenfalls gelöscht.

Siehst Du eine Möglichkeit 1. & 2. zu behalten?

Gruß Ivar.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Hallo Ivar,

hier zwei Makros für Dich …

Sub DMinEuro()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula = True Or IsNumeric(Zelle) = False _
Or IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle = Zelle / 1.95583
End If
If IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle.NumberFormat = „#,##0.00 €;-#,##0.00 €“
End If
Next Zelle
End Sub

Sub EuroinDM()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula = True Or IsNumeric(Zelle) = False _
Or IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle = Zelle * 1.95583
End If
If IsEmpty(Zelle) Or IsDate(Zelle) Then
Else
Zelle.NumberFormatLocal = „#.##0,00 DM;-#.##0,00 DM“
End If
Next Zelle
End Sub

gruss moritzbock

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

Nachtrag: EXCEL***Euro-Umwandlung
Glatt vergessen …

vor dem Ausführen eines der Makros mußt Du natürlich die betreffen Spalte markieren (dauert länger) oder nur die betreffenden Felder markieren (geht schneller)

Außerdem werden ALLE Formatierungen (auch Kommentare) übernommen … :smile:

gruss moritzbock

6

Hallo Ivar,

danke für den schnellen Tip. Es funktioniert mit 2
Einschränkungen:

  1. Die Kommentare werden gelöscht.
  2. Die Rahmenformattierungen werden ebenfalls gelöscht.

Siehst Du eine Möglichkeit 1. & 2. zu behalten?

Ich bin zwar nicht Ulrich, aber das behältst Du, wenn Du in der Dialogbox, in der Du „dividieren“ auswählst, oben „Werte“ anklickst.

Gruß Kubi

1 „Gefällt mir“
7

Hallo Ivar,
falls das nicht schon durch das Makro von Moritzblock erledigt ist:
Wenigstens die Rahmen kannst Du erhalten, wenn Du in dem Bearbeiten/Inhalte einfügen-Fenster im oberen Bereich noch
„Alles außer Rahmen“ anklickst.
Wie man die Kommentare erhalten kann, hab ich allerdings keine Idee.

Viel Erfolg
Ullrich Sander

8

Kubi hat`s!!
Hallo Ivar,
Kubi hat recht,
wenn Du „Werte“ und „dividieren“ anklickst hast Du alles was Du bauchst.
Unsere Beiträge haben sich um Minuten gekreuzt.
Ullrich Sander

9

Hallo Ullrich, Kubi und Moritzbock,

in der Zwischenzeit ward Ihr ganz schön aktiv.
So wie es ausschaut funktioniert der direkte Weg über Zwischenablage und „Inhalte einfügen“ sowohl mit „Werte“ als auch mit „Formeln“.
Den etwas schwierigeren Weg über Makro von Moritzblock habe ich noch nicht getestet. (Man ist ja froh, wenn es einfach geht).
Werde ich in ruhiger Stunde aber angehen.

Vielen Dank für Eure guten Tipps.

Schönes Wochenende - Ivar.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

10

RESEND-Meinen Dank an die Akteure hatte ich etwas ungünstig an meine Frage gehängt. Deshalb Wiederholung am Schluß. Gruß Ivar.

Hallo Ullrich, Kubi und Moritzbock,

in der Zwischenzeit ward Ihr ganz schön aktiv.
So wie es ausschaut funktioniert der direkte Weg über Zwischenablage und „Inhalte einfügen“ sowohl mit „Werte“ als auch mit „Formeln“.
Den etwas schwierigeren Weg über Makro von Moritzblock habe ich noch nicht getestet. (Man ist ja froh, wenn es einfach geht).
Werde ich in ruhiger Stunde aber angehen.

Vielen Dank für Eure guten Tipps.

Schönes Wochenende - Ivar, 12.10.2001.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]