Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe nur auf Button darstellen

Forumthread: Summe nur auf Button darstellen

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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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

Anzeige
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

Anzeige
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

Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige