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
Hi,
msgbox application.counta(Sheets("Auswertung").Range("A1:A100"))
mfg Leo
AW: Anzahl() in Msgbox anzeigen
10.10.2005 23: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. PublicSub test() MsgBox CStr(100 - WorksheetFunction.CountBlank(Worksheets("Auswertung").Range("A1:A100"))) EndSub
Hi,
danke, ist mir noch nie aufgefallen. Ich habe auch gelernt, nie Zelle = "" sondern
Zelle.ClearContents
mfg Leo
AW: Anzahl() in Msgbox anzeigen
10.10.2005 23: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
AW: Anzahl() in Msgbox anzeigen
10.10.2005 23: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