Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle befüllten Zeilen einer Mappe zählen

alle befüllten Zeilen einer Mappe zählen
06.05.2009 10:51:40
Steffen
Hallo Ex(cel)perten,
wie muss ich meinen Code ergänzen, um alle befüllten Zeilen einer kompletten Arbeitsmappe ausgezählt zu bekommen?
für ein einzelnes Blatt kriege ich es hin, da keine leeren Zeilen zwischendrin vorhanden sind
all = Cells(Rows.Count, 1).End(xlUp).Row
Gruß
Steffen

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

Betreff
Datum
Anwender
Anzeige
AW: alle befüllten Zeilen einer Mappe zählen
06.05.2009 11:13:02
Raist10
Sub Test()
'Aufruf mit beliebigem Range
'auch alle: ActiveSheet.Cells
'oder Selection ;-)
Call SetShape(ActiveSheet.Cells)
End Sub 



Private Sub SetShape(myRange As Range)
On Error GoTo Err_SetShape
Dim i As Long
Dim iZähler As Long
Dim myCell As Range
iZähler = 0
Set myRange = myRange.SpecialCells(xlCellTypeConstants)
For Each myCell In myRange
With myCell
iZähler = iZähler + 1
Next
End With
Next
MsgBox "Zellen mit Inhalt: " & iZähler
Exit_SetShape:
Exit Sub
Err_SetShape:
Select Case Err.Number
Case 0: Resume
Case Else
MsgBox Err.Number & " " & Err.Description
Resume Exit_SetShape
End Select
End Sub


Hier mal eine Abwandlung eines Codes. In dieser Form zählt er alle Zellen die einen Wert beinhalten in der Variabele iZähler.
Anstelle der MsgBox musst Du halt einsetzen was Du mit dem Ergebnis machen willst.
In der aufrufenden Sub kannst Du ja bestimmen welcher Bereich geprüft werden soll, also ActiveSheet oder eben eine Schleife um jedes Sheet des Workbooks durch zu zählen.
Gruß
Rainer

Anzeige
AW: alle befüllten Zeilen einer Mappe zählen
06.05.2009 11:31:30
steffen
@Rainer
Dank für die Hilfe.
Leider ist das Ergebnis nicht zielführend, da hier offensichtlich Zellen und nicht Zeilen gezählt werden.
Mir fehlt hier nötige Hintergrundwissen, um Deinen Code auf Zeilen anzupassen.
Viele Grüße
AW: alle befüllten Zeilen einer Mappe zählen
06.05.2009 12:00:41
Raist10
Sorry, hatte auf die Schnelle wohl Zellen gelesen anstatt Zeilen.
Dann Probiere es so:

Sub ZeilenZählen()
Dim wkb As Workbook
Dim wks As Worksheet
Dim zZähler As Long
Dim i As Integer
' Fehlerabfang
On Error GoTo Err_Handler
' Zu durchsuchendes Workbook setzen
Set wkb = ThisWorkbook
' Zähler auf 0 setzen
zZähler = 0
' Startsheet aktivieren
wkb.Sheets(1).Activate
' Für jedes Worksheet Schleife ausführen
For Each wks In wkb.Worksheets
' Schleife auf UsedRange: Wenn Zeile Inhalt Wahr dann zZähler + 1
For i = 1 To wks.UsedRange.Rows.Count
If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
zZähler = zZähler + 1
End If
Next i
Next wks
Exit Sub
Err_Handler:
MsgBox "Fehler : " & Err.Number & vbLf & _
Err.Description
End Sub


Musst halt bei set wbk = Das Workbook eintragen was durchsucht werden soll. ThisWorkbook ist immer das workbook in dem das Makro steht.
Gruß
Rainer

Anzeige
Danke
06.05.2009 12:45:37
steffen
das, werd ich mal reinbasteln
Gruß Steffen

302 Forumthreads zu ähnlichen Themen

Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
jede zweite Zelle in Datenreihe
sarina

Hallo!
Ich habe ein Problem ;)
Und zwar würde ich gerne ein Diagramm erstellen, dass als Datenreihe aus meiner vorhandenen Tabelle jede zweite Zelle nimmt, z.B. aus der Spalte A von 1:250 also dann A1, A3, A5,....
Und das ohne eine neue Tabelle zu erstellen.
Geht das? Hat jema...
29.08.2008 09:48:58
Thread-ID: 1005687
5 Beiträge
Anzeige
Maxwert aus jeder zweiten Spalte
Stefan

Hallo,
kennt jemand eine möglichkeit, wie man ohne VBA das Maximum aus den Werten jeder 2. Spalte einer Zeile auslesen kann, ohne die Spalten einzeln aufzuzählen (=max(d2;d4;d6;d8...))?
Gruß Stefan
16.01.2009 14:24:00
Thread-ID: 1040577
5 Beiträge
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Wert aus jeder zweiten Zeile übernehmen
oli.p

Hallo zusammen!
Ich sitze den halben Tag an einer für mich schier unlösbaren Aufgabe.
Zur weiteren Bearbeitung wollte ich eigentlich jeweils "nur" jeden zweiten Wert einer Zeile anzeigen.
Hier zur Veranschaulichung: https://www.herber.de/bbs/user/63952.xls
Vielen Dank für Eure H...
20.08.2009 14:20:09
Thread-ID: 1097390
5 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
5
14
3
4
4
4
3
5
5
4
5
2
8
3
3
5
3
3
2
2
3
9
12
8
3