Währungsformat entsprechend Spalte mit Datum

Computer: Software & Programmierung Office Software
1

Hallo Leute!

Mein nächstes Problem (daß ich bei meiner tollen Excel-Anwendung völlig verschlafen habe) ist, wenn ich meine Daten erfaßt habe, daß bis 2001 ja alle Werte noch in DM sind und danach in Euro.

Teilweise habe ich das schon integrieren können, aber jetzt komme ich an einem Punkte nicht weiter.

In Spalte B steht jeweils das Datum.
In der Spalten C, D, F, G, H stehen Beträge momentan noch im Zahlenformat 0.00
Wenn nun in einer Zeile in Spalte B ein Datum

2

Mein nächstes Problem (daß ich bei meiner tollen
Excel-Anwendung völlig verschlafen habe) ist, wenn ich meine
Daten erfaßt habe, daß bis 2001 ja alle Werte noch in DM sind
und danach in Euro.
In Spalte B steht jeweils das Datum.
In der Spalten C, D, F, G, H stehen Beträge momentan noch im
Zahlenformat 0.00
Wenn nun in einer Zeile in Spalte B ein Datum Sub tt()

Dim zei As Long
For zei = 1 To Cells(65536, 2).End(xlUp).Row
If Year(Cells(zei, 2)) Gruß
Reinhard

3

Hallo Hans.

Geht es denn dabei lediglich um das Zahlenformat, oder muß auch noch eine Umrechnung der Werte stattfinden?

Viele Grüße
Carsten.

4

Hallo Reinhard!

Danke sehr, nach Einfügen von Next funktioniert es super.
Aber weil ich jetzt auch kapieren will, was da passiert:
Was genau bewirkt die Zeile

For zei = 1 To Cells(65536, 2).End(xlUp).Row

?

Gruß
Hans

5

Hallo Casten!

Ja, es muß auch noch umgerechnet werden. Aber ich will erstmal selbst versuchen, ob ich das allein hinkriege, bevor ich Euch hier wieder belästige. :smile:

Gruß
Hans

6

Danke sehr, nach Einfügen von Next funktioniert es super.
Aber weil ich jetzt auch kapieren will, was da passiert:
Was genau bewirkt die Zeile

For zei = 1 To Cells(65536,
2).End(xlUp).Row

?

Hi Hans,
sorry für das vergessene Next :smile:
Ich weiß nicht was die genaue Beschreibung ist, ich sehe das so, Vba geht in die Zelle B65536 und hüpft dann nach oben zur ersten belegten Zelle, also wie wenn man Strg und Pfeil nach oben macht, damit erhält man die letzte=unterste belegte Zelle einer Spalte.
Es gibt 2 Möglichkeiten eines Fehlers, a) wenn B65536 nicht leer ist und b) wenn Spalte B ganz leer ist.
für die letzte belegte Zelle einer Spalte nimmt man
sp=Range(„IV1“).end(xltoleft).column
Gruß
Reinhard

1 „Gefällt mir“
7

Danke, Reinhard!

für die letzte belegte Zelle einer Spalte nimmt man
sp=Range(„IV1“).end(xltoleft).column

Wenn Du da „einer Zeile“ geschrieben hättest und nicht „einer Spalte“, würde ich’s kapieren. Hast Du das verwurstet oder bin ich auf der falschen Spur?

Gruß
Hans

8

Ja Carsten, die Umrechnungen habe ich tatsächlich selbst hingekriegt. :smile:

Gruß
Hans

9

für die letzte belegte Zelle einer Spalte nimmt man
sp=Range(„IV1“).end(xltoleft).column

Wenn Du da „einer Zeile“ geschrieben hättest und nicht „einer
Spalte“, würde ich’s kapieren. Hast Du das verwurstet oder bin
ich auf der falschen Spur?

Hi Hans,
klar meinte ich Zeile, war nurn Test ob dus verstanden hast :smile:)))
Gruß
Reinhard