Office: (Office 2007) excel vba aus teilergebniss saldo berechnen

Hallo,

in einer Excel-Tabelle lasse ich mit vba Teilergebnisse berechnen. Klappt einwandfrei.
Anschließend ermittele ich den Saldo der Teilergebnisse in einer separaten Spalte mit:

lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For t = lz To 2 Step -1
If Cells(t, 1).Value = "" Then
Cells(t, 11).Value = Cells(t, 9) - Cells(t, 8)
End If
Next t

Klappt hervorragend, allerdings wird der Saldo weder für das letzte Teilergebniss ausgegeben noch für das Gesamtergebnis. Auf letztere Info kann ich verzichten, aber ich benötige den Saldo aller Teilergebnisse.
Wo liegt das der Hase im "Pfeffer"???

Gruß
Angela

 

Hallo Angela,

ohne Deine Tabelle zu kennen ist es nur geraten, aber lass Dein makro doch mal im Einzelschrittmodus laufen, und überprüfe welche Zeile Dir als Letzte Zeile ausgegeben wird.
Wenn ich das richtig sehe, ermittelst Du in Spalte A die letzte Zeile der Tabelle.
Dann läuft die Schleife rückwärts und sucht nach Zeilen, wo in Spalte A kein Wert steht, weil in den Spalten 8 und 9 die Zwischenergebnisse stehen.
Jetzt vermute ich, dass Dein letztes Zwischenergebniss auch unterhalb eines Blockes von Einträgen steht, und somit in dieser Zeile in Spalte A eben auch kein Wert ist. Wenn unterhalb Deines letzten Zwischenergebnisses nirgendwo in Spalte A mehr ein Eintrag vorkommt, dann wird Dein Makro als letzte Zeile die Zeile VOR Deinem letzten Zwischenergebniss ausgeben, und dieses somit niemals berücksichtigen.
Wenns wirklich daran liegt sollte es eigentlich so klappen:

Code:

lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row + 1

Alles verstanden?

 

Hi Angela,

benutze eine andere Methode zum Ermitteln der letzen belegten Zeile:

Code:

lz = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Damit wird die letzte belegte Zeile im benutzten Bereich ermittelt, unabhängig von irgendeiner Spalte.

Bis später,
Karin

 

Hallo Karin,
vielen Dank für die Lösung!!! Hat sofort funktioniert.

LG
Angela