Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.
royze.q
ich schreib grad ein kleines vba skript, das ein paar finanzielle
sachen statistisch auswerten soll.
in der spalte a stehen die daten der transaktionen, in spalte g die
veränderung (also plus oder minus mit dem betrag) und in spalte j ist
eine liste von monaten (unabhängig vom inhalt der ersten beiden).
jetzt soll dieses skript die datumsliste in spalte a durchgehen und
für jeden monat eine bilanz ziehen, also wieviel plus/minus. natürlich
muss ich dafür noch ein paar sachen in der while schleife und der if
bedingung mit variablen gestalten, aber es funktioniert noch nicht
mal, wenn ich eine richtige vorgabe mache.
Tabelle1.Range("j" & n).Value ist der monat, der im moment berechnet
wird und Tabelle1.Range("j5").Value ist der letzte eintrag, bis dahin
soll das ganze berechnet werden.
If Tabelle1.Range("j4").Value <= Tabelle1.Range("a" & t).Value Then
--> diese zeile überprüft, ob der datumseintrag noch in dem aktuellen
monat ist oder nicht (in diesem fall werden alle einträge, die vor dem
datum in j4 sind dazugezählt, unabhänging davon, ob sie wirklich in
diesem monat liegen, wie gesagt, ich teste noch)
wenn ich das skript so ausführe bekomme ich die folgende fehlermeldung
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.
wenn ich aber j4 durch j3 ersetze, wird die korrekte bilanz für den
ersten monat gezogen.
hat jemand eine idee, woran das liegen könnte?
mfg
royze.q
Sub test()
n = 3
t = 2
x = 0
guthaben = 0
While Tabelle1.Range("j" & n).Value < Tabelle1.Range("j5").Value
If Tabelle1.Range("j4").Value <= Tabelle1.Range("a" & t).Value
Then
Tabelle1.Range("k" & n - 1).Value = guthaben
n = n + 1
guthaben = 0
End If
guthaben = guthaben + Tabelle1.Range("g" & t).Value
t = t + 1
x = x + 1
Wend
Tabelle1.Range("k11").Value = x
End Sub
Claus Busch
Am 31 Mar 2007 10:48:34 -0700 schrieb royze.q:
> ich schreib grad ein kleines vba skript, das ein paar finanzielle
> sachen statistisch auswerten soll.
> in der spalte a stehen die daten der transaktionen, in spalte g die
> veränderung (also plus oder minus mit dem betrag) und in spalte j ist
> eine liste von monaten (unabhängig vom inhalt der ersten beiden).
>
> jetzt soll dieses skript die datumsliste in spalte a durchgehen und
> für jeden monat eine bilanz ziehen, also wieviel plus/minus. natürlich
> muss ich dafür noch ein paar sachen in der while schleife und der if
> bedingung mit variablen gestalten, aber es funktioniert noch nicht
> mal, wenn ich eine richtige vorgabe mache.
>
> Tabelle1.Range("j" & n).Value ist der monat, der im moment berechnet
> wird und Tabelle1.Range("j5").Value ist der letzte eintrag, bis dahin
> soll das ganze berechnet werden.
> If Tabelle1.Range("j4").Value <= Tabelle1.Range("a" & t).Value Then
> --> diese zeile überprüft, ob der datumseintrag noch in dem aktuellen
> monat ist oder nicht (in diesem fall werden alle einträge, die vor dem
> datum in j4 sind dazugezählt, unabhänging davon, ob sie wirklich in
> diesem monat liegen, wie gesagt, ich teste noch)
> wenn ich das skript so ausführe bekomme ich die folgende fehlermeldung
> Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.
> wenn ich aber j4 durch j3 ersetze, wird die korrekte bilanz für den
> ersten monat gezogen.
[Code ausgeschnitten]
schau mal hier rein, vielleicht hilft es dir weiter:
http://www.claus-busch.de/Excel/Finanzen.xls
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de
royze.q
danke für die hilfe.
die idee mit der for schleife war super. ich hab das ganze jetzt noch
etwas angepasst (weil ich zu den monaten noch das jahr will, also
februar 2007 bis februar 2008) und es klappt bestens.
danke nochmal
mfg
royze.q
Claus Busch
Am 1 Apr 2007 03:43:27 -0700 schrieb royze.q:
> danke für die hilfe.
> die idee mit der for schleife war super. ich hab das ganze jetzt noch
> etwas angepasst (weil ich zu den monaten noch das jahr will, also
> februar 2007 bis februar 2008) und es klappt bestens.
> danke nochmal
gern geschehen. Freut mich, wenn ich helfen konnte. Danke für die
Rückmeldung.