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

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

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

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

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

Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige