Office: Selektierte Zeile auf mehreren Blättern ausblenden

tino2010 · 1. Juni 2017

Hallo,

ich möchte gerne eine Zeile auf mehreren Blättern ausblenden. Dafür markiere ich betreffende Blätter per Makro und nutze dann Selection.Entirerow.Hidden=True

Allerdings wird dann nur die Zeile auf dem aktiven Blatt ausgeblendet.
Wenn ich es händisch mache und das Makro dabei aufzeichnen lasse, blendet er die Zeile auf allen markierten Blättern zuverlässig aus. Im aufgezeichneten Makro steht dann auch

Selection.Entirerow.Hidden = True

aber ich meinem. Karo funktioniert es wie gesagt nicht.

LG

:)

Beverly · 3. Juni 2017

Hi,

wenn du die Tabellenblätter sowieso per Makro selektierst, dann kannst du doch auch in einer Schleife über diese Blätter laufen und die Zeilen ausblenden.

lupo1 · 3. Juni 2017

Aufzeichnungen sind generell kein Garant für anschließende 1:1-Funktion.

Beispiel: Wie soll Excel aufzeichnen, wenn Du enthaltene Objekte bearbeitest, z.B. die Mondlande-App oder das 3D-Paint-Modell?

Bei Tabellengruppen (als innerhalb von Excel) ist es eher ein Vorsichtsgrund.

tino2010 · 4. Juni 2017

Hallo,

danke für die Antworten. Ich verstehe was ihr meint, kann es aber nicht so wirklich umsetzen. Anbei mal mein Code. Ich selektiere vorher eine Zeile und möchte dass diese auf allen markierten Blättern ausgeblendet wird. Ich muss die Blätter leider markieren weil es ein Blatt "X" und ein Blatt "Y" gibt, auf denen diese Zeile nich ausgeblendet werden darf. Wenn das jemand anders lösen kann, wäre ich sehr dankbar.

Diesen Code habe ich durch Google gefunden und angepasst... Bin erst neu bei VBA

Code:

Sub Ausblenden()
Application.ScreenUpdating = False
Dim Sh As Worksheet
For x = 1 To 51
Sheets(x).Visible = True
Next x
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect "bgs,.zeugnis"
Next
Sheets(Array("Personendaten", "Fehlzeiten", "Bemerkungen", "AV", "SV", _
"Abschluss_HSA", "D", "Ma", "E", "Ph", "Ch", "Bio", "G", "Ek", "PoWi", "Rel_Eth", "BSO", _
"Ku", "Sp", "Mu", "Syr-Orth_Rel", "WPU-1", "WPU-2", "AG", "Protokoll_5_1", "Protokoll_5_2", "Protokoll_6_1", "Protokoll_6_2", "Protokoll_7_1", "Protokoll_7_2", _
"Protokoll_8_1", "Protokoll_8_2", "Protokoll_9_1", "Protokoll_9_2", "Protokoll_10_1", "Protokoll_10_2")).Select
Sheets("Personendaten").Activate
Selection.EntireRow.Hidden = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RPP63 · 4. Juni 2017

Moin!
Mal "etwas" einfacher:

Sub Ausblenden()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "X", "Y": 'mache nix
Case Else: wks.Rows(Selection.Row).Hidden = True
End Select
Next
End Sub

Lukas Mosimann. Projektbetreuung:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tino2010 · 4. Juni 2017

Funktioniert einwandfrei!

Vielen Dank!

Beverly · 4. Juni 2017

Hi,

ich nehme an, deine Mappe enthält insgesamt 51 Blätter und der Code für das Einblenden und Aufheben des Blattschutzes soll für alle zutreffen? Dann kannst du auch alles in einem Ritt machen und dein Array mit den Blattnamen für das Zeilen ausblenden gleich verwenden:

Code:

Sub Ausblenden()
Application.ScreenUpdating = False
Dim varEin As Variant
Dim x As Integer
For x = 1 To 51
With Sheets(x)
.Visible = True
.Unprotect "bgs,.zeugnis"
varEin = Application.Match(.Name, Array("Personendaten", "Fehlzeiten", "Bemerkungen", "AV", "SV", _
"Abschluss_HSA", "D", "Ma", "E", "Ph", "Ch", "Bio", "G", "Ek", "PoWi", "Rel_Eth", "BSO", _
"Ku", "Sp", "Mu", "Syr-Orth_Rel", "WPU-1", "WPU-2", "AG", "Protokoll_5_1", "Protokoll_5_2", _
"Protokoll_6_1", "Protokoll_6_2", "Protokoll_7_1", "Protokoll_7_2", "Protokoll_8_1", _
"Protokoll_8_2", "Protokoll_9_1", "Protokoll_9_2", "Protokoll_10_1", "Protokoll_10_2"), 0)
If IsNumeric(varEin) Then .Range(Selection.Address).EntireRow.Hidden = True
End With
Next x
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Selektierte Zeile auf mehreren Blättern ausblenden

Selektierte Zeile auf mehreren Blättern ausblenden

Selektierte Zeile auf mehreren Blättern ausblenden

Selektierte Zeile auf mehreren Blättern ausblenden

Selektierte Zeile auf mehreren Blättern ausblenden - Similar Threads - Selektierte Zeile mehreren

VBA in einer Zeile zu lang

Zeile & Spalte einer selektierten Zelle in r & c

Selektierte Einträge in ListBox abwählen

Zeile von selektiertem Eintrag in Combobox

Selektierte Zeilen auslesen

Nach Abfrage selektierte Datensätze für weitere Abfrage deaktivieren

Dynamische Drop Down Inhalte im Ribbon je nach selektiertem Tabellenblatt ändern