HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Info in Zelle anzeigen

Forumthread: Info in Zelle anzeigen
13 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Info in Zelle anzeigen

15.11.2025 07:40:26

NicoHendrik

Guten Morgen,

ich habe die Zahlen von 1 bis 16 in den Zellen M9:NN88 eingetragen.
Nun hätte ich gerne eine Info, wenn ich auf die einzelnen Zellen klicke.
In den Zellen A1 bis 16 steht jeweils ein Text.
Diese Info möchte ich aus den Zellen A1 bis A16 holen, wenn ich auf eine Zelle wo 1 bis 16 drin steht klicke.

Zum Beispiel:
In Celle A3 steht “Hallo“. Wenn ich dann auf eine Zelle wo eine 3 drin steht klicke, soll
Die Info "Hallo" kommen.
Kann mir jemand bitte dabei helfen?

Gruß Nico

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Info in Zelle anzeigen

15.11.2025 07:55:01

RPP63
AW: Info in Zelle anzeigen

17.11.2025 11:54:11

daniel
AW: Info in Zelle anzeigen

17.11.2025 12:58:30

NicoHendrik
AW: Info in Zelle anzeigen

18.11.2025 02:58:19

NicoHendrik
AW: Info in Zelle anzeigen

18.11.2025 03:09:03

NicoHendrik
AW: Info in Zelle anzeigen

17.11.2025 14:11:38

daniel
AW: Info in Zelle anzeigen

15.11.2025 08:33:18

NicoHendrik
AW: Info in Zelle anzeigen

15.11.2025 08:37:47

RPP63
AW: Info in Zelle anzeigen

15.11.2025 08:46:41

NicoHendrik
AW: Info in Zelle anzeigen

17.11.2025 14:30:55

Uduuh
AW: Info in Zelle anzeigen

17.11.2025 15:29:08

NicoHendrik
AW: Info in Zelle anzeigen

15.11.2025 08:51:53

RPP63
AW: Info in Zelle anzeigen

15.11.2025 09:28:08

NicoHendrik

AW: Info in Zelle anzeigen

15.11.2025 07:55:01

RPP63

Moin!
Zum Beispiel so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Intersect(Range("M9:NN88"), Target) Is Nothing Then Exit Sub

  If Target.CountLarge > 1 Then Exit Sub

  

  MsgBox Cells(Target, 1)

End Sub

Gruß Ralf

AW: Info in Zelle anzeigen

17.11.2025 11:54:11

daniel

Hi

du kannst auch statt der Messagebox auch die Datenüberprüfung verwenden, um eine Info anzuzeigen.
die hätte den Vorteil dass man sie nicht wegklicken muss:

Erweitere das Makro von Ralf mal so

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Range("M9:NN88"), Target) Is Nothing Then Exit Sub

If Target.CountLarge > 1 Then Exit Sub

If Target > 0 And Target  17 Then

    With Target.Validation

       .Delete

       .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween

       .IgnoreBlank = True

       .InCellDropdown = True

       .InputTitle = ""

       .ErrorTitle = ""

       .InputMessage = Cells(Target.Value, 1).Value

       .ErrorMessage = ""

       .ShowInput = True

       .ShowError = True

    End With

Else

   Target.Validation.Delete

End If

End Sub

AW: Info in Zelle anzeigen

17.11.2025 12:58:30

NicoHendrik

Daniel vielen Dank,

wie kann ich diese Infobox sowie die Schrift etwas größer machenß

Gruß Nico

AW: Info in Zelle anzeigen

18.11.2025 02:58:19

NicoHendrik

Guten Morgen Daniel,

ohne das ich was geändert habe, kommt heute Morgen die Meldung Laufzeitfehler 1004, wenn ich auf eine Zelle klicke?

Gruß Nico

AW: Info in Zelle anzeigen

18.11.2025 03:09:03

NicoHendrik

Hallo Daniel,

der Fehler ist weg, wenn ich Datenüberprüfung öffne und ohne was ein zu geben mit Ok wieder schliesse.

Gruß Nico

AW: Info in Zelle anzeigen

17.11.2025 14:11:38

daniel

Keine Ahnung. Die Box passt sich immer an den Text an. Schriftart und Größe kannst du vermutlich irgendwo in der Windows-Systemsteuerung einstellen.

Alternativ kannst du auch ein Textfeld erstellen (Grafikelement), welches du dann mit dem Text aus der Zelle befüllst und neben der Zelle platzierst.
Das kannst du auch vorab erstellen und formatieren, dann muss das Makro nur Position und Text ändern.

AW: Info in Zelle anzeigen

15.11.2025 08:33:18

NicoHendrik

Hallo Ralf,

soweit ganz gut, nur wenn ich auf eine leere Zelle klicke (nicht immer sind die Zellen mit 1 bis 16 belegt) Debuggt er bei MsgBox Cells(Target, 1)

Nico

AW: Info in Zelle anzeigen

15.11.2025 08:37:47

RPP63

Dann frage zusätzlich den Inhalt ab:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Intersect(Range("M9:NN88"), Target) Is Nothing Then Exit Sub

  If Target.CountLarge > 1 Then Exit Sub

  If Target > 0 And Target  17 Then MsgBox Cells(Target, 1)

End Sub

AW: Info in Zelle anzeigen

15.11.2025 08:46:41

NicoHendrik

Leider Debuggt er immer noch, und wenn ich die MsgBox mit Ok Quittiere erscheint sie noch einmal.

AW: Info in Zelle anzeigen

17.11.2025 14:30:55

Uduuh

Hallo,
oder du fügst die Info als Kommentar in die Zelle ein.
z.B.

Private Sub Worksheet_Change(ByVal Target As Range)

  If Intersect(Range("M9:NN88"), Target) Is Nothing Then Exit Sub

  If Target.CountLarge > 1 Then Exit Sub

  Select Case Target

    Case 1 To 16

      With Target

        If .Comment Is Nothing Then

          .AddComment

        End If

        With .Comment

          .Visible = False

          .Text Text:=Cells(Target.Value, 1).Value

          With .Shape.DrawingObject.Font

            .Name = "Arial"

            .Bold = False

            .Size = 12

          End With

        End With

      End With

    Case Else

      If Not Target.Comment Is Nothing Then Target.Comment.Delete

  End Select

End Sub

Gruß aus'm Pott
Udo

AW: Info in Zelle anzeigen

17.11.2025 15:29:08

NicoHendrik

Danke Udo,

ich lass es bei Daniels Vorschlag. Ich hab die Datei jetzt auf einen Windows Rechner geladen und da sieht die Infobox wesentlich besser aus, als ob Xcel für Mac.

Gruß Nico

AW: Info in Zelle anzeigen

15.11.2025 08:51:53

RPP63

Bei mir debuggt nix.
https://www.herber.de/bbs/user/179632.xlsm

AW: Info in Zelle anzeigen

15.11.2025 09:28:08

NicoHendrik

Danke Ralf,

war mein Fehler. Klappt jetzt prima.

Gruß Nico

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!