Hallo Experten!
Bei meinem derzeitigen Problemchen hat die bewährte Anfängermethode, nähmlich das, was zu automatisieren ist, einfach mit einem Makro aufzuzeichnen nicht funktioniert.
Ich möchte die Summe von Zellen einer Spalte bilden, ohne daß ausgeblendete Zeilen mitaddiert werden. Mit welchem speziellen Befehl funktioniert das?
Besten Dank vorweg für eure Unterstützung.
Gruß
wiedhalm
Bei meinem derzeitigen Problemchen hat die bewährte
Anfängermethode, nähmlich das, was zu automatisieren ist,
einfach mit einem Makro aufzuzeichnen nicht funktioniert.
Ich möchte die Summe von Zellen einer Spalte bilden, ohne daß
ausgeblendete Zeilen mitaddiert werden. Mit welchem speziellen
Befehl funktioniert das?
Hallo Wiedhalm,
=TEILERGEBNIS(109;A1:A8)
Oder muß es Vba sein?
Gruß
Reinhard
Hallo Reinhard!
Muß nicht Vba sein, funktioniert trotzdem einwandfrei !
!!! PROBLEM GELÖST !!!
Besten Dank und
freundliche Grüße
wiedhalm
Muß nicht Vba sein, funktioniert trotzdem einwandfrei !
Hallo Wiedhalm,
wenn du das gleiche mal brauchst für ausgeblendete Zeilen so ändere die 16 in 17.
Gruß
Reinhard
Hallo Reinhard!
Zu früh gejubelt! Habe die Tabellenfunktion ausprobiert, hat funktioniert. Nun wollte ich, wie bereits bei anderen Makros auch ohne Probleme durchgeführt, die Tabellenfunktion mittels Makro in die Endzelle meiner Datenspalte schreiben lassen, funktioniert nicht.
Ich habe die Summierung mit zwei Codes probiert :
ActiveCell.Formula = „=Teilergebnis(109;(“ & rnganf.Address(0, 0) & „:“ & rngend.Address(0, 0) & „)“, wobei rnganf die obere und rngend die untere Endzelle meiner Zahlenreihe ist.
Auch wenn man mit ActiveCell.Formula = „=Teilergebnis(109;d2:d31)“ genau so wie beim händischen Eintrag in die Summenzelle arbeitet, funktioniert der Makro nicht .
Was läuft da falsch?
Zu deinem Nachtrag:
„wenn du das gleiche mal brauchst für ausgeblendete Zeilen so ändere die 16 in 17“ -
Wo ist bei der Tabellenfunktion Teilergebnis(109;Zelle 1:Zelle n) eine 16 auf 17 zu ändern?
Liebe Grüße
wiedhalm
Hallo Wiedhalm,
Zu früh gejubelt! Habe die Tabellenfunktion ausprobiert, hat
funktioniert.
okay.
ActiveCell.Formula = „=Teilergebnis(109;(“ & rnganf.Address(0,0) & „:“ & rngend.Address(0, 0) & „)“
ActiveCell.Formula ="=Teilergebnis(109;d2:d31)"
Grundsätzlich, mal ein beispiel was drei wichtige Dinge aufzeigt:
Excel: =Wenn(D1=„a“;„okay“;"")
Sieht in Vba so aus:
…FormulaLocal = „=WENN(D1=“„a“";"„okay“";"""")"
oder
…Formula = „=IF(D1=“„a“","„okay“","""")"
Vorteil von Formula gegenüber Formulalocal, der Code läuft auch im Ausland.
„wenn du das gleiche mal brauchst für ausgeblendete Zeilen so
ändere die 16 in 17“ -
Wo ist bei der Tabellenfunktion Teilergebnis(109;Zelle 1:Zelle
n) eine 16 auf 17 zu ändern?
Mein Fehler. Ich hatte deine Anfrage nur überflogen und dachte du hast da ausgeblendete Spalten , denn dann funktioniert
=Teilergebnsi(109;Bereich) nicht.
Das k ann man m.W. ohne Vba nur lösen mit einer Hilfszeile.
In der Hilfszeile kommt dann quasi die 16 oder 17 zu tragen.
Frage bei Interesse nach wie das geht.
Gruß
Reinhard
Hallo Reinhard!
Zunächst besten Dank für die ausführlichen Infos zum Grundsätzlichen.
Ich habe mich für den den Code ActiveCell.FormulaLocal ="=Teilergebnis(109;anf:ende)" entschieden. Aus deiner Sicht wahrscheinlich nicht die eleganteste Lösung!
Nun zum zweiten Mal:
!!! PROBLEM GELÖST !!!
Freundliche Grüße
wiedhalm