Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Anzahl() in Msgbox anzeigen

Forumthread: Anzahl() in Msgbox anzeigen

Anzahl() in Msgbox anzeigen
11.10.2005 00:42:44
Korl
Hallo und guten Abend,
ich bin mal wieder am tüfteln und komme nicht weiter.
Ich möchte gerne in der MsgBox die Anzahl der Einträge aus dem Sheet ("Auswertung") Range("A1:A100") angezeigt bekommen.
Leider gelingt es mir nicht.
Kann mir wohl bitte jemand helfen?
Gruß Korl
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl() in Msgbox anzeigen
11.10.2005 00:45:57
Leo
Hi,
msgbox application.counta(Sheets("Auswertung").Range("A1:A100"))
mfg Leo
AW: Anzahl() in Msgbox anzeigen
11.10.2005 01:02:04
Nepumuk
Hi Leo,
das kann unter gewissen Umständen zu einem falschen Ergebnis führen. Schreib mal in Zelle B1 diese Formel ="" und kopiere sie. In Spalte A ein paar Zeilen markieren - Inhalte einfügen - Werte. Dann lass dein Makro laufen. Wenn du die Länge des Eintrags z.B. in Direktfenster abfragst (?len(cells(1,1).value)), wird dir 0 zurückgegeben. Aber CountA zählt die Zellen als wäre was drin. Darum benutze ich CountBlank, dass ignoriert solche Pseudoeinträge.
Public Sub test()
    MsgBox CStr(100 - WorksheetFunction.CountBlank(Worksheets("Auswertung").Range("A1:A100")))
End Sub

Gruß
Nepumuk

Anzeige
AW: Anzahl() in Msgbox anzeigen
11.10.2005 01:04:41
Leo
Hi,
danke, ist mir noch nie aufgefallen. Ich habe auch gelernt, nie Zelle = "" sondern
Zelle.ClearContents
mfg Leo
AW: Anzahl() in Msgbox anzeigen
11.10.2005 01:11:32
Nepumuk
Hi Leo,
in VBA mach ich das auch nicht, aber in Formel sehr wohl. Z.B. um bei einem SVERWEIS ohne Fundstelle keinen Fehler (#NV) in der Tabelle zu haben.
Gruß
Nepumuk

Anzeige
AW: Anzahl() in Msgbox anzeigen
11.10.2005 01:16:00
Korl
Hallo Leo und Nepumuk,
besten Dank für Euren nächtlichen Einsatz, dieses i-Tüpfelchen fehlte mir noch.
Eigentlich war ich schon na dran, hatte "WorksheetFunction" nicht voran gesetzt.
Naja, nochmal besten Dank für Eure Bemühungen.
Schönen Gruß
Korl

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige