Hallo Klaus
das kann ich nich nachvollziehen?
wie soll das mir ANZAHL2 gehen?
Gruß
Hannox
AW: Zellen Zählen
WernerB.
Hallo Christoph,
markiere den relevanten Zellbereich und starte dann dieses Makro:
Sub Christoph()
Dim c As Range
Dim z As Long
For Each c In Selection
If c.Font.Strikethrough = True Then
z = z + 1
End If
Next c
MsgBox z
End Sub
Viel Erfolg wünscht
WernerB.
AW: Zellen Zählen
23.07.2004 09:46:23
Hannox
Super Danke das funzt.
Gruß
Hannox
Durchgestrichene Zellen zählen - ohne VBA
Boris
Hi Christoph,
Einfügen - Name - Definieren, Name: x
Bezieht sich auf:
=ZELLE.ZUORDNEN(23;INDIREKT("ZS(-1)";))
Schreibe in eine Zelle:
=X
und du erhälst für die LINKE Nachbarzelle den Wert WAHR oder FALSCH - WAHR, wenn sie durchgestrichen ist, ansonsten FALSCH.
Und die WAHR kannst du dann mit der Funktion ZÄHLENWENN zählen.
Grüße Boris
Anzeige
AW: Durchgestrichene Zellen zählen - ohne VBA
23.07.2004 12:21:52
Hannox
Hallo,
danke für die Antwort.
Ich kann das aber irgendwie nicht umsetzen, gebe von A1-A5 das Zeichen x ein.
Dann streiche ich 2 durch (Schrift durchgestrichen). Nun wende ich den Tip an.
Einfügen-Name-Def, Name:x geht OK
und dann? Wenn ich in irgend eine Zelle x schreibe leuchtet ein Rahmen umden Zellbereich auf und in diesen Feld steht dann eine 0 oder x? Ich möchte aber das in diesen Zellbereich die durchgestrichenen Zellen gezählt werden.
Gruß
Christoph