Hallo ich bin kurz vorm verzweifeln. Ich möchte auf allen Tabellenblättern Zeilen ausblenden. Und zwar mit einem Command Button auf dem Tabellenblatt 1.
Das Problem:
Ich habe eine Excel-Mappe, in der ich in Tabellenblatt 1 die Allgemeinen Daten von Peronen habe (Spalte 1 = lfd. Nr., Spalte 2 = Nachname, Spalte 3 = Vorname, Spalte 4 = Adresse und Spalte 5 = aktiv oder nicht aktiv).
Wenn ich jeztz in Spalte 5 eine Person auf inaktiv setze, läßt das Programm die Spalte 1 leer. Es werden nur die Personen nummeriert, welche aktiv sind.
In den anderen Tabellenblättern sind die ersten drei Spalten gleich.
Jetzt versuche ich durch einen Command Button auf Tabellenblatt 1 alle Personen auszublenden, welche inaktiv sind (über die leere Zelle in Spalte 1).
Auf einem Tabellenblatt habe ich das auch hinbekommen. Ich bekomme es allerdings nicht hin, dass es in allen Tabellenblättern funktioniert.
Mein Code sieht aktuell so aus:
Sub CommandButton3_Click()
Dim i As Integer, BlattMerken As String
BlattMerken = ActiveSheet.Name
For i = 1 To Sheets.Count
Dim Zelle As Range
For Each Zelle In Range(„A5:A39“)
If Zelle = „“ Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next Zelle
Sheets(i).Select
Next i
Sheets(BlattMerken).Activate
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus.
P.S. Ich bin absoluter VBA-Anfänger