Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmter Zellenwert

Forumthread: Bestimmter Zellenwert

Bestimmter Zellenwert
19.07.2003 23:47:31
Josef
Hallo!

Sub Intern()
anzahl = 0
For Each zelle In Range("E1138:E1377")
If zelle.Interior.ColorIndex = 1 Then
anzahl = anzahl + 1
End If
Next zelle
Sheets("Tabelle").Cells(4, 8).Value = anzahl
End Sub

Mit oben stehenden Makro werden die Farben in der Spalte E gezählt.
Was müßte ich ändern, damit die Eingabe der Zellen ("E1138:E1377") variabel gestaltet werden kann?
Wenn ich z.B. das Makro X aufrufe so soll mit dem Auruf des Makros intern der Wert von("E1138:E1377")herangezogen werden.
Wenn ich das Makro Y aufrufe so soll ebenfalls das Makro intern, jedoch mit dem Wert von ("E1380:E1500")herangezogen werden.
Danke
Josef
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmter Zellenwert
20.07.2003 00:05:15
PeterW
Hallo Josef,
ermittle die Anzahl über eine Function, der du den Bereich als Variable zuweist. Mal als Beispiel:

Function anzahl(Bereich As Range) As Integer
Dim Zelle As Range
For Each Zelle In Range(Bereich)
If Zelle.Interior.ColorIndex = 1 Then
anzahl = anzahl + 1
End If
Next Zelle
End Function

Gruß
Peter

Anzeige
AW: Bestimmter Zellenwert
20.07.2003 00:17:10
Josef
Hallo Peter!
Wo setze ich disen Wert bitte ein?

Sub X()
Bereich = ("E1138:E1377")
End Sub

Danke
Josef

AW: Bestimmter Zellenwert
20.07.2003 00:39:21
PeterW
Hallo Josef,
war mein Fehler, bereich nicht als Range sondern als String. Vielleicht hilft dir das auf die Sprünge:

Function anzahl(bereich As String) As Integer
Dim Zelle As Range
For Each Zelle In Range(bereich)
If Zelle.Interior.ColorIndex = 1 Then
anzahl = anzahl + 1
End If
Next Zelle
End Function



Sub zaehlen()
Dim iErg As Integer
iErg = anzahl("B1:B5")
MsgBox iErg
End Sub

Gruß
Peter

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige