Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelle nach Eingabe automatisch auf Euro umrechnen

Zelle nach Eingabe automatisch auf Euro umrechnen
25.12.2015 14:24:23
Uli
Moin, und frohe Weihnachten.
Gibt es die Möglichkeit, dass ich eine Zelle so formatiere, dass sie automatisch Euro-Werte reinschreibt, wenn ich DM-Beträge eingebe?
Beispiel: ich tippe in A1 den Wert 100 (und meine damit DM). Die Zelle soll dann 51,13 € ausweisen. Geht sowas?
lg.Uli

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA
25.12.2015 14:59:06
hary
Moin
Code in den Code der Tabelle.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) = "A1" Then
Application.EnableEvents = False
Target = CCur(Round(Target / 1.95583, 2))
Application.EnableEvents = True
End If
End Sub

gruss hary

Anzeige
AW: Zelle nach Eingabe automatisch auf Euro umrechnen
25.12.2015 15:04:49
Hajo_Zi
Hallo Uwe,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target = Round(Target / 1.95583, 2)
Application.EnableEvents = True
End If
End Sub

Anzeige
Als Ansatz
25.12.2015 15:05:01
RPP63
Hallo und frohes Fest!
Prinzipiell so für Spalte A:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 Then
Application.EnableEvents = False
.Value = .Value / 1.95583
Application.EnableEvents = True
End If
End With
End Sub
Nur: Hast Du nicht genug Spalten?
Ich würde mit Formeln arbeiten.
Gruß Ralf

Anzeige
AW: Als Ansatz
25.12.2015 15:11:45
Uli
Danke Euch allen
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zelle nach Eingabe automatisch auf Euro umrechnen


Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel so zu formatieren, dass sie automatisch DM-Beträge in Euro umrechnet, kannst du ein einfaches VBA-Makro verwenden. Hier ist die Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu starten.

  2. In der linken Seitenleiste findest du dein Arbeitsbuch. Doppelklicke auf die Tabelle, in der du die Umrechnung durchführen möchtest.

  3. Füge den folgenden Code in das rechte Fenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Column = 1 Then ' Spalte A
           Application.EnableEvents = False
           Target.Value = Round(Target.Value / 1.95583, 2) ' Umrechnung DM in Euro
           Application.EnableEvents = True
       End If
    End Sub
  4. Schließe den VBA-Editor.

  5. Jetzt kannst du in Zelle A1 DM-Beträge eingeben, und sie werden automatisch in Euro umgerechnet.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du das Makro im richtigen Arbeitsblatt eingefügt hast und dass die Makros in Excel aktiviert sind.
  • Fehler: Die Umrechnung erfolgt nicht korrekt.

    • Lösung: Überprüfe, ob der Umrechnungsfaktor (1.95583) korrekt ist und ob du tatsächlich DM-Beträge eingibst.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch eine Formel nutzen, um DM in Euro umzurechnen. Hier ist ein Beispiel:

  1. Gib den DM-Betrag in Zelle A1 ein.
  2. In Zelle B1 kannst du die Formel verwenden:

    =A1/1.95583

Diese Methode ist besonders nützlich, wenn du mehrere Umrechnungen in einer Tabelle durchführen möchtest, ohne VBA zu verwenden.


Praktische Beispiele

  • Beispiel 1: Du gibst 100 in Zelle A1 ein. Die Zelle wird automatisch auf 51,13 € umgerechnet.
  • Beispiel 2: Mit der Formel in Zelle B1 wird der DM-Betrag in A1 in Euro umgerechnet, wenn du z.B. 200 DM eingibst, zeigt B1 102,06 € an.

Tipps für Profis

  • Du kannst das VBA-Makro erweitern, um auch andere Währungsumrechnungen hinzuzufügen, z.B. Dollar in Euro umrechnen.
  • Verwende Formatierungen, um die Zellen automatisch im Euro-Format darzustellen, sobald die Umrechnung erfolgt ist.

FAQ: Häufige Fragen

1. Wie kann ich das Makro auf andere Spalten anwenden?
Du kannst die Zeile If Target.Column = 1 Then anpassen, um andere Spalten zu berücksichtigen. Ändere die Zahl entsprechend der Spalte, die du verwenden möchtest.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst die Desktop-Version von Excel verwenden.

3. Gibt es eine Möglichkeit, die Umrechnung automatisch zu aktualisieren?
Ja, das VBA-Makro sorgt dafür, dass die Umrechnung automatisch erfolgt, sobald du einen Wert eingibst. Überprüfe jedoch die Umgebungsvariablen, falls die automatische Aktualisierung nicht funktioniert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige