Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: esselte am November 06, 2011, 22:10:07 Nachmittag

Titel: DM in € bis 2002 automatisch umrechnen
Beitrag von: esselte am November 06, 2011, 22:10:07 Nachmittag
Hallo,

ich erstelle gerade eine Tabelle in der DM und € Beträge vorkommen.

Die Tabelle ist folgendermaßen aufgebaut:
Spalte A1 - Axx ist das Datum
Spalten B/C/D...1 - B/C/D...xx werden Beträge eingegeben.

Die Beträge sind auf Papier vorhanden und werden in die Tabelle eingetippt.
ist es möglich DM beträge (im bezug auf das Jahr) automatisch (ich tippe DM ein, drücke return und es steht der euro betrag drin) in Euro umrechnen zu lassen?

alá wenn A1 kleiner 2002 dann B1 / C1 / D1... geteilt durch 1,95583

ich arbeite mit excel 2003

Vielen Dank
gruß esselte
Titel: Antw:DM in € bis 2002 automatisch umrechnen
Beitrag von: Officer am November 07, 2011, 07:27:46 Vormittag
Hallo esselte,

Deine Fragestellung würde sich per VBA lösen lassen. Etwas einfacher sollte es aber mit Hilfsspalten sein. Füge dazu ab Zelle E1 folgende Formel ein =WENN(JAHR($A1)<2002;B1/1,95583;B1)
Kopiere diese Formel nun bis Spalte G nach rechts und soweit wie nötig nach unten.

Sobald nun in Spalte B/C oder D ein Wert eingegeben wird, erfolgt die Umrechnung in Euro in Spalte E/F/G anhand der Jahreszahl in Spalte A.

Siehe auch die beigefügte Beispieldatei.

Viele Grüße

Officer
Titel: Antw:DM in € bis 2002 automatisch umrechnen
Beitrag von: Beverly am November 07, 2011, 17:35:25 Nachmittag
Hi,

und hier noch eine VBA-Lösung (Rechtsklick auf den Tabellenreiter -> Code anzeigen und Code ins rechte Codefenster kopieren):

Code: [Auswählen]
Private Sub Worksheet_Change(ByVal Target As Range)
   For Each Target In Target
      If Target.Column > 2 And Target.Column < 6 Then
         If Cells(Target.Row, 1) < 2002 Then
            Application.EnableEvents = False
            If IsNumeric(Target) Then Target = Target / 1.95583
            Application.EnableEvents = True
         End If
      End If
   Next Target
End Sub

Bis später,
Karin
Titel: Antw:DM in € bis 2002 automatisch umrechnen
Beitrag von: esselte am November 07, 2011, 18:46:38 Nachmittag
Hallo,

danke für die Lösungen.
Die Variante von Karin scheint mir für mein Projekt geeigneter.
Kannst du mir vllt. den Satz "(Rechtsklick auf den Tabellenreiter -> Code anzeigen und Code ins rechte Codefenster kopieren)"
genauer erklären?
und noch die letzte Frage, bezieht sich der Code auf die "A Spalte" ? Weil es könnte vorkommen dass Zahlen wie 1999, 2000 etc. in den B, C, D... Spalten vorkommen

danke, Gruß esselte
Titel: Antw:DM in € bis 2002 automatisch umrechnen
Beitrag von: Officer am November 08, 2011, 07:23:02 Vormittag
Hallo esselte,

wenn Du den VBA-Editor geöffnet hast, kannst Du über eine Doppelklick auf das gewünschte Tabellenblatt in der die Umrechnung stattfinden soll, das Code-Fenster öffnen.

Füge nun einfach den folgenden Code ein. Der Code entspricht im Wesentlichen dem Vorschlag von Beverly.

Code: Visual Basic
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.    For Each Target In Target
  3.       If Target.Column >= 2 And Target.Column <= 4 Then
  4.          If Cells(Target.Row, 1) < 2002 Then
  5.             Application.EnableEvents = False
  6.             If IsNumeric(Target) Then Target = Target / 1.95583
  7.             Application.EnableEvents = True
  8.          End If
  9.       End If
  10.    Next Target
  11. End Sub
  12.  

Wenn in anderen Spalten die Zahlen 1999, 2000 etc. vorkommen, so ist dies nicht relevant. Es werden ausschließlich die Jahreszahlen in Spalte A geprüft.

Bitte schau Dir auch die Info zum Thema Crossposting (http://www.office-fragen.de/index.php/topic,114.0.html) an, da Du Deine Frage auch auf Office-Lösungen.de gestellt hast.

Und vergiss bitte nicht, den Beitrag als gelöst zu kennzeichnen (http://www.office-fragen.de/index.php/topic,108.0.html), wenn deine Frage gelöst wurde.

Viel Erfolg und vielen Dank

Officer