Herbers Excel-Forum - das Archiv

zählenwenn in code von commandbutton

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: zählenwenn in code von commandbutton
von: roland_k

Geschrieben am: 20.02.2005 11:08:13
hi guten morgen .....
kann ich die funktion zählenwenn....im code eines commandbutton einbauen?
wenn ja ? wie geht das ?
oder muss ich im code dann mit if elseif oder so was basteln ?
hm danke für hinweis
gruss roland_k
Bild

Betrifft: AW: zählenwenn in code von commandbutton
von: Ramses

Geschrieben am: 20.02.2005 11:46:33
Hallo
Sub Commandbutton_Click()
Dim mySum as Double
mySum = Application.Worksheetfunction.CountIF(Range("A1:A100";"x"))
If mySum > 100 then
msgbox "Erfolgreich"
Else
msgbox "Kannste bleiben lassen"
End If
End Sub

Das ist das Prinzip.
Den Rest solltest du hinbekommen
Gruss Rainer
Bild

Betrifft: hi Rainer siehst dir mal mein stuemperhaftes an
von: roland_k

Geschrieben am: 20.02.2005 12:18:17
hi rainer genau das habe gesucht
aber ich habe mir so geholfen :-((
Private Sub CommandButton1_Click() 'gewonnen
zeile = Cells(40, 2).End(xlUp).Row
If Cells(zeile, 6) = "x" Then A = 1
If Cells(zeile, 7) = "x" Then B = 1
If Cells(zeile, 8) = "x" Then C = 1
If Cells(zeile, 9) = "x" Then D = 1
If Cells(zeile, 10) = "x" Then E = 1
If Cells(zeile, 11) = "x" Then F = 1
If Cells(zeile, 4) Or Cells(zeile, 5) <> "" Then Cells(zeile, 12).Value = Cells(zeile, 2) * (Cells(zeile, 4) Or Cells(zeile, 5) + (1 + A + B + C + D + E + F))
Cells(zeile, 14) = ""
End Sub


baue das gleich mal um
danke ..fuer deine muehe
gruss roland
 Bild
Excel-Beispiele zum Thema "zählenwenn in code von commandbutton"
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen CommandButtons in verschiedenen Tabellen mit einem Makro
CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden