Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Reihen in Bereich zählen in einer Schleife
zurück: Array auf Leer Abfragen funktioniert nicht weiter: Makro Speichern und Ablegen einer Datei Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Kalutschi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2013, 18:25
Rufname:

Reihen in Bereich zählen in einer Schleife - Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Hallo,
ich habe folgendes vor! Ich möchte in einer Range (a1:z10) mit einem Loop in jeder einzelnen Spalte die Anzahl der befüllten Zellen zählen. Und diese dann gleich einer Variable X setzen.

Quasi so

Code:

For a_Counter 0 to 10
x= cells(1,a_Counter).Countdata 
Next


Wie lauten die richtigen Formeln?

Vielen Dank schon einmal!
Klaus-Dieter
Schwerpunktinteresse: VBA und UserForms


Verfasst am:
22. Jan 2013, 18:32
Rufname: Klaus
Wohnort: Sassenburg


AW: Reihen in Bereich zählen in einer Schleife - AW: Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Hallo,

so sollte das gehen:

Option Explicit


Sub zählen()
Dim rngBereich As Range
Dim rngZelle As Range
Dim intAnz As Integer
Set rngBereich = Range("A1:Z10")
For Each rngZelle In rngBereich
If Len(rngZelle) > 0 Then intAnz = intAnz + 1
Next rngZelle
MsgBox intAnz & " gefüllte Zellen"
End Sub


Code eingefügt mit: <a>Excel Code Jeanie</a>

_________________
Viele Grüße
Klaus-Dieter
Lösungsvorschläge sind, wenn es keinen anders lautenden Hinweis gibt, von mir getestet.
Yoga ist besser, als rumsitzen und gar nichts machen.
Charly30
Der Koch


Verfasst am:
22. Jan 2013, 18:34
Rufname:

AW: Reihen in Bereich zählen in einer Schleife - AW: Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Code:
x=worksheetfunction.counta(range("A1:Z10"))
Gast



Verfasst am:
22. Jan 2013, 18:35
Rufname:

AW: Reihen in Bereich zählen in einer Schleife - AW: Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Hi,

warum so kompliziert?


msgbox worksheetfunction.CountA(Range("A1:Z10"))

Grüßli
Kalutschi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2013, 18:53
Rufname:

AW: Reihen in Bereich zählen in einer Schleife - AW: Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Ich glaube ich habe mich etwas falsch ausgedrückt.

Das Zählen der Inhalte einzelner Spalten ist nur ein Teil einer größeren Schleife und so brauch ich für jede einzelne Zeile die Anzahl, weil diese Variable dann wiederum in weiteren Formeln genutzt wird.

Sorry wollte es kurz halten und habe mich nun sehr unverständlich ausgedrückt
Gast



Verfasst am:
22. Jan 2013, 19:16
Rufname:

AW: Reihen in Bereich zählen in einer Schleife - AW: Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Hi,

na dann nimm doch die Funktion in die Schleife
Code:
.....
for intZeile = 1 to 10
  msgbox "Anzahl gefüllte in Zeile " & i  & " ist :" & worksheetfunction.counta(Range(cells(i,1),cells(i,26))
next
......


Grüßli
Kalutschi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Jan 2013, 13:54
Rufname:


AW: Reihen in Bereich zählen in einer Schleife - AW: Reihen in Bereich zählen in einer Schleife

Nach oben
       Version: Office 2010

Merci, hat geholfen!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bereich kopieren und vorher löschen.... 1 Cracko 951 03. Jun 2005, 15:24
fl618 Bereich kopieren und vorher löschen....
Keine neuen Beiträge Excel Formeln: Variablen Bereich summieren 6 Aloha 836 17. Mai 2005, 15:23
Aloha Variablen Bereich summieren
Keine neuen Beiträge Excel Formeln: Zählen wenn Startdatum und Enddatum im Zeitraum Januar 15 JörgK. 2314 12. Apr 2005, 16:24
ae Zählen wenn Startdatum und Enddatum im Zeitraum Januar
Keine neuen Beiträge Excel Formeln: Zeilen mit Eintrag zählen 2 Martymak 1192 06. Apr 2005, 11:09
Martymak Zeilen mit Eintrag zählen
Keine neuen Beiträge Excel Formeln: Zählen wenn nicht leer über ganzes Tabellenblatt 5 musli99 1309 05. Apr 2005, 11:30
Thomas Ramel Zählen wenn nicht leer über ganzes Tabellenblatt
Keine neuen Beiträge Excel Formeln: Kommentare zählen 3 Gast 2486 04. Apr 2005, 22:31
ae Kommentare zählen
Keine neuen Beiträge Excel Formeln: Bereich durchsuchen - mehrere Werte ausgeben 3 Michi 1775 01. März 2005, 13:50
Michi Bereich durchsuchen - mehrere Werte ausgeben
Keine neuen Beiträge Excel Formeln: Namen in einer Liste zählen 3 Enjoy82 1646 26. Jan 2005, 12:57
Gast Namen in einer Liste zählen
Keine neuen Beiträge Excel Formeln: Zahlen zählen 2 Micha873 1580 18. Jan 2005, 01:32
Arnim Zahlen zählen
Keine neuen Beiträge Excel Formeln: Tabellen mit Bereich.Verschieben verknüpft, Benutzereingabe 1 Sweeny 961 04. Nov 2004, 21:50
gast1 Tabellen mit Bereich.Verschieben verknüpft, Benutzereingabe
Keine neuen Beiträge Excel Formeln: Werte aus 30 benannten Arbeitsblättern suchen und zählen 1 Rosan 1166 29. Okt 2004, 17:23
Dance2Joys Werte aus 30 benannten Arbeitsblättern suchen und zählen
Keine neuen Beiträge Excel Formeln: Gelbe Zellen zählen! 6 Axis_Sonnenflieger 4453 27. Okt 2004, 14:50
Axis_Sonnenflieger Gelbe Zellen zählen!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme