Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Euro - Britisches Pfund Spaltenkonversion

Forumthread: Euro - Britisches Pfund Spaltenkonversion

Euro - Britisches Pfund Spaltenkonversion
17.08.2016 11:14:42
Tiemo
Hallo, liebes Forum!
Ich bin auf der Suche nach der richtigen VBA-Codierung für mein kleines Problemchen;
ich habe mir den 1-Jahres durchschnitts Wechselkurs für den Pfund genommen (das reicht aus für meine Zwecke) und brauche dazu eine Spaltenkonversion, also wenn ich in Spalte A einen Eurowert eingebe soll ein Pfundwert automatisch eingetragen/konvertiert werden und wenn in Spalte B ein Pfundwert eingetragen wird, soll Excel das nach Euro konvertieren. Und dazu noch, dass das ganze überschreibbar ist durch Neueintragung.
€ --- £
1 --- 0,851
£ --- €
1 --- 1,175
https://www.herber.de/bbs/user/107625.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Euro - Britisches Pfund Spaltenkonversion
17.08.2016 11:53:09
Werner
Hallo Tiemo,
meinst du so?
Application.EnableEvents = False
If Target.Row > 3 And Target.Column = 6 Then
Cells(Target.Row, 7) = Target.Value * 0.851
Application.EnableEvents = True
End If
If Target.Row > 3 And Target.Column = 7 Then
Application.EnableEvents = False
Cells(Target.Row, 6) = Target.Value * 1.175
Application.EnableEvents = True
End If
Code gehört ebenfalls in das Worksheet_Change Event
Gruß Werner
Anzeige
AW: Euro - Britisches Pfund Spaltenkonversion
17.08.2016 12:33:42
Tiemo
Vom Prinzip her meine ich das. Nur, dass bei meiner Datei Werte in Spalte 5 und 6 stehen, die müssten nachträglich noch gelöscht werden um wirklich nur das Macro vor Augen zu haben. Ohne die Formatierung von Spalte 6 funktioniert das Ganze nicht.
AW: Euro - Britisches Pfund Spaltenkonversion
17.08.2016 12:51:53
Werner
Hallo Tiemo,
also ehrlich gesagt habe ich keine Ahnung was du damit meinst.
Gruß Werner
Anzeige
AW: Euro - Britisches Pfund Spaltenkonversion
17.08.2016 13:47:00
Werner
Hallo Tiemo,
also was ich da jetzt sehen soll ist mir unklar.
Aber ein paar Bemerkungen:
Du hast in Spalte J bedingte Formatierungen drin. Für was sollen die gut sein? Du färbst doch die Zellen mittels Makro.
Wobei man da wohl eher sagen muss, du willst die mittels Makro färben. Kann es sein, dass du da kürzlich noch eine zusätzliche Spalte eingefügt hast?
Für die Färbung der Spalte J hast du folgenden Code 
Set Bereich = ActiveSheet.Range(Cells(4, 9), Cells(1000, 9))
If Target.Column = 9 Then
9 ist aber nicht Spalte J sondern Spalte I so dass sich da bei Änderung in Spalte J auch nichts tut.
Du solltest dann schon die Spalte J abfragen 
Set Bereich = ActiveSheet.Range(Cells(4, 10), Cells(1000, 10))
If Target.Column = 10 Then
Und das hier:
Nur, dass bei meiner Datei Werte in Spalte 5 und 6 stehen, die müssten nachträglich noch gelöscht werden um wirklich nur das Macro vor Augen zu haben.
Verstehe ich weiterhin nicht.
Ich lade dir mal deine Datei hoch mit den Änderungen (Anpassung auf Spalte J, bedingte Formatierungen gelöscht).
https://www.herber.de/bbs/user/107671.xlsm
Gruß Werner
Anzeige
AW: Euro - Britisches Pfund Spaltenkonversion
17.08.2016 14:21:53
Tiemo
Hallo Werner,
stimmt die Bedingung macht nichtmehr soviel Sinn, ich hatte die Tabelle nach unten hin offen, wollte aber nur die ersten 1000 Zeilen formatieren. Danke für die Änderung, stimmt ich habe erst kürzlich eine Spalte eingefügt.
Was ich meine ist, dass das Macro, das du geschrieben hast, ansatzweise funktioniert hat, als ich noch die Geldbeträge in den Zeilen hatte, d.h. für die Konvertierung von GBP nach EUR, das allerdings nichtmehr funktioniert hat, als ich in leere Zellen hypothetische Werte eingetragen habe. Ich kann mir nicht erklären, woran das liegt.
Gruß, Tiemo
Anzeige
AW: Euro - Britisches Pfund Spaltenkonversion
17.08.2016 16:09:50
Tiemo
Hoppla, da ist mir offenbar ein Fehler unterlaufen. Es funktioniert alles bestens. Vielen Dank nachträglich!
AW: Gerne u. Danke für die Rückmeldung. o.w.T
17.08.2016 17:00:36
Werner
;

Forumthreads zu verwandten Themen

Euro in Menüleiste
Olaf

Guten Morgen Leute,
Wie ist es möglich in Excel 97 das Euro Zeichen in der Menüleiste zu haben.
Um Hilfe wäre ich sehr dankbar.
Mfg
Olaf

17.02.2003 09:55:20
Thread-ID: 220075
4 Beiträge
6 Minuten entsprechen 0,477 Euro
Dirk
6 Minuten entsprechen 0,477 Euro. Wieviel Minuten/Sekunden habe ich dann für 4,13 Euro telefoniert?
09.09.2003 22:02:40
Thread-ID: 307520
8 Beiträge
Währungszeichen in Euro!
Beate
hallo,
ich will eigentlich nur das währungszeichen von DM auf € umstellen, wenn ich die währungstaste in der symbolleiste drücke. ich bekomme es nicht hin, ich habe die onlinehilfe durchgelesen und kein tipp hat geholfen. die währungseinstellungen in den ländereinstellungen in der systemsteuerung...
21.01.2004 13:48:24
Thread-ID: 368005
9 Beiträge
- 0.00 € soll +1,00 € sein
Susi

Kann man eine Formel erstellen, dass wenn ein negativer Wert erscheint, dort dann eine 1 erscheint? D.h. wenn bei einer Rechnung z.b. - 20€ herauskommt soll Excel dort 1 € eintragen.
Kann das Programm auch automatisch,wenn z.b. 54 € oder 53 € drin stehen, 49 € daraus machen und wenn es über...
27.10.2004 13:28:36
Thread-ID: 507594
4 Beiträge
10_EURO_in_5 min_AN EXCELKENNER
DRS

Hallo
Wir sind ein Warenvertrieb und wir brauchen ein kleines Warenwirtschaftsprogramm.Grundlage habe ich schon gemacht,man muss es nur noch ins LEBEN rufen.
Ich habe es zum server hochgeladen--BITTE ANSCHAUEN---
Die Datei https://www.herber.de/bbs/user/12737.xls wurde aus Datenschutz...
28.10.2004 12:18:03
Thread-ID: 508399
6 Beiträge
Anzeige
Währungsschaltfläche dauerhaft in Euro umstellen
Reno

Hallo Leute,
wie kann ich das Währungszeichen in der Symbolleiste dauerhaft auf Euro umstellen?
gruß
reno
18.03.2005 14:36:40
Thread-ID: 587403
5 Beiträge
Problem!!!Stunden hochzählen und dann in euro???
Thomas

Ich möchte eine Tabelle erstellen in der ich in den Zellen A1-A20 den Arbeitsbeginn eintrage, in den Zellen B1-B20 das Arbeitsende. In den Zellen C1-C20 sollen die Arbeitsstunden des jeweiligen Tags berechnet werden (nicht mit " : " sondern mit " , "getrennt
Also nicht 6:00 Std sondern 6,00...
22.06.2005 23:41:40
Thread-ID: 627621
5 Beiträge
Begriff "100,00 EUR" in Wert umwandeln
blumiblum

Hallo Ihr,
habe folgendes Problem
Ein Bekannter hat mir eine Tabelle zugeschickt (1900 Zeilen).
Leider hat er nicht nur die Werte (Bspl. 100,00), sondern die Währung jedesmal mit Hand dazugeschrieben (Bspl. 100,00 EUR).
Natürlich erkennt das Programm seine Eingaben nicht als Zah...
07.08.2006 09:34:41
Thread-ID: 789152
4 Beiträge
Anzeige

Infobox / Tutorial

Euro - Britisches Pfund Spaltenkonversion

Schritt-für-Schritt-Anleitung

Um eine Spaltenkonversion zwischen Euro und Britischem Pfund in Excel durchzuführen, kannst Du VBA verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und lade Deine Arbeitsmappe.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Doppelklicke auf das entsprechende Worksheet, in dem die Konversion stattfinden soll (z.B. „Tabelle1“).

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

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Row > 3 And Target.Column = 6 Then
        Cells(Target.Row, 7) = Target.Value * 0.851 ' Euro zu Pfund
    ElseIf Target.Row > 3 And Target.Column = 7 Then
        Cells(Target.Row, 6) = Target.Value * 1.175 ' Pfund zu Euro
    End If
    Application.EnableEvents = True
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Teste die Konversion, indem Du Werte in Spalte 6 (Euro) und Spalte 7 (Pfund) eingibst.

Häufige Fehler und Lösungen

  • Fehler: Die Konversion funktioniert nicht.
    Lösung: Stelle sicher, dass Du den Code im richtigen Worksheet eingefügt hast. Vergewissere Dich, dass die Bedingungen im Code korrekt sind (z.B. Spalte 6 für Euro und Spalte 7 für Pfund).

  • Fehler: Die Werte werden nicht überschrieben.
    Lösung: Prüfe, ob die Zellen in den betroffenen Spalten (6 und 7) korrekt formatiert sind und keine bedingten Formatierungen die Anzeige der Werte beeinflussen.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch einfache Excel-Formeln für die Umrechnung nutzen:

  1. In Spalte B (für Pfund) kannst Du die Formel verwenden:

    =A1*0.851

    (Hierbei ist A1 die Zelle mit dem Euro-Wert)

  2. In Spalte A (für Euro) kannst Du die Formel verwenden:

    =B1*1.175

    (Hierbei ist B1 die Zelle mit dem Pfund-Wert)

Praktische Beispiele

  • Beispiel 1: Wenn Du 1000 Euro in Pfund konvertieren möchtest, gib in Zelle A1 den Wert 1000 ein. In Zelle B1 wird nun automatisch der Wert 851 (1 € in Pfund) angezeigt.

  • Beispiel 2: Wenn Du 1000 Pfund in Euro konvertierst, gib in Zelle B1 den Wert 1000 ein. In Zelle A1 wird nun automatisch der Wert 1175 (1 Pfund in Euro) angezeigt.

Tipps für Profis

  • Automatische Aktualisierung: Wenn Du den Wechselkurs regelmäßig aktualisieren möchtest, erwäge den Einsatz einer externen Datenquelle oder eines APIs, um die aktuellen Wechselkurse zu beziehen.

  • Benutzerdefinierte Formate: Du kannst die Zellen in Excel so formatieren, dass sie Währungsformate anzeigen (z.B. Euro oder Pfund), um eine bessere Lesbarkeit zu gewährleisten.

  • Datenvalidierung nutzen: Setze Datenvalidierung in den Eingabezellen ein, um sicherzustellen, dass nur gültige Werte eingegeben werden, was Fehler und falsche Eingaben reduziert.

FAQ: Häufige Fragen

1. Wie kann ich den Wechselkurs anpassen?
Du kannst den Wechselkurs im VBA-Code oder in den Formeln einfach ändern. Ersetze die Werte 0.851 und 1.175 mit den neuen Wechselkursen.

2. Funktioniert das auch in Excel 365?
Ja, die beschriebenen Methoden funktionieren in allen aktuellen Excel-Versionen, einschließlich Excel 365.

3. Was ist, wenn ich mehrere Währungen konvertieren möchte?
Du kannst den VBA-Code erweitern oder zusätzliche Spalten für weitere Währungen hinzufügen, indem Du die entsprechenden Wechselkurse einfügst.

Beliebteste Forumthreads (12 Monate)

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