Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1016to1020
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

Zellen zählen (auch verbundene)

Zellen zählen (auch verbundene)
28.10.2008 14:25:28
Stefan
Hallo liebe Excelianer,
bitte seit so gut und helft mir bei folgendem Problem:
ich habe eine Exceltabelle (Fuhrparkbelegungsplan) im Bereich
von C7 : J372.
Nun möchte ich alle Zellen mit Eintrag zählen. Das Problem
ist, dass es auch Zellen gibt, wo 2 oder auch 3 Zellen verbunden
sind. Diese sollen natürlich nur 1 x (als 1 Tag) gezählt werden.
Hintergrund: ich möchte wissen, an wievielen Tagen, welches
Fahrzeug ím Einsatz war.
Ich würde mich über "sachdienliche Hinweise" freuen.
Liebe Grüße
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen zählen (auch verbundene)
28.10.2008 15:22:00
erwin.geer
Hallo,
ich habe mal ein Makro für gefilterte Zellen gemacht;
einfach bereich markieren;
bei mir funktioniert das auch bei deinem Beispiel;
nur die Meldungen sind nicht richtig u. muss angepasst werden

Sub S_1_1_Zellen_zaehlen()
'S_1_1_Zellen_zaehlen
'Es werden alle markierten Zellen gezählt
'1. alle Zellen incl. ausgebelndeter Zellen
'2. nur die angezeigten Zellen mit Inhalt (ohne leere Zellen)
z = Application.Selection.Count
S = Application.WorksheetFunction.Subtotal(3, Selection)
MsgBox ("Die Anzahl aller markeirten - incl. der " _
& (Chr(13)) & "ausgeblendeten Zellen beträgt " _
& (Chr(13)) & "" _
& (Chr(13)) & "                       " & z _
& (Chr(13)) & "" _
& (Chr(13)) & "" _
& (Chr(13)) & "Die Anzahl der gefilterten/gefüllten Zellen" _
& (Chr(13)) & "mit Inhalt beträgt " _
& (Chr(13)) & "" _
& (Chr(13)) & "                       " & S)
End Sub


Grüße Erwin

Anzeige
AW: Zellen zählen (auch verbundene)
29.10.2008 12:11:39
Stefan
Hallo Erwin,
danke für Deine Rückmeldung. Aber das ist nicht das, was ich gesucht habe. Ich kann hier nicht filtern, da Excel mir dann alles durcheinanderhaut.
Im Prinzip sollte es so laufen:

Sub Auswertungzählen()
For spalte = 3 To 10
For zeile = 7 To 372
Cells(zeile, spalte).Select
If Selection.MergeCells Then
verbunden = verbunden + 1: 'hier müsste next zeile stehen, geht aber nicht)
Else
If Cells(zeile, spalte)  "" Then belegt = belegt + 1
End If
Next zeile
Next spalte
MsgBox "Belegt = " & belegt & ",verbunden =" & verbunden
End Sub


Problem ist, dass Excel bei zusammenhängenden Zellen, diese nur 1x zählen darf.
Ich würde ja gerne mal ein Bild der Datei hochladen, aber ich weiss nicht wie das geht.
Gruß
Stefan

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige