Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellkommentare in eine Eingabemeldung wandeln

Zellkommentare in eine Eingabemeldung wandeln
vati
Hallo zusammen,
gibt es die Möglichkeit, mittels VBA, mehrere Excel- Zellkommentare in eine Eingabemeldung zu wandeln?
Hintergrund:
Ich habe mehrere Tabellen mit unzähligen Kommentaren und möchte diese gern in Eingabemeldungen umwandeln.
Die Eingabemeldung soll immer zu der Zelle gehören, in der der Kommentar steht.
Die Kommentare können im Anschluss gelöscht werden.
Copy/ Paste ist zu aufwändig.
Weiß jemand, ob und wie dies per VBA möglich ist?
Danke vorab & Viele Grüße
Vati
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellkommentare in eine Eingabemeldung wandeln
18.01.2012 15:20:26
Rudi
Hallo,
so:
Sub xxxx()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
With cmt.Parent.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = cmt.Text
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
cmt.Delete
Next
End Sub

Gruß
Rudi
Anzeige
AW: Ich erhalte: Laufzeitfehlen '1004'
18.01.2012 15:40:03
vati
Hallo Rudi,
viele Dank, für deine hilfe.
Ich erhalte bei beiden Varianten:
Laufzeitfehlen '1004'
.InputMessage = cmt.Text
Was muss ich noch anpassen?
V.G. Vati
kürzer
18.01.2012 15:27:07
Rudi
Hallo,
Sub xxxx()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
With cmt.Parent.Validation
.Delete
.Add xlValidateInputOnly
.InputMessage = cmt.Text
End With
cmt.Delete
Next
End Sub

Gruß
Rudi
Anzeige
AW: kürzer
18.01.2012 15:46:43
vati
Hallo Rudi,
ich sehe gerade, dass das Makro trotz Fehlermeldung fasst alle Kommentare ersetzt hat.
Es sind noch ca. 20 übrig, welche ich auch per Hand ändern könnte.
Das Problem möchte ich jedoch trotzden gern erfahren / lösen. :)
Danke & Viele Grüße
Vati
Text zu lang?
18.01.2012 16:03:04
Rudi
Hallo,
die Eingabeaufforderung kann max. 254 Zeichen.
.InputMessage = left(cmt.Text, 254)
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige