Excel Formel - Abfragen von Kommentaren
Hallo zusammen,
ich möchte in excel mit hilfe einer Formel folgendes erstellen.
Wenn in Einem definiertem Feld (bsp. A1) ein Kommentar eingefügt wird, dann soll in einem anderen Feld (bsp. A2) "Fehler" geschrieben werden.
Habt ihr eine Idee?
ich möchte in excel mit hilfe einer Formel folgendes erstellen.
Wenn in Einem definiertem Feld (bsp. A1) ein Kommentar eingefügt wird, dann soll in einem anderen Feld (bsp. A2) "Fehler" geschrieben werden.
Habt ihr eine Idee?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 193944
Url: https://administrator.de/contentid/193944
Ausgedruckt am: 12.11.2024 um 19:11 Uhr
8 Kommentare
Neuester Kommentar
Hallo Forzales,
das Problem ist, dass du mit Standard Excel Befehlen nicht an Zell-Kommentare herankommst. Zumindest kenne ich keinen solchen.
Aber ich hab mal für dich gegoogelt: http://www.office-loesung.de/ftopic168128_0_0_asc.php
Das sollte dir weiterhelfen. Eigenen "Befehl" (=Funktion) dafür in VBA definieren und in A2 danach diese neue Funktion aufrufen.
Anders wird es wohl nicht gehen.
Grüße
Matthias
das Problem ist, dass du mit Standard Excel Befehlen nicht an Zell-Kommentare herankommst. Zumindest kenne ich keinen solchen.
Aber ich hab mal für dich gegoogelt: http://www.office-loesung.de/ftopic168128_0_0_asc.php
Das sollte dir weiterhelfen. Eigenen "Befehl" (=Funktion) dafür in VBA definieren und in A2 danach diese neue Funktion aufrufen.
Anders wird es wohl nicht gehen.
Grüße
Matthias
Hallo Forzales und willkommen im Forum, hallo w9grma!
Geht es so besser?
Grüße
bastla
Das Coding scheint ja OK zu sein.
... aber die Formatierung jedenfalls nicht (lässt sich aber auch nachträglich hinzufügen ) ...Geht es so besser?
Public Function Kommentar(Zelle As Range) As String
Application.Volatile
If Zelle.Comment Is Nothing Then
Kommentar = "FEHLER"
Else
Kommentar = "RICHTIG"
End If
End Function
bastla
[OT] @bastla
Geht mich ja nichts an, aber ...
wollte Forzales es nicht umgekehrt haben... WENN ein Kommentar eingeben wurde, DANN "Fehler" ??
Ich empfinde es zwar auc eher als Fehler, wenn keine Kommentare vorhanden sind, aber die Anforderung war eine andere.
Freut mich aber, dass du auch mittlerweile fehlende Kommentare als Fehler ansiehst
Grüße
Biber
[/OT]
Geht mich ja nichts an, aber ...
Public Function Kommentar(Zelle As Range) As String
Application.Volatile
If Zelle.Comment Is Nothing Then
Kommentar = "FEHLER"
Else
Kommentar = "RICHTIG"
End If
End Function
Ich empfinde es zwar auc eher als Fehler, wenn keine Kommentare vorhanden sind, aber die Anforderung war eine andere.
Freut mich aber, dass du auch mittlerweile fehlende Kommentare als Fehler ansiehst
Grüße
Biber
[/OT]