Ich hab folgende Aufgabe zu bewältigen:
Ich habe eine Excel-Datei mit einigen Arbeitsblättern, in denen in mehreren Bereichen/Tabellen bestimmte Zeilen und Spalten ausgeblendet werden sollen. Hier ein Beispiel-File:
https://www.herber.de/bbs/user/58668.xls
In den Blättern "Bewertung1" bis "Bewertung4" ,welche jeweils identisch aufgebaut sind, befinden sich mehrere Tabellen, in denen jeweils Zeilen und Spalten ohne Überschrift augeblendet werden sollen. Im Blatt "Bewertung1" wären dies im Beispielfile also die Zeilen 13-19,28-34,43-49,58-64 etc. und die Spalten E-K ( die auszublendenden Zeilen und Spalten sind in den anderen Blättern identisch). Die leeren Zeilen zwischen den einzelnen Tabellen sollen dabei jeweils sichtbar bleiben. Bevor die "leeren" Zeilen und Spalten ausgeblenden werden müssten allerdings alle Zeilen und Spalten in den Arbeitsblättern wieder eingeblendet werden. Wenn es möglich ist sollte dieser Vorgang sowohl bei eingeblendeten als auch bei ausgeblendeten Tabellenblättern möglich sein.
Ich habe bereits ein Makro, das diese Funktionalität für Tabellenblätter mit nur einer Tabelle ausführt,leider reichen meine Kenntnisse nicht aus um dieses für mehrere Tabellen erweitert(Hier heissen die Blätter Gewichtung1-9). Könnte mir da jemand weiterhelfen?
Sub Zeilen_Spalten_Gewichtung_ausblenden()
For Each Blatt In ActiveWorkbook.Worksheets
Namebl = Blatt.Name
If Sheets(Namebl).Visible = 0 Or Blatt.Visible = 2 Then
GoTo weiter
End If
If Left(Namebl, 10) = "Gewichtung" Then
Sheets(Namebl).Select
Range("A10:A17").Select
For Each Zeile2 In Selection.Cells
Zeile2.EntireRow.Hidden = False
Next Zeile2
For Each Zeile In Selection.Cells
If Zeile.Value = "" Then
Zeile.EntireRow.Hidden = True
Else
Zeile.EntireRow.Hidden = False
End If
Next Zeile
Range("B9:I9").Select
For Each Spalte2 In Selection.Cells
Spalte2.EntireColumn.Hidden = False
Next Spalte2
For Each Spalte In Selection.Cells
If Spalte.Value = "" Then
Spalte.EntireColumn.Hidden = True
Else
Spalte.EntireColumn.Hidden = False
End If
Next Spalte
End If
weiter:
Next Blatt
End Sub