Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl der nicht leeren Zeilen summieren

Forumthread: Anzahl der nicht leeren Zeilen summieren

Anzahl der nicht leeren Zeilen summieren
13.09.2005 00:50:07
Lian
Ich habe eine Tabelle mit mehr als 1000 Einträgen (Zeilen) und möchte die aktuelle Zahl aller Zeilen auslesen und in mehreren vor manuellen Änderungen geschützten Zellen darstellen.
Die erste Recherche soll die Summe aller Zeilen beinhalten, die einen Eintrag in Spalte B vorweisen.
Die zweite Recherche soll nur jene Zeilen summieren, die zwar auch in Spalte B einen Eintrag vorweisen, jedoch zusätzlich auch noch einen in Spalte E.
Wichtig ist mir auch der Schutz der Ergebniszellen via Makro. Der normale Blattschutz reicht hier nicht aus, da man neben anderen Einschränkungen auch die gruppierten Zeilen/Spalten nicht mehr ein-/ausblenden kann.
Das müsste recht easy sein aber ich bekomme es nach dem langen Arbeitstag einfach nicht mehr hin. Werd wohl erstmal ins Bett gehen...
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der nicht leeren Zeilen summieren
13.09.2005 07:42:06
WernerB.
Hallo Lian,
wie gefällt Dir das?
Als Ergebniszellen habe ich mal "C1" und "F1" angenommen.
Dieses Makro gehört in ein normales Standard-Modul:
Sub Lian()
Dim c As Range, _
laR As Long, Re1 As Long, Re2 As Long
laR = Cells(Rows.Count, 2).End(xlUp).Row
For Each c In Range("B1:B" & laR)
If c.Value "" Then
Re1 = Re1 + 1
If c.Offset(0, 3).Value "" Then
Re2 = Re2 + 1
End If
End If
Next c
Range("C1").Value = Re1
Range("F1").Value = Re2
End Sub
Dieses Makro gehört in das entsprechende Tabellenblatt-Modul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("C1,F1"), Target) Is Nothing Then Exit Sub
MsgBox "Finger weg von dieser Zelle !", vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Target.Offset(1, 0).Select
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Anzahl der nicht leeren Zeilen summieren
14.09.2005 01:50:11
Lian
Besten Dank!
Das ganze funktioniert supi.
Wäre es evtl. möglich, dass man das Script dynamisch und leicht anpassbar bleibt? So wäre es schöner, wenn man auch die 2. Vergleichsspalte (in dem Falle E) als E angibt und nicht als 3 neben B, denn evtl. muss mal mit A verglichen werden, etc.
AW: Anzahl der nicht leeren Zeilen summieren
15.09.2005 08:21:27
WernerB.
Hallo Lian,
ist es dir so "dynamisch" genug?

Sub Lian()
Dim c As Range, _
s As String, _
laR As Long, Re1 As Long, Re2 As Long
s = InputBox(vbCr & vbCr & vbCr & vbCr & _
"Spaltenbezeichnung eingeben:", "Vergleichsspalte", "E")
If s = "" Then
MsgBox "Keine oder falsche Eingabe !" & vbCr & vbCr & _
"Makro-Abbruch !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
laR = Cells(Rows.Count, 2).End(xlUp).Row
For Each c In Range("B1:B" & laR)
If c.Value <> "" Then
Re1 = Re1 + 1
If Range(s & c.Row).Value <> "" Then
Re2 = Re2 + 1
End If
End If
Next c
Range("C1").Value = Re1
Range("F1").Value = Re2
End Sub

Gruß
WernerB.
Anzeige
AW: Anzahl der nicht leeren Zeilen summieren
15.09.2005 16:18:59
Lian
Vielen Dank für deine Mühe!
;

Forumthreads zu verwandten Themen

Anzahl der Zeilen steuern
Alex

Guten Morgen Liebe Excel Anwender,
auch zu diesem Problem gibt es sicher schon Beiträge im Forum, konnte sie leider nicht Finden. Und zwar möchte ich die Anzahl der Zeilen steuern die mit Formeln gefüllt werden.
Z.B
Anzahl der Zeilen 3
A1
A2
A3
...
02.10.2008 07:20:00
Thread-ID: 1013790
2 Beiträge
Anzeige
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
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
Anzahl identischer Einträge in 2 Spalten ermitteln
Christian

Hallo zusammen,
ich möchte die Anzahl identischer Werte in zwei spalten ermitteln.
Die erste Spalte enthält eindeutige Werte (Artikelnummern).
Die zweite Spalte enthält eine Teilmenge der ersten Spalte (Bestimmte Artikel, die beobachtet werden sollen).
Im Übersichtsichtsbereic...
11.06.2009 14:56:03
Thread-ID: 1080747
5 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Anzeige
Anzahl Datenzeilen ermitteln
Lutz

Hallo,
ich möchte die Anzahl der Datenzeilen ermitteln.
Der Datenbereich kann unterschiedlich groß sein.
Bei eingeschaltetem Autofilter sollen nur die sichtbaren Werte gezählt werden.
Mit der funktion Teilergebnis kam ich nicht weiter, da die Spalten nicht durchgängig befüllt si...
09.03.2010 09:53:40
Thread-ID: 1144479
8 Beiträge
Anzahl der Zeilen innerhalb einer Spalte
Klaus

Hallo Forum,mit welcher Formel bekomme ich in Excel die Anzahl der Zeilen
in einer Spalte angezeigt?BsP
A1 01EZ0201
B1 01EM9999
C1 01ZZ9805Das Ergebnis in D1 müsste dann 3 ergeben.
Danke
Klaus
23.05.2002 12:25:24
Thread-ID: 123053
2 Beiträge
Seitenanzahl in Wiederholzeilen integrieren
Marco

Guten morgen zusammen,
ich möchte die Seitenzahlen in meinen Dokumentenkopf integrieren. D.h. ich möchte die Seitenzahlen nicht standardmäßig oben/unten rechts/links einfügen, sondern in einer bestimmten Zelle in meinen Wiederholzeilen oben.
Ist das ohne Makroprogrammierung möglich. (Da...
25.07.2011 09:13:20
Thread-ID: 1223462
9 Beiträge
Anzeige
Vba zellen mit bestimmten Inhalt formatieren
thomas

Hallo Leute
Ich würde gerne bestimmte Zellen per VBA so formatieren, dass bei einem bestimmten Inhalt ein Zellbereich mit einer Dicken Linie oben bzw. unten formatiert wird.
Ich habe eine Excel-Datei in der per Makro 2 Zeilen mit den Wörtern "Zwischensumme" und "Übertrag" an jedem Seit...
05.09.2011 07:33:20
Thread-ID: 1228619
3 Beiträge
Anzahl der Zellen mit Inhalt
Paulo

Ich möchte die Anzahl der Zellen eines bestimmten Bereichs mit Inhalt feststellen, also nicht eine Inhaltssumme, sondern nur die Anzahl der Zellen mit einem beliebigen Inhalt (egal, ob Zahl oder Buchstaben), konnte aber im Forum nichts passendes finden.
Eigene Versuche waren vergebliche, ab...
04.11.2011 22:51:45
Thread-ID: 1236699
6 Beiträge
Anzahl zusammenhängender Leerspalten zählen
Herbert

Hallo,
mein Anliegen habe ich in der beigefügten Datei geschildert. Bitte schaut es Euch mal an und vielleicht hat ja eine/r eine Lösung dafür.
Dafür schon mal vielen Dank im Voraus
Servus
https://www.herber.de/bbs/user/78475.xls
17.01.2012 17:17:28
Thread-ID: 1246582
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige