2 Spalten: In A1 kommt der Preis in der Landeswährung (CHF) rein. In B1 wird automatische der Betrag in € ausgegeben. Soweit so gut.
In A30 und B30 werden die Summen addiert.
Ab A32 sind sonstige Kosten einzutragen wie Treibstoff, einmal auf der Hinfahrt in €, in CH aber auch.
Wie kann ich nun in A ab A32 die Währungen kombinieren? Ich weis, ich Scheiße erklärt.
Also: in von A1 – A30 kommen die Beträge in CHF.
In der Abrechnung, A32 – A? Sind Beträge sowohl in CHF als auch in € einzugeben, da ja sowohl in D als auch in CH Kosten anfallen.
Irgendeine Idee außer dass ich alles von CHF ->€ -> CHF von Hand umrechnen muss?
Gruß
Claude
PS: Könnte per Mail eine Demo senden, um es Verständlicher zu machen.
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim von\_reihe, bis\_reihe, spalte\_euro, spalte\_chf As Long
Dim kurs As Double
kurs = 2.3
von\_reihe = 31
bis\_reihe = 999
spalte\_euro = 1
spalte\_chf = 2
If Target.Row \>= von\_reihe And Target.Row
Gruß.Timo
> 2 Spalten: In A1 kommt der Preis in der Landeswährung (CHF)
> rein. In B1 wird automatische der Betrag in € ausgegeben.
> Soweit so gut.
> In A30 und B30 werden die Summen addiert.
> Ab A32 sind sonstige Kosten einzutragen wie Treibstoff, einmal
> auf der Hinfahrt in €, in CH aber auch.
> Wie kann ich nun in A ab A32 die Währungen kombinieren? Ich
> weis, ich Scheiße erklärt.
> Also: in von A1 – A30 kommen die Beträge in CHF.
> In der Abrechnung, A32 – A? Sind Beträge sowohl in CHF als
> auch in € einzugeben, da ja sowohl in D als auch in CH Kosten
> anfallen.
> Irgendeine Idee außer dass ich alles von CHF -\>€ -\> CHF
> von Hand umrechnen muss?
> Gruß
> Claude
> PS: Könnte per Mail eine Demo senden, um es Verständlicher zu
> machen.