Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler91

Laufzeitfehler91
16.11.2004 21:27:55
Manfred
Hallo zusammen!
Ich habe ein Makro in dem ich per VBA einen Zellenkommentar einfüge oder Abfrage
das hat bis vor ein paar Tagen auch prima funktioniert.
Die folgenden Befehle habe ich eingesetzt.:
*********************************************************
Worksheets("Datenbank").Range("A1").AddComment "" & Text1
*********************************************************
d = Worksheets("Datenbank").Range("A1").Comment.Text 'Default Text für Inputbox festlegen
**********************************************************
b = Worksheets("Datenbank").Cells(rgZelle, 4).Comment.Text
***********************************************************
Ich würde mich Freuen wenn mir jemand einen Tip geben könnte,
warum das nicht mehr funktioniert.
Gruß Manfred

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler91
Ramses
Hallo
tut mir leid, aber aus der Fragestellung werde ich nicht schlau ;-)
Was funktioniert nicht ?
Welche Zeile wird markiert, wenn du auf "Debuggen" klickst ?
Gruss Rainer
AW: Laufzeitfehler91
Manfred
Hallo Rainer,
du hast Recht ich habe die Frage nicht richtig gestellt.
Also noch ein Versuch.
Diese Befehlszeilen sind einzelne Bestandteile von verschiedenen Prozeduren.
Beim Debuggen werden eben diese Zeilen markiert.
Alle haben gemeinsam, daß Comment darin vorkommt.
AW: Laufzeitfehler91
Ramses
Hallo
Und wenn die Zeile keinen Kommentar hat ?
Prüfe den Inhalt der Zelle mit
If Range("A1").Comment is Nothing then
msgbox "Kein Kommentar vorhanden"
'Dein Code wenn du den Kommentar verwenden willst
'die zelle aber keinen Kommentar enthält
Else
msgbox "Kommentar vorhanden"
'bzw. wenn du ihn verwenden willst
'und ein Kommentar vorhanden ist
End if
Gruss Rainer
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige