Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hidden-Eigenschaft + Kommentare

Hidden-Eigenschaft + Kommentare
14.03.2007 14:14:23
Ingo
Hallo allerseits,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hidden-Eigenschaft + Kommentare
14.03.2007 18:05:00
Hubert
Hi,
Eigenschaft der Kommentare auf:
Von Zellposition- und Größe abhängig
einstellen.
mfg Hubert
Danke sehr - Funktioniert (o.T.)
15.03.2007 11:20:13
Ingo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige