Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefüllte Zellen zählen

gefüllte Zellen zählen
18.09.2017 15:14:35
Gerhard
Hallo zusammen,
Bitte um VBA Lösung (keine Formellösung)
Es sollten in der beigefügten dynamischen Liste jeweils nur die gefüllten Zellen ab der Spalte M bis Spalte R
gezählt werden und in der Spalte S die Anzahl eingetragen werden!
Ab der Zeile 6 sollte der Zählvorgang beginnen und bis zum dynamischen Ende der Liste durchgeführt werden.
Anschließend sollte die Gesamtsumme der Spalte S in die Zelle B2 eingetragen werden.
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/116334.xls

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zitat: Bitte um VBA Lösung (keine Formellösung)
18.09.2017 15:19:36
RPP63
Moin!
Was spricht gegen eine Excel-Funktion, die man natürlich auch mittels VBA umsetzen kann?
Stichwort: WorksheetFunction.CountIf()
Gruß Ralf
AW: gefüllte Zellen zählen
18.09.2017 15:28:02
Daniel
Hi
warum VBA?
reicht die Zelle B2 als Ergebnis?
als Formel würde ich dort eintragen, wenn die leeren Zellen echte Leerzellen sind 
=Anzahl2(M:R)-Anzahl2(M1:R5)
wenn in Spalte M:R Formeln stehen, die teilweise das Ergebnis "" haben, würde ich so Zählen: 
=ZählenWenn(M:R;"?*")-ZählenWenn(M1:R5;"?*")
dadurch, dass ich erst die ganze Spalte auszählen und dann die Anzahl aus dem Überschriftenbereich wieder abziehe, geht das immer automatisch bis zur letzten gefüllten Zelle, ohne dass die Formel angepasst werden muss.
Gruß Daniel
Anzeige
AW: gefüllte Zellen zählen
18.09.2017 15:32:54
KlausF
Hallo Gerhard,
probier mal:
Sub Anzahl()
Dim i As Long
Dim lastRow As Long
lastRow = ActiveSheet.Range("M:R").Find("*", searchdirection:=xlPrevious).Row
Application.ScreenUpdating = False
For i = 6 To lastRow
Range("S" & i) = WorksheetFunction.CountA(Range("M" & i & ":R" & i))
Next i
Range("B2") = WorksheetFunction.Sum(Range("S6:S" & lastRow))
End Sub
Gruß
Klaus
AW: gefüllte Zellen zählen
18.09.2017 16:04:38
Gerd
Hallo Gerhard! 
Sub Gefuellte_im_Bereich()
Dim Z As Range
With Range(Cells(6, 13), Cells(Rows.Count, 13).End(xlUp)).Offset(, 6)
For Each Z In .Cells
Z.Value = WorksheetFunction.CountA(Z.Offset(0, -6).Resize(1, 6))
Next
Cells(2, 2) = WorksheetFunction.Sum(.Cells)
End With
End Sub

Gruß Gerd
Anzeige
For Each schneller?
18.09.2017 16:39:05
KlausF
Hallo Gerd,
wieso ist Deine Lösung eigentlich schneller als meine For-Next-Schleife?
Mit For Each klapperst Du doch auch jede Zelle einzeln ab.
Weist Du etwas darüber?
Etwas Ratlos
Gruß
Klaus
Ich bin nicht Gerd, aber …
18.09.2017 16:54:40
RPP63
… For Each liest und schreibt in ein Array, also den Arbeitsspeicher.
Das Langsamste in VBA sind einzelne Zellzugriffe, die mittels .Cells(i, k) evaluiert werden.
Two Cents,
Ralf
AW: Ich bin nicht Gerd, aber …
18.09.2017 17:34:01
KlausF
Hallo Ralf,
interessant, das habe ich nicht gewusst mit dem Array.
Scheint so, als ob ich mein mühsam antrainiertes For-Next
mal überdenken sollte ...
Danke für die Antwort!
Gruß
Klaus
Anzeige
AW: For Each schneller?
18.09.2017 16:57:27
Daniel
Hi Werner
bearbeiten der Zelle ist das eine, aber diese Zelle muss ja auch jedesmal gefunden werden.
Bei dir muss VBA jedesmal über den Textstring der Zelladresse aus der Gesamtmenge der Zellen auf das Zellobjekt schließen.
bei For Each In sind die zu bearbeitenden Zellen bereits vordefiniert, dh VBA kann da wesentlich schneller auf das einzelne Objekt direkt zugreifen, ohne erst den Text der Zelladresse auflösen zu müssen.
Gruß Daniel
Werner und Klaus, mach dir nichts draus
18.09.2017 17:42:40
KlausF
Hi Daniel,
das hört sich auch logisch an. Danke.
Und ... ich bin der Klaus :-)
Gruß
Klaus
AW: For Each schneller? Ja, aber
18.09.2017 17:15:12
Gerd
Hallo Klaus,
.. bei den paar Zeilen, ist das Jacke wie Hose und ich lasse die Schleife ebenfalls nur über eine Zelle pro Zeilenbereich laufen, die Ausgabezellen (mit Offset( ,6).
Bin halt mit dem Basteln fertig gewesen u. wollte meinen Code dann noch hier zeigen, bar jeder Notwendigkeit. :-)
Gruß Gerd
Anzeige
AW: For Each schneller? Ja, aber
18.09.2017 17:37:29
KlausF
Hallo Gerd,
Danke für Deine Antwort!
... bar jeder Notwendigkeit
Finde ich nicht. Ist immer ganz interessant zu sehen wie andere da heran gehen.
Für mich jedenfalls sehr lehrreich wie der Hinweist von Ralf zeigt ...
Gruß
Klaus
AW: For Each schneller? Ja, aber
18.09.2017 18:03:05
Gerhard
Hallo zusammen,
Vielen Dank für Eure VBA Lösungen!
Ich habe alle mal auspropiert und sie funktionen allesamt super!!!
Vielen Dank für Eure schnelle und competente Hilfe...
Gruß Gerhard
'For Each' arbeitet mit ObjektBezügen, falls ...
18.09.2017 18:48:51
Luc:-?
…möglich (weshalb auch nur Objekte und Variants zulässig sind), Klaus,
die in vordefinierter Reihenfolge aufgenommen wdn, zB …
• Zellen (ZellBereich): von links nach rechts und dann von oben nach unten (zeilenweise),
• Elemente eines Arrays in einem Variant (Datenfeld): spaltenweise
Das muss man beachten, wenn man einen Zeilen-/Spalten-Zähler mitlaufen lassen will!
Gruß, Luc :-?
Besser informiert mit …
Anzeige
AW: 'For Each' arbeitet mit ObjektBezügen, falls ...
18.09.2017 19:09:20
KlausF
mit Infos überschüttet ...
Auch Dir ein Danke, Luc
Gruß
Klaus
Bitte sehr! owT
18.09.2017 19:51:23
Luc:-?
:-?

97 Forumthreads zu ähnlichen Themen

Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Anzeige
Eingaben nur Zulassen, wenn andere Zellen gefüllt?
Thorsten

Hallo,
ich möchte in der angehangenen Tabelle gerne,
dass die Zellen B7, B8 und B9 prüfen, was in den
Zellen B3 und B4 steht.
Steht z.B. in B3 eine Zahl (z.B. 2) sollten B7 bis B9 nur eine
Eingabe in B7 zulassen.
Steht in B4 eine Zahl sollen die Zellen B7 bis B9 alle ein...
14.07.2009 20:55:07
Thread-ID: 1088568
2 Beiträge
Zählenwenn mit getrennten Zellen
petra

hallo,
ich bräuchte mal eure hilfe...
und zwar würde ich gerne bereiche zählen lassen, die größer als 0 sind...
dabei liegen die Zellen die durchsucht werden sollen nicht direkt aneinander, sondern mit erheblichen zellenabständen.
also zum beispiel
zelle b9
zelle b59
...
11.09.2009 12:25:25
Thread-ID: 1101979
10 Beiträge
Anzeige
ZÄHLENWENN mit bestimmten Zellen
Fred

Hallo,
wenn ich mit ZÄHLENWENN nur bestimmte Zellen anspreche, erhalte ich einen #WERT!-Fehler.
z.B. =ZÄHLENWENN(F4;F8;F12;F16;F20;"7:30")
Kann ZÄHLENWENN so etwas nicht berücksichtigen ?
Wie kann man das sonst lösen ?
GRUß
Fred
07.03.2010 10:26:48
Thread-ID: 1144061
11 Beiträge
Nicht ausgefüllte Zellen zählen
Martin

Hallo zusammen,
ich möchte in einer Tablle die nicht ausgefüllten Zellen einer Spalte zählen. Normalerweise benutzt man ja einfach dazu die "ANZAHLLEEREZELLEN"-Funktion. Diese zählt leider auch zusammengeführte Zellen als leer.
Wie kann man verhindern, dass die zusammengeführten Zellen...
17.05.2010 17:43:34
Thread-ID: 1157487
8 Beiträge
Zählenwenn (aus nicht miteinan. verb. Zellen)
Joerschi

Hallo liebe Community,
wahrscheinlich habe ich grad einen kleinen Blackout :-(
Ich möchte aus mehreren Zellen (die nicht direkt miteinander verbunden sind/nebeneinander liegen) mit der Zählenwenn-Formel einen Wert zählen lassen. Irgendwie bekomme ich aber die Formel nicht hin...
Bsp...
07.08.2010 10:18:20
Thread-ID: 1171013
7 Beiträge
Gefüllte Zellen zählen
Uppe

Hallo,
ich habe eine arbeitsmappe mit 2 Tabellen. Tabelle1 ist eine Liste mit Namen, die mit =Namen!A1 usw. auch in Tabelle2 angezeigt werden.
Nun möchte ich in Tabelle2 die Anzahl der angezeigten Namen ermitteln. (Es sind testweise 5 Namen)
In A1 bis A100 steht jeweils =Name!Ax
...
30.09.2010 15:54:51
Thread-ID: 1180112
4 Beiträge
Zählenwenn in ZELLE
Mario

Hallo Zusammen,
bräuchte dringend heure Hilfe:
Habe in einer großen Tabelle kominationen aus Buchstaben und Zahlen stehen:
Spalte A
B1
S5
B5
B12
BB13
B2
möchte jetzt die Anzahl der Zellen mit nur einem B wissen (hier: 4) und die Anzahl BB (hier 1)
Kan...
09.03.2011 18:18:36
Thread-ID: 1205040
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
13
1
9
5
10
7
6
3
3
5
2
2
5
4
3
2
12
18
5
3
3
3
6
7