nichtleere Zellen in Zeile zählen

• nichtleere Zellen in Zeile zählen von Silvia vom 19.09.2003 11:38:30
  • gelöst: nichtleere Zellen in Zeile zählen - von Silvia am 19.09.2003 12:07:01

Betrifft: nichtleere Zellen in Zeile zählen
von: Silvia

Geschrieben am: 19.09.2003 11:38:30

Hi, kann mir vielleicht irgendwer helfen?

Ich habe eine Zelle in der Variablen "c" as Range gespeichert.
Nun will ich zählen, wie viele Zellen, in der Zeile in der sich "c" befindet, beschrieben sind.
funktioniert das irgendwie mit:
zellenAnzahlInZeile = WorksheetFunction.CountA(activesheet.Cells(c.Row))
oder:
letzteZelleAdresseInZeile = Cells(c.Row).SpecialCells(xlLastCell)

Herzlichen Dank
Silvia


Betrifft: gelöst: nichtleere Zellen in Zeile zählen
von: Silvia
Geschrieben am: 19.09.2003 12:07:01

Ich habs mittlerweile selbst gelöst:

zellenAnzahl = 100
Do
zellenAnzahl = zellenAnzahl - 1
Loop While Worksheets(tabzahl).Cells(c.Row, zellenAnzahl).Value = ""
MsgBox zellenAnzahl

lg, Silvia

Excel-Beispiele zum Thema " nichtleere Zellen in Zeile zählen"

Letzte nichtleere Zelle ermitteln		Alle nichtleeren Zeilen markieren
Makros in Abhängigkeit vom Zellennamen aufrufen		Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren		Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren		Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen		Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren		Zeilen oberhalb der markierten Zellen einfügen
Drei Zellen rechts der aktiven Zelle markieren		Zellen vom Druck ausschließen
Zellenwert als Autofilter-Kriterienwert		Nur Zellen mit Inhalt in ComboBox listen
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen		Zellen nach Schriftfarbe summieren
Füllen aller leeren Zellen mit einem Platzhalter		Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen
Zeilen mit Zellen mit rotem Hintergrund ausblenden		Anzahl der gelb hinterlegten Zellen ermitteln
Editieren von Zellen durch DoppelKlick verhindern		Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen		Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren		Prüfung, ob Parallelzellen übereinstimmen
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen		Kofpzeilenwerte angekreuzter Zellen multiplizieren
Zellen über Tabellenblatt-Schaltfläche multiplizieren		Wert aus A1 in mehrere Zellen übernehmen
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen		Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen
Nur sichtbare Zellen addieren		Zellinhalte vor dem Verbinden der Zellen zusammenfassen
Blatt auswählen und Zellen nacheinander drucken		Leere und Zellen mit 0 aus-/einblenden
Zugriff auf Zellen unter Verwendung eines Bereichsnamens		Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten		Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern
Prüfung, welche Zellen nach Öffnen verändert wurden		Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren		Zeilenhöhe bei verbundenen Zellen anpassen
Einfügen von Zeilen vor und nach Zellen mit Fettdruck		Bei Zelleingabe andere Zellen füllen
Dialogaufruf, wenn zwei Zellen Werte enthalten		Gültigkeitsliste ohne Lerrzellen
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren		Zellen verbinden, ohne dass Werte verlorengehen