Spalten ausblenden mit Bedingung

Hallo zusammen,
möchte mich kurz vorstellen. Mein Name ist Denny und komme aus dem schönen Bayern, ich benutze Excel hauptsächlich beruflich als kleines (großes) Helferlein und zur Arbeitserleichterung. Bisher bin ich durch lesen und recherchieren immer zum Ziel gekommen, aber an diesem Problem beiß ich mir die Zähne aus.
Ich möchte über VBA alle Spalten ausblenden die nicht eine bestimmte Bedingung erfüllen.
Die Bedingung steht in Zelle B4
Die zu überprüfenden Werte stehen im Bereich K2:AA2 (AA2 evtl. flexibel bzw. ermitteln der weitesten rechts stehenden befüllten Spalte)
Es sollen nur Spalten des zu überprüfenden Bereich ausgeblendet werden.
Keine davor, keine dahinter.
Die Spalten sollen ausgeblendet werden wenn der Wert in Zeile 2 nicht mit B4 übereinstimmt.
Ich hoffe ich konnte einigermaßen rüber bringen was mir so den Kopf zerbricht.
Kann mir bitte von euch jemand helfen?
Vielen Dank für eure Bemühungen.
Gruß Denny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Spalten_K_bis_AA_ausblenden() Dim k As Integer 'Columns = Spalte von 11 bis 27 For k = 11 To 27 'Spalte k bis AA If Cells(2, k) = Range("B4") Then Columns(k).EntireColumn.Hidden = True End If Next k End Sub Sub Spalten_wieder_einblenden() Columns("K:AA").EntireColumn.Hidden = False End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Long Dim i As Long Application.ScreenUpdating = False If Target.Row = 4 And Target.Column = 2 Then i = Cells(2, Columns.Count).End(xlToLeft).Column Range(Cells(11, 1), Cells(1, i)).EntireColumn.Hidden = False 'von Spalte K bis letzte Spalte For k = 11 To i 'Spalte K bis Letzte Spalte If Cells(2, k) = Range("B4") Then Columns(k).EntireColumn.Hidden = True End If Next k End If Application.ScreenUpdating = True End Sub

Hallo Danny,
um die Zeit vielleicht nicht mehr so gut.
Nimm besser die Version. Bei der anderen stimmt die Ermittlung der letzten beschriebenen Spalte nicht, wenn die letzte beschriebene Spalte ausgeblendet ist.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Long
Dim i As Long
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Bei Änderung in Zeile 4 und Spalte 2 (B4)
If Target.Row = 4 And Target.Column = 2 Then
'erst alle wieder einblenden
Range(Cells(11, 1), Cells(1, Columns.Count)).EntireColumn.Hidden = False
'Ermitteln der letzten beschriebenen Spalte in Zeile 2
i = Cells(2, Columns.Count).End(xlToLeft).Column
'von Spalte K bis letzte Spalte
For k = 11 To i
'Wenn Spalte K bis Letzte Spalte = Wert in B4
If Cells(2, k) = Range("B4") Then
'entsprechende Spalte ausblenden
Columns(k).EntireColumn.Hidden = True
End If
'nächste Spalte
Next k
End If
'Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
End Sub

Gruß Werner

Application.Screenupdating = False Application.Calculation = xlCalculationManual (Berechnung aus) und am Ende dann Application.Calculation = xlAutomatic (Berechnung an) Application.Screenupdating = True

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden mit Bedingung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread