2 Spalten ausblenden 2 hinzu...

[mircok]

2 Spalten ausblenden 2 hinzu...
Hallo @all,

habe wierder eine Frage zwecks meiner Projektbewältigung.

In meinem Sheet" Bilanz" welches abwechsend "Jahresdifferenz" und "Jahr" als
Spaltenüberschrift (Reihe 1:1) besitzt, sollen durch Buttonclick immer die ersten zwei Spalten ausgeblendet werden und nach der letzten Spalte sollen wierder 2 neue Spalten hinzukommen.So das ich immer 5 Spalten habe(3 Jahrespalten und 2 Differensspalten)

Dieser Vorgang soll beliebig oft wiederholbar sein.

Hat jemand ne Ahnung wie ich rangehen soll
Bin für jede Hilfe dankbar!

 

[mircok]

Sub Bilanz()

On Error Resume Next

Dim i As Integer
Dim spalten

Sheets("Bilanz").Activate
ActiveSheet.Unprotect
Range("1:1").Select

Selection.Find("EURO").Select
spalten = ActiveCell.Column
spalten = Range("a2").Value

For spalten = 3 To 100

Worksheets("Bilanz").Columns(spalten).Hidden = True
Worksheets("Bilanz").Columns(spalten + 1).Hidden = True

Exit For
Next

End Sub

Mit dieser Sache die ich bis jetz hab gehen nur 1*die ersten beiden Spalten weg..muss aber bix jahr xx gehen auch kommen hier keine 2 neuen Saplten hinzu