Thema Datum  Von Nutzer Rating
Antwort
04.05.2018 11:21:16 Fel
NotSolved
04.05.2018 11:33:50 Werner
NotSolved
04.05.2018 11:41:48 Gast19313
NotSolved
04.05.2018 11:34:36 Gast76057
NotSolved
Rot Spalten ausblenden, zwei Bedingungen
 04.05.2018 12:05:37 Werner
Solved
04.05.2018 12:43:08 Gast45733
NotSolved
04.05.2018 13:48:15 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
04.05.2018 12:05:37		 Views:
497		 Rating:
     
Antwort:
 Nein
Thema:
Spalten ausblenden, zwei Bedingungen

Hallo Leo,

zwei Schaltflächen auf dein Tabellenblatt, eine für Ausblenden, eine für Einblenden und entsprechend beschriften. Der jeweiligen Schaltfläche dann das entsprechende Makro zuweisen.

Option Explicit

Public Sub Spalten_ausblenden()
Dim loSpalte As Long, i As Long

With Worksheets("Tabelle1") 'Blattname anpassen
    loSpalte = .Cells(3, .Columns.Count).End(xlToLeft).Column
    For i = 6 To loSpalte
        If .Cells(3, i) = "St" Then
            If .Cells(4, i).Value = "" Then
                Columns(i).Hidden = True
            End If
        End If
    Next i
End With

End Sub

Public Sub Spalten_einblenden()
'Blattname anpassen
Worksheets("Tabelle1").Columns.Hidden = False
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.05.2018 11:21:16 Fel
NotSolved
04.05.2018 11:33:50 Werner
NotSolved
04.05.2018 11:41:48 Gast19313
NotSolved
04.05.2018 11:34:36 Gast76057
NotSolved
Rot Spalten ausblenden, zwei Bedingungen
 04.05.2018 12:05:37 Werner
Solved
04.05.2018 12:43:08 Gast45733
NotSolved
04.05.2018 13:48:15 Werner
NotSolved