Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zählenwenn in code von commandbutton

zählenwenn in code von commandbutton
20.02.2005 11:08:13
roland_k
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zählenwenn in code von commandbutton
20.02.2005 11:46:33
Ramses
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
hi Rainer siehst dir mal mein stuemperhaftes an
20.02.2005 12:18:17
roland_k
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige