ich habe ein Sheet mit einem Button; beim Betätigen dieses Buttons soll eine Spalte eingeblendet werden; beim wiederholten Betätigen soll eine weitere Spalte eingeblendet werden und zwar immer hinter die letzt eingeblendete Spalte.
In den Spalten steht auch schon Text, eine Spalte steht für einen neuen Process:
Mein Code:
Public Sub AddingProcess()
Dim ws4 As Worksheet
Dim rng, rng2 As Range
Dim i As Integer
' Set ws4 = ThisWorkbook.Worksheets("Calculation")
For i = 9 To 19
If Columns(i).Hidden = False Then
Columns(i + 1).Hidden = False
End If
Next i
End Sub
Bei meinem Code werden immer alle ausgeblendete Spalten eingeblendet , was nmir auch logisch erscheint beim Betrachten des COdes, aber ich finde keine Lösung nur eine, und zwar die hinter die letzte Spalte, Spalte einzublenden :(Ich hoffe jeemand kann mir helfen und bin über jeden Rat dankbar.
Liebe Grüße
Nathalie