Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen automatisch ausblenden

Zeilen automatisch ausblenden
08.08.2005 10:47:29
Tom
Hallo,
Tabelle mit ca. 2500 Zeilen.
Nun möchte ich durch ein Makro alle Zeilen automatisch ausblenden, bei denen in Spalte A entweder "Verkauf" oder "Einkauf" steht.
Beginn ist in Zeile 3
Wer hat ne Lösung?
Gruß und danke vorab
Tim

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch ausblenden
08.08.2005 10:59:00
Galenzo
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Cells
If c Like "*kauf" Then c.EntireRow.Hidden = True
Next
Viel Erfolg!
AW: Zeilen automatisch ausblenden
08.08.2005 11:12:04
Tom
Hi Galenzo,
funktioniert prima.
Wie kann ich aber nun die "If-Funktion" um drei Begriffe (z.B. Garten, Hof, Haus) erweitern, wenn ich Begriffe ausblenden will, die nicht das Wort "kauf" beinhalten?
Tom
AW: Zeilen automatisch ausblenden
08.08.2005 11:18:31
Matthias
Hallo Tom,

Sub test()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range(Cells(3, 1), Cells(Rows.Count, 1).End(xlUp)).Cells
Select Case c.Value
Case "Hund", "Katze", "Maus"
c.EntireRow.Hidden = True
Case Else
c.EntireRow.Hidden = False
End Select
Next
End Sub

Gruß Matthias
Anzeige
AW: Zeilen automatisch ausblenden
08.08.2005 11:21:48
Galenzo
ändern:
If Not c Like "*kauf" Then c.EntireRow.Hidden = True
alles, was nicht mit "kauf" endet wird ausgeblendet.
Aber: könntest du das nicht mit dem Autofilter lösen?
AW: Zeilen automatisch ausblenden
08.08.2005 11:27:38
Tom
Danke für Deine Mühe. das paßt schon so. Autofilter ist schlecht, da es sich um viele "Abschnitte" handelt, die nicht zusammengefügt werden sollen.
Hallo Matthias - danke auch für Deine Lösung!
Gruß
Tom
AW: Zeilen automatisch ausblenden
08.08.2005 11:15:41
Tom
Hat sich erledigt. Habe nur die If-zeile kopiert ... Gruß Tom

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige