ChatGPT-Thema: Zeilen ein-/ausblenden

Erstelle mir einen VBA-Code für folgendes Excel-Problem: Die ersten 25 Zellen in Spalte A sollen auf Inhalt geprüft werden. Ist die jeweilige Zelle nicht leer, soll die entsprechende Zeile in Tabelle2 eingeblendet werden.

Um einen VBA-Code für dieses Problem zu erstellen, könntest du Folgendes tun:
Öffne die Entwicklertools in Excel. Dies kannst du über das Menü "Ansicht" oder über das Excel-Menü (unter macOS) tun.

Erstelle eine neue Modul-Datei, indem du im Menü "Einfügen" auf "Module" klickst.

Füge den folgenden Code in das Modul ein:

Sub ShowRows()



Dim i As Integer



For i = 1 To 25

    If Not IsEmpty(Cells(i, 1)) Then

        Rows(i).EntireRow.Hidden = False

    End If

Next i



End Sub

Führe den Code aus, indem du im Menü "Debuggen" auf "Ausführen" klickst oder F5 drückst.
Dieser Code wird die ersten 25 Zellen in Spalte A durchgehen und, falls sie nicht leer sind, die entsprechende Zeile in Tabelle2 einblenden.