VBA CommandButton Zeilen ausblenden

Hallo,

ich habe ein kleines Problem. Ich habe eine Excel-Datei mit einem Tabellenblatt. Das Tabellenblatt habe ich "Kosten" genannt.
In dieser Tabelle sind nun in Spalte "C" einige Daten drin (überwiegend Zahlen). Ich würde gerne alle Zeilen, welche in Spalte "C" die Anzahl "0" enthalten, mit einem Klick auf den CommandButton ausblenden lassen. Bei einem weiteren Klick sollen sie wieder sichtbar werden. Ich habe die Tabelle stark eingekürzt. Theoretisch gehen diese befüllten Zeilen/Spalten bis knapp Zeile 150.

Im Reiter Entwicklertools habe ich bereits ein ActiveX-Steuerelement hinzugefügt. Das Steuerelement habe ich unter den Eigenschaften unter Caption "Ausblenden" genannt.
Allerdings hört es hier schon bei mir auf. Ich habe bisher NIE mit VBA zu tun gehabt aber würde dies gerne ein wenig beherrschen. Der Sinn dahinter? Vor dem Druck der Tabelle würde ich gerne die unnötigen Nullzeilen ausblenden um die Tabelle bzw. das Ergebnis übersichtlicher zu haben.

Kann mir hier vielleichtjemand eine Hilfestellung oder ein paar nützliche Tipps geben?

Vorab vielen Dank
DnlSfr

https://www.herber.de/bbs/user/162594.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() With Columns(3) If .Cells.Count = .SpecialCells(xlCellTypeVisible).Cells.Count Then .AutoFilter field:=1, Criteria1:=">0", visibledropdown:=False CommandButton1.Caption = "Einblenden" Else .AutoFilter CommandButton1.Caption = "Ausblenden" End If End With End Sub

Hi
das Problem ist hier die unzureichende Programmierung.
Thorsten nutzt um die Zeilen mit 0 zu finden, die Menüfunktion SUCHEN, in VBA dann FIND, und zwar in dieser Zeile:

 Set lrgFind = .Range("C:C").Find(0)

es fällt auf, dass er hier nur den Suchwert 0 angibt, aber keine weiteren Parameter, und jeder der in Excel schon mal die Menüfunktion SUCHEN verwendet hat, weiß dass man bei dieser Funktion noch eine ganze reihe weiterer Einstellungen machen kann, die dann das Suchergebnis beeinflussen, beispielsweise die Option "Gesamten Zellinhalt vergleichen", wenn diese angehakt ist, dann dann wird eine Zelle nur gefunden, wenn der Inhalt extakt "0" ist, ist der Haken nicht gesetzt, dann werden auch Zellen gefunden, die "0" an irgendeiner Stelle enthalten.
wie du siehst, ist diese Einstellung wichtig und offentsichtlich für dein Problem die Ursache.
wenn man jetzt in VBA diesen Parameter nicht explizit angibt, dann verwendet Excel die zuletzt gemachte Einstellung. Daher kann es sein, das Thorsten beim Testen dieser Fehler nicht aufgefallen ist.

aber um sicher zu gehen, sollte man die Parameter in VBA auch angeben, zumindest soweit sie notwendig sind.
in deinem Fall wäre das:

 Set lrgFind = .Range("C:C").Find(What:="0", LookAt:=xlwhole)

wie man sowas rausfindet:
Verwende den Makrorecorder um herauszufinden wie man Excelmenüfunktionen in VBA programmiert.

Gruß Daniel

Option Explicit Sub sbYesNo(ByVal ausein As String) Dim lloRow As Long Dim lrgFind As Range, lstrFirstAdr As String With Sheets("Kosten") 'wenn Blattname im Original anders, dann hier anpassen 'wenn auf dem Button "Ausblenden" zu lesen ist... If ausein = "Ausblenden" Then '...wird "Ausblenden" in "Einblenden" geändert .CommandButton1.Caption = "Einblenden" '...in Spalte C wird nach dem Wert 0 gesucht Set lrgFind = .Range("C:C").Find(0, LookIn:=xlFormulas, lookat:=xlWhole) If Not lrgFind Is Nothing Then lstrFirstAdr = lrgFind.Address Do '...alle Zeilen mit Wert 0 in C werden hier ausgeblendet .Rows(lrgFind.Row).EntireRow.Hidden = True Set lrgFind = .Range("C:C").FindNext(lrgFind) If lrgFind Is Nothing Then Exit Do Loop While lrgFind.Address > lstrFirstAdr End If 'wenn auf dem Button NICHT "Ausblenden" zu lesen ist Else '...wird auf dem Button wieder "Ausblenden" zu lesen sein .CommandButton1.Caption = "Ausblenden" '...und alle ausgeblendeten Zeilen werden wieder eingeblendet .Rows("5:" & .Cells(.Rows.Count, 8).End(xlUp).Row).EntireRow.Hidden = False End If End With Set lrgFind = Nothing End Sub

Private Sub CommandButton1_Click() Dim C As Range For Each C In Range("C6:C149").Cells If C.Text = "0" Then C.EntireRow.Hidden = Not C.EntireRow.Hidden Next End Sub

Beliebteste Forumthreads (12 Monate)

VBA CommandButton Zeilen ausblenden

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA CommandButton Zeilen ausblenden

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread