 |
|||
- Home
- Downloads
- Praxis & Hilfe
- Forum
- Tests
- Produkte
- News
- Games
- Sicherheit
- Specials
- Heftarchiv/PDF
- E-Paper
- Partnerchannel
- Downloadshop
- Jobs
- CIO-Channel
- Onlineshops
- Presseticker
- Wettbewerbe
- Newsletter
- RSS-Feed
- Abo
- Mediadaten
- Kontakt
- Über PCtipp
- Sitemap
BENUTZER ONLINE:
513
Farben zählen in Excel IV
Ich habe die Zeile A1 schwarz eingefärbt. Die Zeile A3 rot und A4 blau. Die Zeile A10 ist wieder schwarz eingefärbt. Jetzt möchte ich, das Excel mir alle Zeilen zählt die nicht schwarz sind, nämlich A2, A3, A4, A5, A6, A7, A8 und A9. Also einfach wieviele Felder zwischen A1 und A10 sind. Wie geht das?
von
Monica Hubacher
(08.07.2007)
Es gibt schon etliche Makros, die sich mit dem Thema Farben zählen beschäftigen. Aus diesen Makros lässt sich auch eines basteln, welches Ihre Bedürfnisse abdeckt.
Wenn ich das richtig verstehe, möchten Sie mit den schwarzen Zeilen den Anfang und das Ende eines Bereichs definieren. Alle Zeilen dazwischen, egal ob mit oder ohne Hintergrundfarbe, sollen gezählt werden.
Mit dem folgenden Makro zählen Sie einfach alle "nicht schwarzen Zeilen" zwischen Anfangs- und Endzeile, die Sie anfangs unter "Bereich markieren" eintragen. Je nachdem was Sie dann mit diesem Ergebnis bezwecken, können Sie die Ausgabe des Ergebnisses anpassen. In unserem Beispiel wird die Ergebniszahl in die Zelle A1 eingetragen. Dies ist dann sinnvoll, wenn Sie beispielsweise damit weiterrechnen möchten. Sie können selbstverständlich auch eine andere Zelle definieren.
Sie können das Ergebnis aber auch in einer Messagebox aussgeben, wenn Ihnen das besser dient. Dann ersetzen Sie einfach den Teil am Ende des Makros (ab "Rückgabe Ergebnis" durch den entsprechenden Code, den Sie hier ebenfalls ganz am Ende finden.
-----------------------------------------
MAKRO ZUM KOPIEREN:
-----------------------------------------
Sub ZwischenzeilenZaehlen()
Dim Zelle As Object
Dim z%
'Bereich markieren
[a3:A15].Select
For Each Zelle In Selection
If Not Zelle.Interior.ColorIndex = 1 _
Then z = z + 1
Next
'Rückgabe Ergebnis
[a1].Select
ActiveCell.Formula = z
End Sub
-----------------------------------------
-----------------------------------------
AUSGABE IN MESSAGE-BOX:
-----------------------------------------
'Rückgabe Ergebnis
MsgBox "Anz. Zwischenzeilen: " & z
End Sub
-----------------------------------------
Drucken
Weiterempfehlen
Kommentieren
Laden Sie die PCtipp-App kostenlos auf Ihr Smartphone und bleiben Sie auf dem Laufenden.
Windows 7
Windows 2000
Windows XP
Windows Vista
Linux
Mac
Sicherheit
Internet
Office
Multimedia
Spiele
Hardware
Windows9x/NT
Mobile
Sonstiges
Impressum |