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

Zellenbereich pro Spalte per Makro ausblenden

Forumthread: Zellenbereich pro Spalte per Makro ausblenden

Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 08:58:09
chrigu47
Hallo Zusammen!

Benötige euer Wissen für eine simple Sache (Für mich nicht simpel, für euch bestimmt :-))
Möchte gerne über ein Makro alle Spalten ausblenden bei welchen der Zellenbereich, zb 5-38 leer ist.

Habe div. ausprobiert und nur dieser hier hat funktioniert, aber der checkt halt nur 1 Zelle.

Sub SpaltenVerstecken()
Dim Spalte As Integer
Dim SpalteEnd As Integer

With Tabelle3
SpalteEnd = .UsedRange.Columns.Count

For Spalte = 6 To SpalteEnd
If .Cells(4, Spalte).Value = "" Then
.Columns(Spalte).Hidden = True
Else
.Columns(Spalte).Hidden = False
End If
End If
Next Spalte

End With
End Sub
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 09:03:52
BoskoBiati2
Hi,

je nach Bedarf mit Countif prüfen, wieviel Zellen in dem Bereich der Spalte leer sind und dann ausblenden.
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 18:39:34
Kuwer
Hallo, 

Sub aabb()

  With Tabelle3

    On Error Resume Next

    Range(.Columns(6), .Columns(Columns.Count)).Hidden = True

    Range(.Cells(5, 6), .Cells(38, .Columns.Count)).SpecialCells(xlCellTypeConstants).EntireColumn.Hidden = False

    On Error GoTo 0

  End With

End Sub


Gruß, Uwe
Anzeige
AW: Zellenbereich pro Spalte per Makro ausblenden
08.05.2024 07:14:53
chrigu47
Danke Euch!

Vorschlag von Uwe passt perfekt :-)

Wünsche eine Gute Restwoche
AW: Zellenbereich pro Spalte per Makro ausblenden
08.05.2024 07:45:43
chrigu47
Hallo Zusammen

Benötige doch nochmal euer Wissen. Hab jetzt eine Beispiel Datei erstellt:

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

Das mit dem ausblenden funktioniert, allerdings habe ich einen "Branchenfilter". Ist es möglich nach setzen des Branchenfilters, die Spalten auszublenden welche leer sind von dieser Branche?

Danke euch!

Grüsse
Anzeige
AW: Zellenbereich pro Spalte per Makro ausblenden
08.05.2024 09:42:27
Kuwer
Hallo, 

Private Sub ComboBox1_Change()

    Dim rng As Range, cel As Range

    Application.ScreenUpdating = False

    Rows(2).EntireColumn.Hidden = False

    For Each cel In Range(Cells(2, "F"), Cells(2, Columns.Count).End(xlToLeft))

        cel.Select

         If cel > ComboBox1 Then

              If (cel.Column + 2) Mod 8 > 0 Then

                If rng Is Nothing Then

                    Set rng = cel

                Else

                    Set rng = Union(rng, cel)

                End If

            End If

        End If

    Next

    If Not rng Is Nothing Then rng.EntireColumn.Hidden = True

    If ComboBox1 = "Alle" Then

      Tabelle3.Columns.Hidden = False

    Else

      With Tabelle3

        On Error Resume Next

        With Range(.Cells(4, 5), .Cells(38, .Columns.Count)).SpecialCells(xlCellTypeVisible)

          .EntireColumn.Hidden = True

          .SpecialCells(xlCellTypeConstants).EntireColumn.Hidden = False

        End With

        On Error GoTo 0

      End With

    End If

    Application.ScreenUpdating = True

    Application.Goto ActiveSheet.Range("A1"), True

End Sub


Gruß, Uwe
Anzeige
AW: Zellenbereich pro Spalte per Makro ausblenden
08.05.2024 09:54:39
chrigu47
Perfekt! Danke dir vielmals.

Gruss
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 09:47:50
chrigu47
Hi

Könntest du mir vlt mit Code weiterhelfen? Danke dir schon mal!

Gruss
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 10:15:41
BoskoBiati2
Hallo,

zu wenig Info.

z.B.:

welchen der Zellenbereich, zb 5-38 leer

was genau willst Du?

Am Besten mit Musterdatei.
Anzeige
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 10:18:56
chrigu47
Musterdatei kann ich leider nicht hochladen.

Folgendes möchte ich tun: Sobald in einer Spalte in irgendeiner Zelle von 5-38 ein Eintrag ist, dann soll die komplette Spalte ausgeblendet werden. Hoffe das reicht so?

Gruss und Danke dir
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 10:56:44
BoskoBiati2
Hi,


Sobald in einer Spalte in irgendeiner Zelle von 5-38 ein Eintrag ist,

alle Spalten ausblenden bei welchen der Zellenbereich, zb 5-38 leer ist.

Was denn nu?
Anzeige
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 14:46:13
chrigu47
Hallo

Es soll jede Spalte auf Einträge in Zellen 5-38 überprüft werden. Sobald ein Eintrag in irgendeiner Zelle ist, dann die jeweilige Spalte ausblenden.

Gruss und Danke
AW: Zellenbereich pro Spalte per Makro ausblenden
07.05.2024 17:50:06
BoskoBiati2
Hi,

versuche es mal so:

Sub SpaltenVerstecken()
Dim Spalte As Long
Dim SpalteEnd As Long 

With Tabelle3

    SpalteEnd = .UsedRange.Columns.Count

    For Spalte = 6 To SpalteEnd

        If Application.CountIf(Range(.Cells(5, Spalte), .Cells(38, Spalte)), "")  34 Then

            .Columns(Spalte).Hidden = True

        Else

            .Columns(Spalte).Hidden = False

        End If

    Next

End With



End Sub
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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