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

Beiträge aus den Excel-Beispielen zum Thema "zählenwenn in code von commandbutton"