Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden

Forumthread: Ausblenden

Ausblenden
12.08.2014 18:57:14
Tom
Hallo,
ich würde gerne per Makro folgendes machen:
Makro1: Alle Zeilen die in Spalte A nicht Fr Sa oder So stehen haben - ausblenden
Makro2: Alle Zeilen wieder einblenden
https://www.herber.de/bbs/user/92056.xlsx
Gruß und Danke vorab
TOM

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden
12.08.2014 19:05:35
Daniel
Hi
für sowas braucht man kein Makro, da nimmst du den Autofilter.
damit damit das leicher geht, kannst du noch eine Hilfsspalte einfügen: 

=Wenn(Wochentag(B3;2)>5;"WE";"Arb")

und dann in dieser Hilfsspalte nach "Arb" filtern.
falls du doch ein Makro haben willst, einfach die Filtererung bzw die Aufhebung des Filters ausführen und mit dem Recoreder aufzeichnen.
Dann hast du schon mal das Grundgerüst für dein Makro (etwas überarbeitung ist immer erforderlich)
Gruß Daniel

Anzeige
AW: Ausblenden
12.08.2014 19:22:37
Tom
Das Leben kann so einfach sein ...
Danke :-)

AW: Ausblenden
12.08.2014 19:39:00
Adis
Hallo
hier eine kurze Makro Lösung; einfach in ein normales Modulblatt kopieren.
Mit einem Button in der Tabelle kann es über den Button gestartet werden
Weil ich nicht weiss wie gross der Bereich in Spalte A ist habe ich eine Constante verwendet.
Bei mir zum Testen von Zelle A1:A100. Bitte auf die eigene Arbeitsmappe manuell aendern.
Option Explicit
Const BerSpalteA = "A1:A100"
Dim Tab1 As Object
Sub Spalten_ausblenden()
Dim WoTag As Object, Tag As String
Set Tab1 = Sheets("Tabelle1")
For Each WoTag In Tab1.Range(BerSpalteA)
Tag = WoTag.Value
If Tag = "Fr" Or Tag = "Sa" Or Tag = "So" Then
WoTag.EntireRow.Hidden = True
End If
Next WoTag
Tab1 = Nothing
End Sub

Sub Spalten_einblenden()
Set Tab1 = Sheets("Tabelle1")
Tab1.Range(BerSpalteA).EntireRow.Hidden = False
Tab1 = Nothing
End Sub
Gruss Adis

Anzeige
AW: Ausblenden
12.08.2014 19:39:01
Adis
Hallo
hier eine kurze Makro Lösung; einfach in ein normales Modulblatt kopieren.
Mit einem Button in der Tabelle kann es über den Button gestartet werden
Weil ich nicht weiss wie gross der Bereich in Spalte A ist habe ich eine Constante verwendet.
Bei mir zum Testen von Zelle A1:A100. Bitte auf die eigene Arbeitsmappe manuell aendern.
Option Explicit
Const BerSpalteA = "A1:A100"
Dim Tab1 As Object
Sub Spalten_ausblenden()
Dim WoTag As Object, Tag As String
Set Tab1 = Sheets("Tabelle1")
For Each WoTag In Tab1.Range(BerSpalteA)
Tag = WoTag.Value
If Tag = "Fr" Or Tag = "Sa" Or Tag = "So" Then
WoTag.EntireRow.Hidden = True
End If
Next WoTag
Tab1 = Nothing
End Sub

Sub Spalten_einblenden()
Set Tab1 = Sheets("Tabelle1")
Tab1.Range(BerSpalteA).EntireRow.Hidden = False
Tab1 = Nothing
End Sub
Gruss Adis

Anzeige
AW: Ausblenden
12.08.2014 19:44:07
Tom
DANKE AUCH DIR !!!
;

Beliebteste Forumthreads (12 Monate)

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