Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige