Kommentarfenster nach Bedingung

[Pixelfehler2]

Hallo zusammen,

ich habe in einer Tabelle folgende Legende: AA bedeutet Schulung, BB bedeutet Urlaub, CC bedeutet Krank

Wenn ich z.B. in Zelle A1 "AA" eintrage, möchte ich gerne, dass wenn ich mit der Maus über dieses Feld fahre, sich ein Kommentarfenster mit dem Text "Schulung", bei "BB" in Zelle A1 ein Kommentarfeld mit dem Text "Urlaub" öffnet usw.
Da es sich um eine sehr große Tabelle handelt und die Legende sehr groß ist, möchte ich gerne für die Zelle A1 eine Art Funktion ( Wenn, dann... ), die mir das entsprechende Kommentarfenster öffnet, wenn eine der oben genannten Kürzel in Zelle A1 stehen. Ansonsten soll natürlich kein Kommentarfenster hinterlegt sein. Für jedes Feld manuell ein Kommentarfenster zu erstellen ist unglaublich aufwendig.

Kann jemand helfen???
Gruß Rene

[EbyAS]

Hallo Rene,
das geht nur mit VBA!

[Pixelfehler2]

Und wie würde das aussehen?

[Pixelfehler2]

so vereinfacht würde die Tabelle aussehen. Als Beispiel habe ich das mal manuell mit einem Kommentar versehen, wie es aussehen sollte. Nur in Zeile als eine Art Abfrage.

[MisterBurns]

Hallo Rene,

klicke mit der rechten Maustaste auf den Reiter deines Tabellenblatts und wähle "Code anzeigen". Es öffnet sich der VBA-Editor. Ins große weiße Fenster kopierst du den nachfolgenden Code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eintrag As String

If Target.Column = 1 Then
    Select Case Cells(Target.Row, 1).Value
        Case "AA"
            Eintrag = "Schulung"
        Case "BB"
            Eintrag = "Urlaub"
        Case "CC"
            Eintrag = "Krank"
        Case Else
            Eintrag = ""
    End Select
    
    Cells(Target.Row, 1).ClearComments
    If Eintrag <> "" Then
        With Cells(Target.Row, 1)
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:=Eintrag
        End With
    End If
End If
    
End Sub

[Pixelfehler2]

Hallo Berni,

bin mit dem VBA leider nicht vertraut. Habe es reinkopiert. Meine Arbeitsmappe heißt "Tabelle1" und ich möchte in Zelle A1 jetzt "AA", "BB" oder "CC" eintragen und der hinterlegte Text soll aufpoppen.Da muss ich doch sicher deinen Code auf meine Tabelle anpassen. Ich vermute mal, der Code ist dann automatisch gespeichert und sollte sich anwenden lassen?

Gruß Rene

[Pixelfehler2]

Beispiel

[EbyAS]

Hallo,

so geht es.