Clever-Excel-Forum - [VBA] Zellen nur mit sichtbarem Wert aus Bereich auslesen

Moin zusammen,

vor folgendem Problem stehe ich gerade,

[attachment=26173]

Der rote Bereich Zelle AC30 bis AC45 enthält in jeder Zeile eine Formel die automatisch Zahlen Namen oder was man in die vorherige Maske einträgt überträgt.

Nun möchte ich nur die Zellen für eine Zuweisung zählen in denen ein Wert oder Name steht.

Sprich in meinem Fall hier müsste das Ergebnis 13 ergeben.

habe es schon so versucht:

Private Sub Losen()

Dim zaehler As Long
Dim Bereich As Range

Zaehler = 0
Set Bereich = Range("AC30:AC45")
zaehler = Application.CountA(Bereich)
.
.
.
.
End Sub

(Ist nur ein Teilausschnitt aus dem Sub Losen() und die Variable zaehler wird danach noch weiter verwendet)

Was ich schon in Erfahrung bringen konnte was ich bis dato nicht wusste ist das die Funktion .CountA auch Zellen zählt in dem eine Formel drin steht.

Ich denke es gibt schon eine Funktion mit der das auch gehen wird, aber auf die bin ich leider noch nicht gestoßen.

Vielen Dank schon mal für eure Mühe und Hilfe
LG
bergaa

Hi

schau dir mal SpecialCells an.
Evtl. so.

Code:
zaehler = Range("AC30:AC45").SpecialCells(xlCellTypeConstants).Count

Gruß Elex

Hi Elex,

erst einmal Danke für den Ansatz,
leider bringt er mir folgenden Fehler:

[attachment=26180]

Zur Ergänzung meines Startbeitrages nochmal folgendes zur Tabelle:

[attachment=26181]

Grün:
Verbundene Zellen, vielleicht das mein Problem?

Rot:
In den Zeilen wo jetzt als beispiel 1-13 die Zahlen 1-13 drinstehen, können auch Namen enthalten sein.
Statt Spieler 1 an Stelle 1, "Max Mustermann" an Stelle 1.

Hi

Sorry hatte überlesen das die Werte per Formel in die Zelle kommen.

Code:
Zaehler = Range("AC30:AC45").Cells.Count - WorksheetFunction.CountBlank(Range("AC30:AC45"))

oder gleich

Code:
Zaehler = 16 - WorksheetFunction.CountBlank(Range("AC30:AC45"))

Gruß Elex

Hallo,

Zitat:Grün:
Verbundene Zellen, vielleicht das mein Problem?

... Schmeiße zunächst mal Deine "Verbundenen Zellen" raus. Egal ob man mit Formeln oder mit VBA arbeitet,
sie machen nur unnötige Probleme. Daß, wozu sie in fast 99,9 % der Fälle genutzt werden, läßt siich problemlos
auch auf andere Weise lösen und man verzichtet auch auf jede Menge Probleme, die in der Zukunft liegen.

Als Anfänger hast Du meiner Meinung nach die phantastische Möglichkeit, Dich noch ziemlich schmerzfrei überhaupt
gar nicht erst auf "Verbundene Zellen" einzulassen und sie dann auch überhaupt nicht vermissen.

Und für die Leute, die jetzt schon den Bleistift spitzen, um mir zu widersprechen, ...ja, mit "Verbundenen Zellen"
läßt sich auch arbeiten, Aber auch als Anfänger???

@Elex

jetzt klappt es, tausend Dank :28: :28:

@Käpt'n Blaubär

ja, verbundene Zellen sind mir schon öfters auf die Füße gefallen.
Leider bei diesem Projekt nicht wegzudenken zwecks der Darstellung.
Aber ich werde so gut wie es mir möglich sein sollte darauf verzichten.

Hallo,

Zitat:Leider bei diesem Projekt nicht wegzudenken zwecks der Darstellung.

... dazu habe ich oben schon, wie ich meine, ausreichend Stellung bezogen.
Ich bleibe dabei. "Verbundene Zellen" sind überflüssig wie ein Kropf.

Es ist aber nicht verboten, sich das Leben selbst völlig unnötig möglichst
Schwer zu machen.