AW: VBA - verschiedenartige Zellen zählen
12.06.2019 15:54:50
ChrisL
Hi Erwin
Ich wurde aufgehalten und inzwischen ist das Problem ja grundsätzlich gelöst. Dennoch nachstehend mein halbfertiger Code mit dem Hinweis, ja unbedingt deklarieren (Option Explicit aktivieren!!). Integer bei kleineren Datenmengen ist OK, aber zu empfehlen ist Long.
Option Explicit
Sub zellen_zaehlen()
Dim aa As Long, B As Long, c As Long, d As Long, e As Long, f As Long, aab As Long, G As Long
Dim gh As Long, h As Long
Dim zaehle As Range, zelle As Range
Range("A1").Select
Set zaehle = Application.InputBox("Bitte markieren Sie den Bereich, in dem die " & vbLf & _
"Zellen analysiert und gezählt werden sollen" & vbLf & "(z. B.: A2:B100):" _
, "Bereich markieren - Zellen zählen", "A1:A30", Type:=8)
If zaehle.Count = 1 Then
aa = 1
If zaehle "" Then B = 1
' hier weiter... (noch nicht fertig)
Else
'1. alle markierten Zelle, incl. ausgeblendete oder gefilterte Zellen
aa = zaehle.Cells.Count 'Anzahl aller markierten - incl. ausgeblendeter Zellen
B = WorksheetFunction.CountA(zaehle)
c = zaehle.SpecialCells(xlCellTypeConstants).Count 'Zellen mit festen Werten / Einträgen
d = zaehle.SpecialCells(xlCellTypeFormulas).Count 'Zellen mit Formeln
e = zaehle.SpecialCells(xlCellTypeAllValidation).Count 'Zellen mit Datenüberprüfung - Gü _
ltigkeitskriterien
f = zaehle.SpecialCells(xlCellTypeComments).Count 'Zellen mit Kommentaren
aab = aa - B 'ohne Inhalt
'2. alle sichtbaren Zellen
G = zaehle.SpecialCells(xlCellTypeVisible).Count 'Anzahl aller sichtbaren markierten Zellen
'===>>> hier kommt das Problem, wenn nur 1 Zelle aktiviert wird ===>>>
For Each zelle In zaehle.SpecialCells(xlCellTypeVisible) 'h = sichtbare gefüllte Zellen
If zelle.Value "" Then h = h + 1
Next
gh = G - h 'ohne Inhalt
End If
MsgBox "Anzahl a l l e r markierten Zellen: ................................................. _
" & aa _
& (Chr(13)) & "** mit Inhalt: ............................................................. _
.................... " & B _
& (Chr(13)) & " - davon mit festen Werten gefüllt: ...................................... _
" & c _
& (Chr(13)) & " - davon mit Formeln gefüllt: ............................................ _
...... " & d _
& (Chr(13)) & " - davon mit Datenüberprüfung - Gültigkeitskriterien: ....... " & e _
& (Chr(13)) & " - davon mit Kommentaren: ................................................ _
.... " & f _
& (Chr(13)) & "** ohne Inhalt: ............................................................ _
.................." & aab _
& (Chr(13)) & "" _
& (Chr(13)) & "Anzahl aller markierten s i c h t b a r e n Zellen: ...................... _
... " & G _
& (Chr(13)) & "** mit Inhalt: ............................................................. _
.................... " & h _
& (Chr(13)) & "** ohne Inhalt: ............................................................ _
..................." & gh _
& (Chr(13)) & " " _
& (Chr(13)) & "" _
& (Chr(13)) & "", vbOKOnly, "Zellen Zählen (c) EGE 06.2019"
'ActiveWindow.Zoom = 100
Exit Sub
End Sub
cu
Chris