Inhalte von ausgeblendeten Spalten löschen
12.08.2015 11:51:44
ausgeblendeten
Die Frage wurde zwar noch nicht endgültig gelöst, aber ich stelle diese erstmal zurück, da mir was anderes wichtiger ist ;)
Folgendes Makro blendet Spalten auf Basis eines Dropdowns (mit Zahlen) ein oder aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
If Not (Application.Intersect(NeueZeile.[E40], Target) Is Nothing) Then
Application.ScreenUpdating = False
NeueZeile.[K:AX].EntireColumn.Hidden = True
If Target.Value > 0 Then
NeueZeile.Columns("K:AX").Resize(, Target.Value).EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End If
End Sub
Sind die Spalten eingeblendet, werden die Zeilen 41 und 42 mit Inhalt befüllt. Ändere ich den Wert des Dropdowns z.B. von 5 auf 2, verschwinden 3 Spalten. Der Inhalt bleibt aber in allen 5 Spalten bestehen.
Wie muss ich das Makro ändern, damit der Inhalt dieser 3 Spalten gelöscht wird?
Dieses Makro löscht nicht sichtbare Werte, aber wie passe ich es an mein Makro an?
Range("K40",
Range("K40").End(xlDown)).SpecialCells(xlCellTypeVisible).ClearContents
Danke für Hilfe!!
VG, Esther
Anzeige