forzales
Goto Top

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?

Content-ID: 193944

Url: https://administrator.de/contentid/193944

Ausgedruckt am: 26.11.2024 um 05:11 Uhr

facebraker
facebraker 08.11.2012 um 14:27:42 Uhr
Goto Top
Hallo,

du schreibst in A2 folgendes:

=WENN(ISTLEER(A1);"";"Fehler")

Gruß Alex
Forzales
Forzales 08.11.2012 um 14:30:25 Uhr
Goto Top
Hallo Facebraker,

Danke für deine Antwort.. Aber das ist nicht das was ich benötige.

Es soll nicht der direkte wert abgefragt werden, sondern ob dieses Feld A1 mit einem Kommentar versehen ist.
w9grma
w9grma 08.11.2012 aktualisiert um 14:33:28 Uhr
Goto Top
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
Forzales
Forzales 08.11.2012 aktualisiert um 15:07:14 Uhr
Goto Top
Hi Matthias,

der Code funktioniert leider nicht ganz..


Vielleicht kannst du mir ja hier sagen, was falsch ist.


Public Function Kommentar(Zelle As Range) As String
Application.Volatile
If Zelle.Comment.Text = "" Then GoTo richtig

Kommentar = "FEHLER"
Exit Function

richtig:
Kommentar = "RICHTIG"
End Function


Sinn des Ganzen: Wenn in A1 ein Kommentar ist, dass schreibe in A2 FALSCH.
Wenn in A1 kein kommentar steht, dass schreibe in A2 RICHTIG.

Den Fehler darzustellen funktioniert schonmal, aber wenn ich das "RICHTIG" abfrage kommt in dem Feld #NAME?
w9grma
w9grma 08.11.2012 um 15:14:53 Uhr
Goto Top
Hallo,

versuchen wir es mal. Das Coding scheint ja OK zu sein. Deshalb:
1. Wie sieht denn dein Excel Blatt aus?
2. Was steht in A2 für ein Befehl?

Grüße
Matthias
bastla
bastla 08.11.2012 um 16:00:14 Uhr
Goto Top
Hallo Forzales und willkommen im Forum, hallo w9grma!
Das Coding scheint ja OK zu sein.
... aber die Formatierung jedenfalls nicht (lässt sich aber auch nachträglich hinzufügen face-wink) ...

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
Grüße
bastla
Biber
Biber 08.11.2012 um 18:05:10 Uhr
Goto Top
[OT] @bastla

Geht mich ja nichts an, aber ...

Zitat von @bastla:
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
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 face-wink

Grüße
Biber
[/OT]
bastla
bastla 08.11.2012 um 18:25:17 Uhr
Goto Top
[OT too] Hallo Biber!
Freut mich aber, dass du auch mittlerweile fehlende Kommentare als Fehler ansiehst face-wink
Durchaus - vor allem, wenn es (wie jetzt doch schon einige Zeit) Deine Kommentare sind, die (hier) fehlen ... face-smile

Grüße
bastla
[/OT too]