Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählen der gefüllten Zeilen - VBA

Zählen der gefüllten Zeilen - VBA
30.03.2008 15:25:00
Wolfgang
Hallo,
in einer Mappe befinden sich mehrere Tabellenblätter. Doppelklicke ich in einen bestimmten Bereich des Blattes "Ergebnis", öffnet sich ein UF, hierüber werden Daten in ein vorbestimmtes Tabellenblatt, z.B. "Lieferanten" hineinkopiert. Wie kann der Code aussehen, wenn nun in der Zelle, die ich "Doppelklicke" die Gesamtzahl der Datensätze bzw. gefüllten Zeilen des jeweiligen Tabellenblattes, welches über den UF "beschickt" wird bzw. ja auch namentlich benannt werden kann, erscheinen lassen möchte? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 15:34:00
Daniel
Hi
die Anzahl der Datensätze in einem Tabellenblatt kannst du mit der Excel-Formel ANZAHL2(Zellbezug) ermitteln, also z.B. =Anzahl2(Tabelle1!A:A).
falls die Daten noch irgendwelche Überschriften oder Summenzeilen enthalten, die nicht mitgehzählt werden sollen, müssten diese noch abgezogen werden: =Anzahl2(Tabelle1!A:A)-1
im Makro kannst du diese Funktion über WORKSHEETFUNCTION vewenden, dh:

Worksheetfunction.CountA(Sheets("Tabelle1").Range("A:A"))


Gruß, Daniel

AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 15:48:00
Wolfgang
Hallo Daniel,
Danke für Deine Rückmeldung; Wie kann ich im Code klar machen, dass das Ergebnis in die Zelle, in der ich Doppelklicke, im Beispiel also im Blatt Ergebnis eingetragen wird. Im Moment wird mir die Zahl in der aktiven Zelle des Blattes "Lieferanten" eingefügt. - Danke schon jetzt wieder für die Rückmeldung.
Gruß - Wolfgang

Anzeige
AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 15:46:00
Gerd
Hallo Wolfgang,
die Variable "Beschickt" kannst als Public in einem Standardmodul oben deklarieren
u. ihr den Wert "von der Userform aus" zuweisen.
Die Werte einer maßgeblichen Spalte, hier "D" , zu zählen, sollte genügen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Beschickt As Worksheet ' ggf. als Public ...
Set Beschickt = ThisWorkbook.Worksheets("Tabelle2") 'ggf. im Userform-Code
Target.Value = Application.WorksheetFunction.CountIf(Beschickt.Columns(4), "" & "")
Cancel = True
End Sub


Gruß Gerd

Anzeige
AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 16:01:00
Wolfgang
Hallo Gerd,
Herzlichen Dank für Deine Rückmeldung.
Da ich auf mehrere Tabellenblätter zugreife und somit verschiedene Bereiche für den Doppelklick in "Ergebnis" definiert habe, würde ich das jeweilige Zusammenzählen gerne über den jeweiligen UF-Code lösen. Ich habe versucht, Deinen Code einzubauen, es kommt eine Meldung "Objekt erforderlich", was müßte ich da verändern bzw. wie funktioniert Public...? - Danke schon jetzt wieder für die Rückmeldung.

AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 16:17:00
Gerd
Hallo Wolfgang,
Zählen in mehreren Sheets - sind dies immer dieselben? Dann würde es einfacher gehen.
Ansonsten müsstest Du schreiben oder per Upload zeigen, wie die betreffenden "zu zählenden" Sheets ausgewählt werden.
Gruß Gerd

Anzeige
AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 16:32:34
Wolfgang
Hallo Gerd,
Ich habe in die Mappe mehrere UF "eingebaut". Mit dem jeweils aktuellem UF wird aber immer nur ein namentlich benennbares Tabellenblatt (In dem Beispiel habe ich es "Lieferanten" genannt) angesteuert, welches dann auch für dieses UF immer gleich bleibt. Je nach dem in welche Spalte ich Doppelklicke erscheint das jeweilige unterschiedliche UF.
Gruß - Wolfgang

AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 17:01:00
Gerd
Hallo Wolfgang,
meinst Du etwa so? -bestimmte Zelle angeklickt, dann Anzahl aus bestimmter Tabelle? 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strBlattname As String
If Target.Row = 20 Then    'Zeile der doppelgeklickten Zelle
Select Case Target.Column   'Spaltennummer  der doppelgeklickten Zelle
Case 5
strBlattname = "Lieferanten"
Case 6
strBlattname = "Kunden"
Case 10
strBlattname = "Personal"
Case Else
End Select
If strBlattname  "" Then
Target.Value = Application.WorksheetFunction.CountIf(Worksheets(strBlattname).Columns(4), " _
" & "")
End If
Cancel = True
End If
End Sub


Die Worksheetfunction "CountA" wie von Daniel vorgeschlagen, könntest natürlich ebenso nehmen.
Gruß Gerd

Anzeige
AW: Zählen der gefüllten Zeilen - VBA
30.03.2008 17:43:17
Wolfgang
Hallo Gerd,
der Code mit dem Doppelklick steht bereits, hierüber wird der Aufruf des jeweiligen UF gesteuert. Innerhalb des UF würde ich gerne regeln, dass die Daten in dem angesteuerten Tabellenblatt -es wird immer nur ein bestimmte Tabellenblatt über dieses UF angesteuert- zusammengezählt werden und dann das Ergebnis in der doppelgeklickten Zelle erscheint. Der Bereich für den Doppelklick umfass jeweils die Zeilen 10:61 und dann in den Spalten E:J mit jeweils anderm UF. Ich bekomme Deinen Code, aber den von Daniel dahingehend nicht angepasst. Ich habe den Code für den Doppelklick angefügt. Es gibt für jeden Bereich auch ein Tabellenblatt, welches dann konstant über das jeweilige UF "beschickt" wird. Hast Du da noch evtl. eine Idee? - Danke schon jetzt wieder für die Rückmeldung.
Gruß
Wolfgang

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Lieferanten
If Not Intersect(Target, Range("E10:E61")) Is Nothing Then
With Target
.Activate   ' hier Aktionen mit der Zelle
End With
UserFormLieferanten.Show 'Makroaufruf
End If
'Kunden
If Not Intersect(Target, Range("F10:F61")) Is Nothing Then
With Target
.Activate   ' hier Aktionen mit der Zelle
End With
UserFormKunden.Show 'Makroaufruf
End If
'Angebote
If Not Intersect(Target, Range("G10:G61")) Is Nothing Then
With Target
.Activate   ' hier Aktionen mit der Zelle
End With
UserFormAngebote.Show 'Makroaufruf
End If
'Rechnungen
If Not Intersect(Target, Range("H10:H61")) Is Nothing Then
With Target
.Activate   ' hier Aktionen mit der Zelle
End With
UserFormRechnungen.Show 'Makroaufruf
End If
'Ansprechpartner
If Not Intersect(Target, Range("I10:I61")) Is Nothing Then
With Target
.Activate   ' hier Aktionen mit der Zelle
End With
UserFormAnsprechpartner.Show 'Makroaufruf
End If
'Bearbeiter
If Not Intersect(Target, Range("J10:J61")) Is Nothing Then
With Target
.Activate   ' hier Aktionen mit der Zelle
End With
UserFormBearbeiter.Show 'Makroaufruf
End If
End Sub


Anzeige
Danke Gerd - hat sich erledigt.
30.03.2008 18:50:57
Wolfgang
Hallo Gerd,
ich habe noch weiterhin versucht und probiert. Konnte somit eine Lösung finden, um Deine Codes einzubauen. Hat sich somit erledigt. Recht herzlichen Danke für Deine Ausarbeitungen und Geduld mit mir.
Herzliche Grüße und noch einen schönen Sonntag.
Wolfgang

AW: Danke Gerd - hat sich erledigt.
30.03.2008 19:37:00
Gerd
Hi Wolfgang,
ich hatte noch weitergebastelt.
'In ein allgemeines Modul z.B. Modul1 ganz oben
Option Explicit
Public ZellenadressefuerAnzahlDatensaetze As String
'In den jeweiligen Userforms in den Code eines Steuerelementes, z.B.

Private Sub CommandButton2_Click()
Worksheets("Ergebnisse").Range(ZellefuerAnzahlDatensaetze) _
= Application.WorksheetFunction. _
CountIf(Worksheets(Mid(Me.Name, 9)).Columns(4), "" & "")
End Sub


'Modul Tabellenblatt Ergebnisse


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ZellenadressefuerAnzahlDatensaetze = Target.Address(True, True)
Cancel = True
'Lieferanten
If Not Intersect(Target, Range("E10:E61")) Is Nothing Then
UserFormLieferanten.Show 'Makroaufruf
End If
End Sub


C' est la vie. :-)
Gruß Gerd

Anzeige

85 Forumthreads zu ähnlichen Themen

Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Anzeige
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
Gefüllte Zeilen zählen und Variable zuweisen
Bowl

Hallo zusammen
Hab da noch ein kleines allerletztes Problem ^^
Wie kann man in einer-Excel Tabelle die Anzahl der Gefüllten Zeilen in den denen eine bestimmte Zelle gefüllt ist zählen und den Wert einer Variablen zuweisen?
Hab da schon einiges versucht, das ganze klappt aber irgen...
01.07.2009 12:00:13
Thread-ID: 1085646
14 Beiträge
Anzeige
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
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
Anzahl farbige Zellen zählen
Jens-Claus

Hallo Excelfreunde,
ich habe ein Arbeitsblatt wo Zellen in verschiedenen Farben markiert sind.
Wer hat mir ein Makro mit welchem ich die Anzahl der Zellen pro Farbe
anzeigen kann.
Das wäre super.
Besten Dank im voraus
Jens
04.11.2010 17:18:09
Thread-ID: 1185243
4 Beiträge
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 Zellen zählen mit Farbindex 3 u.55
Thomas

Hallo Excelfreunde,
ich habe hier im Forum diesen Code gefunden Sub farben() Dim bereich As Range Dim zelle Dim x Columns("AK").Clear For x = 2 To 32 If Cells(x, 1).Interior.ColorIndex > 1 Then Cells(x, 37) = Cells(x, 1).Interior.ColorIndex End If Next End Sub
der mir den Farbindex...
27.10.2011 20:08:22
Thread-ID: 1235659
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

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
5
2
4
13
5
7
3
3
2
2
6
5
2
3
3
6
6
2
3
12
18
8
3
2
3