Summe nur auf Button darstellen

Forumthread: Summe nur auf Button darstellen

18.04.2014 10:47:55

Kurt

Guten Morgen,
ich habe eine, vielleicht blöde, FRAGE.
Kann man die Summe (Anzahl der Zeilen) nur auf
einem Button darstellen.
Grund, Serienbrief sonst muß ich noch eine Zeile
einfügen.
gruß kurt k

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Summe nur auf Button darstellen

18.04.2014 11:10:43

Oberschlumpf
Fehlermeldung

18.04.2014 11:28:56

Kurt
AW: Fehlermeldung

18.04.2014 11:31:25

Oberschlumpf
AW: Summe nur auf Button darstellen

18.04.2014 11:17:11

Tino
Tino, Ja aber

18.04.2014 11:34:14

Kurt
Anstatt SUM dann eben COUNTA oT.

18.04.2014 11:48:21

Tino
Herzlichen Dank an ALLE und frohe Osterfest ! -)

18.04.2014 11:53:32

Kurt
AW: Tino, Ja aber

18.04.2014 11:49:12

Der
das hätte Kurt aber lesen können ;-)

18.04.2014 11:55:05

Matthias

AW: Summe nur auf Button darstellen

18.04.2014 11:10:43

Oberschlumpf

Hi Kurt
versuch mal (ungetestet)
CommandButton1.Caption = Worksheet.Function.Sum(Range("A1:A10"))
Hilfts?
Wenn nicht, zeig mal ne Bsp-Datei mit dem Button und verrat, welche Zellen du summieren willst.
Ciao
Thorsten
Bsp-Dateien bitte im Excel2003-XLS-Format

Fehlermeldung

18.04.2014 11:28:56

Kurt

Hallo Thorsten,
es kommt Fehlermeldung.
Laufzeitfehler 438
Objekt unterstützt...

Private Sub CommandButton1_Click()
CommandButton1.Caption = ActiveSheet.Function.Sum(Range("A2:A65000"))
End Sub

gruß kurt k

AW: Fehlermeldung

18.04.2014 11:31:25

Oberschlumpf

Tja Kurt
meine Idee war ja auch nur geraten.
Tino hat schon recht. Es ist wichtig zu wissen, wo sich der Button befindet + wo er herkommt.
Und wenns nich hilft, bat ich um ne Bsp-Datei...wo is die denn?
Ciao
Thorsten

AW: Summe nur auf Button darstellen

18.04.2014 11:17:11

Tino

Hallo,
kommt darauf an welche Art von Button du verwendest.
'Object aus Formen oder Formularsteuerelement

Tabelle1.Shapes("Rahmen 1").DrawingObject.Caption = [=Sum(A:A)]
Tabelle1.Shapes("Schaltfläche 1").DrawingObject.Caption = [=COUNTA(A:A)]

'Activ-X Steuerelement

Tabelle1.CommandButton1.Caption = [=Sum(A:A)]

Gruß Tino

Tino, Ja aber

18.04.2014 11:34:14

Kurt

Hallo Tino,
Summe klappt, wollte aber Anzahl haben, sorry
hatte FALSCH angegeben.
gruß
kurt k

Anstatt SUM dann eben COUNTA oT.

18.04.2014 11:48:21

Tino

Herzlichen Dank an ALLE und frohe Osterfest ! -)

18.04.2014 11:53:32

Kurt

AW: Tino, Ja aber

18.04.2014 11:49:12

Der

Hi,

Sub test()
Dim c As Integer
With Sheets("Tabelle1")
c = WorksheetFunction.CountA(Range("A:A"))
.commandbutton1.Caption = c
End With
End Sub

Zählt nicht leere Zellen in Spalte A.
Gruß Uwe

das hätte Kurt aber lesen können ;-)

18.04.2014 11:55:05

Matthias

Hallo
COUNTA
hat doch Tino schon 11:17:11 vorgeschlagen ;-)
Kurt hats sicher nur übrlesen.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Forumthread: Summe nur auf Button darstellen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread