Summe mit variablem Bereich

Hallo,
ich habe seinerzeit (auch mit Hilfe dieses Formums) für eine soziale Kleiderbörse mit Excel 2003 eine Abrechnungshilfe geschrieben. Jetzt mit 2007/2010 funktioniert das Marko nicht mehr, es wird lediglich ""Summe()"" ausgegeben...im Makro steht:

Sub Summe()
' Tastenkombination: Strg+s
ActiveCell = "Summe"
Application.SendKeys ("%=~")
End Sub

Also, in der Liste trägt die Kassiererin in Spalte A den die Verkäufternummer ein und in Spalte B den dazugehörigen Preis. Hat sie alle Arktikel erfasst soll mit der Tasenkombination STRG+S in der daunter folegende Zeile in Spalte A "Summe" geschrieben stehen und in Spalte "B" die Summe aus dem darüber liegenden Bereich bis zur letzten Summe... (ählich so wie es mit der händischen version "Autosumme klappt). Die Zeile mit der Summe soll auch noch anders formatiert sein...siehe Datei in er ich das händisch gemacht habe....wäre toll wenn jemand eine Lösung hätte...DANKE!!!!
https://www.herber.de/bbs/user/93133.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SummeBerechnenVonUnten() Dim letztezeile As Long Dim i As Long Dim bGef As Boolean 'finde letzte Zeile letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'ist letzte Teile summe If ActiveSheet.Cells(letztezeile, 1).Value "Summe" Then ActiveSheet.Cells(letztezeile + 1, 1).Value = "Summe" bGef = False i = letztezeile Do While bGef = False If ActiveSheet.Cells(i, 1).Value "Summe" Then i = i - 1 Else bGef = True End If Loop ActiveSheet.Cells(letztezeile + 1, 1).Value = "Summe" ActiveSheet.Cells(letztezeile + 1, 2).FormulaLocal = "=Summe(B" & i + 1 & ":B" & _ letztezeile & ")" End If End Sub

Hallo Marc,
dann kommentier ich mal die zeilen:


Sub SummeBerechnenVonUnten()
Dim letztezeile As Long
Dim i As Long
Dim bGef As Boolean
'finde letzte Zeile
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row      'berechnet letzte benutzete  _
Zeile in Spalte A
'ist letzte Teile  summe
If ActiveSheet.Cells(letztezeile, 1).Value  "Summe" Then       'Steht in der letzten Zeile in  _
Spalte A nicht "Summe"?
ActiveSheet.Cells(letztezeile + 1, 1).Value = "Summe"     'schreibt in Spalte A in die nä _
chste Zeile nach der letzten "Summe"
bGef = False                                   'initialisieren der bool Variablen
i = letztezeile                                'initialisiere der Laufvariable auf  _
letzteZeile
Do While bGef = False                          'solange bGef = false mache
If ActiveSheet.Cells(i, 1).Value  "Summe" Then      'steht in der i.Zeile in Spalte A  _
nicht "Summe"?
i = i - 1                 'laufvariable ein verringern, da wir ja von unten nach  _
oben suchen
Else
bGef = True          'wenn in Zeile i in Spalte A "Summe" gefunden, dann bgef =  _
true, sorgt für das verlassen der do While Schleife
End If
Loop              'ende do while
'in i steht jetzt die zeilennummer, wo das vorige "Summe" gefunden wurde (angenommen 65)
ActiveSheet.Cells(letztezeile + 1, 1).Value = "Summe"      'schreibe in Spalte A in zeile  _
letztezeile+1 (erste freie Zeile) "Summe"
ActiveSheet.Cells(letztezeile + 1, 2).FormulaLocal = "=Summe(B" & i + 1 & ":B" &  _
letztezeile & ")"   Schreibe in selbe Zeile (angenommen 72) Spalte B die Formel =Summe(B66:B71)
End If
End Sub

am besten mal schritt für Schritt mit dem debugger anschauen und die Inhalte der Variablen anzeigen lassen.
Ich hoffe es sind jetzt alle Klarheiten beseitigt ;-)
Gruß
yummi

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread