HERBERS Excel-Forum - die Beispiele

Thema: Leere und Zellen mit 0 aus-/einblenden

Home

Gruppe

Allgemein

Problem

Wie kann ich über eine Schaltfläche alle Zeilen, deren Zelle in Spalte A leer ist oder eine 0 beinhaltet über eine Schaltfläche ein- und ausblenden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Ausblenden()
   Dim iRow As Integer, iRowL As Integer
   If ActiveSheet.Buttons(Application.Caller).Caption = "Ausblenden" Then
      iRowL = Cells(Rows.Count, 1).End(xlUp).Row
      For iRow = 1 To iRowL
         If IsEmpty(Cells(iRow, 1)) Then
            Rows(iRow).Hidden = True
         ElseIf WorksheetFunction.IsText(Cells(iRow, 1)) Then
         ElseIf Cells(iRow, 1).Value = 0 Then
            Rows(iRow).Hidden = True
         End If
      Next iRow
      ActiveSheet.Buttons(Application.Caller).Caption = "Einblenden"
   Else
      Rows.Hidden = False
      ActiveSheet.Buttons(Application.Caller).Caption = "Ausblenden"
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Hyperlink

Hyperlink per Code aktivieren, gibt Fehlerhinweis xlDialogInsertHyperlink.show
Hyperlinks in Excel Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten Hyperlink zu Wordtabelle mit Textmarke
Hyperlink variabel Hyperlink - UserForm
Hyperlink öffnet Arbeitsmappe mit Parametern Hyperlinks finden
Hyperlink zurückwandeln? Hyperlink zurückwandeln?
Hyperlink zurückwandeln? Hyperlink
Hyperlink als Button Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl Hyperlinks - Standardordner ändern
Hyperlink Hyperlink
Hyperlinks Hyperlink
Prüfen ob Hyperlink Allgemeine Frage zur Fehlerbehandlung
Hyperlink und nachträglich Zeilen einfügen allgemeine Fragen zu einer Datenbank
ComboBox mit Hyperlink ListBox1_DblClick Hyperlink öffnen
Hyperlink mit Abfrage hinzufügen Hyperlink als Text
Hyperlink entfernen und Zelle einfärben ? Dateinamen auslesen - aber nicht Hyperlink
Bilder mit Hyperlink Excel: Bei Schutz Gruppierung/Hyperlink/Sortierung
Hyperlink auf Bereich in Arbeitsblatt Hyperlinks per VBA - Dokument defekt?
Hyperlink - Datei wird ausgeblendet Hyperlink verwirrung
Hyperlink nicht starr (absolut) Hyperlink
Hyperlinks innerhab einer Mappe (kein Dateipfad) Hyperlink von Excel zu Word
Hyperlink-Probleme Hyperlink
per Makro Hyperlink generieren Hyperlink auf anderes Tabellenblatt mit VBScript
Hyperlink von Zelle auf anderes Tabellenblatt hyperlink als email mit betreff und cc aus spalte
Hyperlink via WENN-Fkt aktivieren