Office: per vba mehrere tabellenblätter gleichzeitig markieren und bearbeiten

Hallo,
bin absoluter Anfänger was VBA betrifft.

Folgendes Problem quält mich nun:
Ich möchte in mehreren bestimmten Tabellenblätter gleichzeitig Zeilen ausblenden in denen kein Wert enthalten ist. Für jeweils ein Tabellenblatt schaff ich es, jedoch nicht wenn ich mehrere als markiert selektiert habe, dann werden nur die Zeilen im aktiven Tabellenblatt ausgeblendet, auch wenn die anderen markiert sind.

:)

 

Moin, dingmadd,

gehen tut´s schon, wenn man die Tabellen vorher gruppiert *wink.gif*. Per VBA würde ich ggf. eine Schleife über alle Tabellen der Mappe laufen lassen in der Art
Code:

 

Hai Jinx...

bist mir leider zuvor gekommen *wink.gif*
Hätte es allerdings ähnlich gemacht mit folgendem Code:

Sub Zeilen_ausblenden()

Dim InI As Integer

For InI = Sheets.Count To 1 Step -1
Sheets(InI).Select
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Next InI

End Sub

Gruß Ralf

 

Hallo!

Erstmal vielen Dank für die schnelle Antwort. Jedoch bekomme ich bei beiden Codes nicht das gewünschte Ergebnis, wenn ich zusätzlich noch die Abfrage einbaue dass er nur die Zellen ausblenden soll, wenn in Spalte A nichts eingetragen ist.... Ich häng mal meinen x-ten Versuch hier an.

(aber nicht so laut lachen bitte ... hab erst 3 Wochen VBA-Theorie im Selbstlernstudium hinter mir!)

Private Sub Auswertung()

Dim intCounter As Integer
Dim iZeileEnde As Integer
Dim iLeer As Integer

Application.ScreenUpdating = False
iZeileEnde = Cells(Rows.Count, 1).End(xlUp)

For intCounter = 1 To Worksheets.Count
For iLeer = 1 To iZeileEnde
If Cells(iLeer, 1).Value = "" Then
Rows(iLeer).Hidden = True
End If
Next iLeer
Next intCounter
Application.ScreenUpdating = True
End Sub


Irgendwie scheint das nicht zu funktionieren!!! Warum nur????

Gruß Rosi

 

Moin, Rosi,

hier lacht niemand über Deine Bemühungen - und wenn, zeige ich ggf. die Grenzen auf: ich kann mich an meine ersten vergeblichen Versuche bezüglich Makros und Funktionen noch sehr gut erinnern! Hier sollte eigentlich nur hilfreich oder unterstützend geantwortet werden...

Zwei Dinge: Du "bewegst" den Zeiger nicht über die Blätter der Mappe, und die Anweisung für die letzte genutze Zelle mochte Excel97 auch nicht. Was aber bei mir im Beispiel funktionierte, war der folgende Code:

Code:

 

Super, das funktioniert jetzt!!! Vielen Dank! Ich glaub zumindest in diesem Fall hab ich verstanden was ich falsch gemacht habe!

Glückliche Grüße
Rosi