Zähler in MsgBox für erfüllte Bedingung

Forumthread: Zähler in MsgBox für erfüllte Bedingung
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zähler in MsgBox für erfüllte Bedingung

20.02.2017 15:06:16

Hallo zusammen,
Gibt es eine Möglichkeit bei einer Schleife, bspw For.. next und einer impliziten Wenn-Bedingung, mir am Ende der Durchläufe in einer Msg-Box anzeigen zu lassen, wie oft die Bedingung erfüllt wurde, bspw. "die Werte wurden 10 mal übertragen" wobei 10 mal die Anzahl beschreibt, in denen die Bedingung erfüllt wurde und nicht die insgesamt vorgenommenen Durchläufe?
Vielen Dank im Voraus!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zähler in MsgBox für erfüllte Bedingung

20.02.2017 15:23:41

Werner
AW: Zähler in MsgBox für erfüllte Bedingung

20.02.2017 15:34:42

PS
AW: Gerne u. Danke für die Rückmeldung. o.w.T.

20.02.2017 15:57:24

Werner

AW: Zähler in MsgBox für erfüllte Bedingung

20.02.2017 15:23:41

Werner

Hallo,
Allgemeine Frage, allgemeine Antwort: Ja

Sub Zähler()
Dim rngBereich AS Range
Dim rngZelle AS Range
Dim loZähler AS Long
loZähler = 0
With Sheets("Tabelle1")
Set rngBereich = .Range(.Cells(1, 1), .Cells(20, 1))
For Each rngZelle in rngBereich
If rngZelle.Value = "Hallo" Then
rngZelle.Offset(, 2) = rngZelle.Value
loZähler = loZähler + 1
End If
Next rngZelle
MsgBox "Es würden " & loZähler & " Zellen übertragen."
End With

Schreib mal im Blatt 1 in A1 bis A20 ein paar Mal Hallo und lass das Makro laufen.
Gruß Werner

AW: Zähler in MsgBox für erfüllte Bedingung

20.02.2017 15:34:42

Perfekt! Dank dir, klappt wunderbar!

AW: Gerne u. Danke für die Rückmeldung. o.w.T.

20.02.2017 15:57:24

Werner