Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchfeld/Ausblenden - Erweiterung

Suchfeld/Ausblenden - Erweiterung
29.03.2021 09:41:36
Bernd
Morgen zusammen,
kann mir bitte wer dabei helfen, wie man bei folgendem Code von Kuwe eine weitere Bedingung unter bekommt.
Und zwar sollen zusätzliche alle Zeilen eingeblendet bleiben, wenn in Spalte B der Inhalt blank ist.
Vielen Dank vorab, Gruß Bernd
Quelle:
http://www.office-loesung.de/ftopic15431_0_0_asc.php
Sub wegmit()
Dim sBereich As Range, sZeile As Range, sZelle As Range
Dim such As String
Application.ScreenUpdating = False
such = "*" & LCase(InputBox("Was suchst du?")) & "*"
If such = "**" Then 'wenn nichts eingegeben wird, werden alle Zeilen eingeblendet
Rows.Hidden = False
Exit Sub
End If
Set sBereich = ActiveSheet.UsedRange
sBereich.EntireRow.Hidden = True
sBereich.Range("1:2").EntireRow.Hidden = False 'Zeilen, die immer sichtbar bleiben
For Each sZeile In sBereich.Rows
For Each sZelle In sZeile.Cells
If LCase(sZelle) Like such Then
sZeile.Hidden = False
Exit For
End If
Next sZelle
Next sZeile
Application.Goto Cells(1, ActiveCell.Column)
Application.ScreenUpdating = True
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfeld/Ausblenden - Erweiterung
29.03.2021 10:41:29
Rudi
Hallo,
If LCase(sZelle) Like such And Cells(sZelle.Row, 2)="" Then

Gruß
Rudi

AW: Suchfeld/Ausblenden - Erweiterung
29.03.2021 10:55:53
Bernd
Hallo,
super, danke Rudi, das wars :)
Hab nur noch die Und in ne Oder Bedingung getauscht..
Gruß Bernd
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige