Erweiterte Abfrage

Forumthread: Erweiterte Abfrage
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Erweiterte Abfrage

Erweiterte Abfrage

29.01.2004 17:28:35

Stefan Glander

Hallo Forum,
stehe mal wieder völlig auf dem Schlauch.
Folgendes Problem:
Soll für alle Zellen im Blatt gelten.
Wenn
Application.DisplayCommentIndicator = xlNoIndicator
Sub beenden
wenn
Application.DisplayCommentIndicator = xlCommentAndIndicator
dann
Comment.Visible = False
Bitte nicht erschlagen, aber ich baue eine Fehlermeldung nach der anderen
Gruss
Stefan Glander

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Erweiterte Abfrage

29.01.2004 17:54:08

Josef Ehrensberger
AW: Erweiterte Abfrage Danke :-))) o.T.

29.01.2004 18:06:06

Stefan Glander

AW: Erweiterte Abfrage

29.01.2004 17:54:08

Josef Ehrensberger

Hallo Stefan!
Meinst Du so.

Sub Kommentar()
Dim com As Comments
If Application.DisplayCommentIndicator = xlNoIndicator Then Exit Sub
If Application.DisplayCommentIndicator = xlCommentAndIndicator Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End Sub