Hidden-Eigenschaft + Kommentare
14.03.2007 14:14:23
Ingo
ich habe ein Problem mit eingefügten Kommentaren...
Eine Tabelle ist folgendermaßen aufgebaut:
1 Spalte sichtbar, 7 Spalten ausgeblendet, 1 Spalte sichtbar...usw.
Im Ereignis Workbook_SheetSelectionChange lasse ich nach Anklicken der Spalten
wechselnd die ausgeblendeten wieder einblenden und umgekehrt.
'*****************************************************************
'Klick auf Wochentag 1.Zeile oder Spalte blendet 7 Eingabespalten ein
'*****************************************************************
With Target
If .Row = 1 And .Column > 1 And .Column Application.ScreenUpdating = False
For i = 2 To 249
Sh.Columns(i).Hidden = (i - 2) Mod 8 0
Next i
For i = 1 To 7
Sh.Columns(.Column + i).Hidden = False
Next i
Parkposition.Select
Application.ScreenUpdating = True
Exit Sub
End If
End With
'*****************************************************************
'Klick auf Eingabespalte 1.Zeile oder Spalte blendet Eingabespalten aus
'*****************************************************************
With Target
If .Row = 1 And .Column > 1 And .Column 0 Then
Application.ScreenUpdating = False
For i = 2 To 249
Sh.Columns(i).Hidden = (i - 2) Mod 8 0
Next i
Parkposition.Select
Application.ScreenUpdating = True
Exit Sub
End If
End With
Das funktioniert absolut perfekt...
Nun habe ich den Code etwas erweitert und lasse ab Spalte 250 (die ja eigentlich von den
Aus-Einblendeaktionen nicht betroffen sind) Kommentare einfügen:
With .Cells(6, 250)
.AddComment
.Comment.Text Text:= _
"DZR lfd. Monat"
End With
With .Cells(6, 251)
.AddComment
.Comment.Text Text:= _
"Korridor fortlaufend"
End With
(usw. bis 6, 256)
Jetzt kann ich durch Klick einmal Spalten einblenden aber nicht mehr ausblenden.
Beim Ausblenden erscheint die Fehlermeldung:
Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Ursächlich sind scheints' die Kommentare.
Aber warum, bzw. was mache ich da falsch ?
Danke für Eure Hilfe
Gruß, Ingo