Problem Ganze Tabelle automatisch von DM auf € umschlaten

[thesimpson50]

Hi...

ich habe ein riesen Problem...

in meinem Informatik Kurs haben wir hausaufgaben auf bekommen... wie üblich

jetzt haben wir ein Exel dokument bekommen wo es sich um preis für Produkte handelt...

jetzt ist mein problem der lehrer will, das wir es hinbekommen, das alle Nummer automatisch in euro umgewandelt und umgerechnet werden...

ist das irgenwie möglich ???

[Neuling_1]

Frage: Sollte die Umrechnung in der selben Spalte erfolgen oder kann man dazu eine neue Spalte einfügen. Bei ersteren, Spalte anklicken Funktion einfügen und dann die Formel für die Berechnung einfügen. Bei der zweiten möglichkeit das gleiche wie ich vorher beschrieben habe nur, dass du die Formel in die neue Spalte einfügst.

[thesimpson50]

danke für die schnellen antworten ...

aber leider haben wir keine Add-ins weder noch kann ich alle "nummern" duch 1,95 teilen da es über 250 sind...

einer eine idee wie man das in eins alles machen kann ?

[Tattooed1980]

Hy

Ich hätte hier eine kleine Makro-Lösung:

Annahme das die Werte in den Zellen C1 bis C250 stehen.

1. Umrechnung in der selben Spalte

Sub umrechnen1()
Dim i as Integer

For i = 1 to 250
  Cells(i,3).value = cells(i,3).value / 1.95 
  Cells(i,3).select
  Selektion.NumberFormat = "$ #,##0.00" ' Formatiert die selektierte Zelle im Währungs-format
Next i

End sub

2. Umrechnung in der Nebenspalte (Spalte "D")

Sub umrechnen2()
Dim i as Integer

For i = 1 to 250
  Cells(i,4).value = cells(i,3).value / 1.95 
  Cells(i,4).select
  Selektion.NumberFormat = "$ #,##0.00" ' Formatiert die selektierte Zelle im Währungs-format
Next i

End sub

Oder ohne Makro (händisch)

in Zelle "D1" folgendes eingeben

=C1/1,95

Und dann mit "AutoAusfüllen" (rechte untere Ecke der Zelle anklicken und mit der Maus und gedrückter Maustaste bis zur letzten Zelle runterfahren)
bis Zelle "D250" ausfüllen.

Hoffe es hilft.

MfG Tattooed1980