Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
22.10.2025 15:30:07
Beitragsproblem im Forum behoben
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Befehl für mehrere Tabellen

Forumthread: VBA-Befehl für mehrere Tabellen

VBA-Befehl für mehrere Tabellen
27.08.2003 15:12:32
Daniel
Hallo

Ich möchte das folgende Makro ergänzen, damit es für alle vorhandenen Tabellen ausgeführt wird. Sollte glaub ich nicht so schwierig sein, aber als Anfänger hat man so seine Mühe... 

Sub LeerZeilenAusblenden()
Dim i As Long
Application.ScreenUpdating = False
For i = 301 To 13 Step -1
If WorksheetFunction.Sum(Range("B" & i & ":F" & i)) = 0 Then _
Cells(i, 1).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

Bedanke mich schon jetzt für einen genialen Experten-Vorschlag.
Gruss
Daniel
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Befehl für mehrere Tabellen
27.08.2003 15:18:56
Juergen
Hallo Daniel,

versuche mal diese Zeilenmit einzubauen. Müsste eigentlich funktionieren.

Dim Mappe as Worksheet

dann die Schleife
For Each Mappe ind Workbooks
.
.
.

Next Mappe

Gruss Juergen
AW: VBA-Befehl für mehrere Tabellen
27.08.2003 15:38:47
Daniel
Hallo Juergen

Danke für Deinen Vorschlag. Leider klappts nicht so recht (hab wahrscheinlich nicht richtig verstanden). Hier das abgeänderte Makro:


Sub LeerZeilenAusblenden()
Dim i As Long
Dim Mappe As Worksheet
Application.ScreenUpdating = False
For i = 301 To 13 Step -1
If WorksheetFunction.Sum(Range("B" & i & ":F" & i)) = 0 Then _
Cells(i, 1).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
For Each Mappe In Workbooks
Next Mappe
End Sub


Was hab ich falsch gemacht?
Danke für Deine/Eure Hilfe.
Daniel
Anzeige
AW: VBA-Befehl für mehrere Tabellen
27.08.2003 16:15:42
Andreas Walter
Du hast nur eine halbe Antwort bekommen.
Ich kann die halbe Antwort auch nicht ergänzen
Daher eine geringfügig andere Lösung


Sub LeerZeilenAusblenden()
Dim i As Long
dim j as long
Application.ScreenUpdating = False
for j=1 to worksheets.count
For i = 301 To 13 Step -1
If worksheets(j).WorksheetFunction.Sum(Range("B" & i & ":F" & i)) = 0 Then _
Cells(i, 1).EntireRow.Hidden = True
Next i
next j
Application.ScreenUpdating = True
End Sub

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