Im untenstehenden Code blende ich unter anderem auch die Spalten E:J aus (scheint so zu funktionieren).
Nun wollte ich weitere Spalten gleichzeitig ausblenden und habe die entsprechende Zeile wie folgt modifiziert:
.Columns("E:J, L:M, O:R, T:AD, AF:AK").Hidden = True
Das funktioniert so aber nicht. Wie muss ich den Code ändern, damit das Ausblenden klappt?
Gruss, Peter
With rngZiel
.PasteSpecial Paste:=xlPasteValues 'nur Werte übernehmen
.PasteSpecial Paste:=xlPasteFormats 'nur Formate übernehmen
.Columns.AutoFit
.Columns("E:J").Hidden = True ', L:M, O:R, T:AD, AF:AK
End With