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
Private Sub CommandButton1_Click()
CommandButton1.Caption = ActiveSheet.Function.Sum(Range("A2:A65000"))
End Sub
gruß kurt k
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
Sub test()
Dim c As Integer
With Sheets("Tabelle1")
c = WorksheetFunction.CountA(Range("A:A"))
.commandbutton1.Caption = c
End With
End Sub