Wie Spalten dynamisch ausblenden?

Computer: Software & Programmierung Office Software
1

Hi!

Wie Spalten dynamisch ausblenden?

Die Spalten von A bis Z soll dynamisch entsprechend einer Zahl ausgeblendet ewrden und zwar von Z aus. Also, wenn ich 1 eingebe, dann soll die Spalte Z ausgeblendet werden. Wenn ich 4 eingebe, dann soll die Spalten Z, Y, X und W ausgeblendet werden.

Wie kann ich Spalten entsprechend einer variablen Zahl ausblenden?

Danke im Voraus. LG

2

Moin,
Deine Zahl kannst Du in Z4S4 ( bzw. D4 ) eintippen und danach die 3 Makros starten.
Noch einfacher und für viele Fälle effektiver wäre es, nur irgendwelche Zeichen in die Zeile 7 einzutippen, aber Du willst ja unbedingt die Spalten … bis Z sehen :wink:
Freundliche Grüße
Thomas

Sub Makro1()

Range(„Z7“).FormulaR1C1 = "=IF(26-R4C4 Spalte nicht ausblenden, ggf. anpassen

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Application.DisplayAlerts = False

lc = ActiveCell.SpecialCells(xlLastCell).Column
For i = c1 To lc
If Cells(r0, i) = „“ Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'Application.DisplayAlerts = true

End Sub

Sub alle_ein()
’
’ Alle ausgeblendeten Spalte und Zeilen werden eingeblendet,
’ alle Filter zurückgesetzt

r1 = 9 ’ erste DatenZeile, ggf. anpassen

Cells.Select
Selection.EntireColumn.Hidden = False
Selection.EntireColumn.Hidden = False
Rows(r1 - 1).AutoFilter
Rows(r1 - 1).AutoFilter
End Sub