Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1540to1544
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
Inhaltsverzeichnis

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

Zähler in MsgBox für erfüllte Bedingung
20.02.2017 14:06:16
PS
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
Anzeige
AW: Zähler in MsgBox für erfüllte Bedingung
20.02.2017 14: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 14:34:42
PS
Perfekt! Dank dir, klappt wunderbar!
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
20.02.2017 14:57:24
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige