Excel help

Seite 1 von 1 - Forum: Applications, Apps & Drivers auf overclockers.at

URL: https://www.overclockers.at/applications/excel_help_52847/page_1 - zur Vollversion wechseln!

Primster schrieb am 25.10.2002 um 13:08

Hab eine Excel 2000 Tabelle mit etwa 300 Schilling Beträgen, die ungleichmäßig über die Tabelle verteilt sind.

Task: Die Schilling durch entsprechende Euros ersetzen, ohne jedes Mal den Betrag in den Rechner eintippen zu müssen und diesen dann ins passende Feld zu übertragen.

Any ideas?

JC schrieb am 25.10.2002 um 13:10

Makro schreiben, dass den Inhalt aller selektierten Zellen ohne wenn und aber in € umrechnet?

JC schrieb am 25.10.2002 um 13:21

Code:

Sub chgATS2EUR()
    For Each cell In Selection
        cell.Value = cell.Value / 13.7603
    Next
    MsgBox "Dun"
End Sub

fertig

Primster schrieb am 25.10.2002 um 13:24

Funkt!
Du bist DA man!

Thx!!

JC schrieb am 25.10.2002 um 13:26

np

Wie jedoch immer und überall: Ich übernehme keine Haftung für eventuell auftretende Schäden

Primster schrieb am 25.10.2002 um 13:52

Wahhh ich hab nen Virus!

Ringding schrieb am 25.10.2002 um 20:14

Geht auch viel einfacher:

13.7603 in eine Zelle reinschreiben, die Zelle kopieren.
Zielbereich auswählen und Edit|Paste Special ausführen. Operation auf Divide stellen.
Fertig