Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
160to164
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden (sehr wichtig)

Zeilen ausblenden (sehr wichtig)
22.09.2002 20:52:34
christoph Hoppmann
Hallo liebe Excel Freunde,

kann mir vielleicht mit einem Makro weiterhelfen. Ich möchte Zeilen ausblenden, wenn in der Spalte A das Wort "Köln" vorkommt.

Es ist sehr wichtig!!

Danke im voraus

Christoph

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeilen ausblenden (sehr wichtig)
22.09.2002 21:12:27
Herbert
Probiere dieses Makro:

Sub Zeilen_ausbl()
    Dim I As Long
    Dim Letzte As Long
    Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    On Error Resume Next
    For I = Letzte To 1 Step -1
        If Cells(I, 1) = "Köln" Then Rows(I).Hidden = True
    Next
End Sub

gruß Herbert

Anzeige
Re: Zeilen ausblenden (sehr wichtig)
22.09.2002 21:16:42
christoph Hoppmann
hallo herbert,

klappt wunderbar, du warst meine Rettung.

vielen Dank

Re: Zeilen ausblenden (sehr wichtig)
23.09.2002 09:41:11
Ralph
Hallo Herbert

ich habe ein ähnliches Problem wie Christoph. (Ich habe auch schon versucht das Makro für mich umzusetzen, hat aber leider nicht geklappt)
Ich habe eine Sheet mit verschiedenen Spalten. Inzwei von diesen Spalten kann der Wert 0 sein. Sollte dies der Fall sein, möchte ich die Spalte ausgeblendet haben.

mfg
Ralph

Re: Zeilen ausblenden (sehr wichtig)
23.09.2002 17:40:10
Herbert
Hallo Ralph,
Probiere es so:

Sub Zeilen_ausbl()
    Dim I As Long
    Dim Letzte As Long
    Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    On Error Resume Next
    For I = Letzte To 1 Step -1
        If Cells(I, 4) = 0 Then Columns(4).Hidden = True
        If Cells(I, 8) = 0 Then Columns(8).Hidden = True
    Next
End Sub
 
gruß Herbert


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige