Kommentar/ Info, abhängig von DropDown auswahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hey Karin,
sry hätte ich gleich machen sollen. Hab jetzt mal eine Beispieldatei gemacht, denn die tatsächliche ist zu Umfangreich und keiner würde den Sinn verstehen! Dennoch der Aufbau in meiner Datei ist gleich.
https://www.herber.de/bbs/user/88414.xlsx
Also wie gesagt wenn ich oben einen Verein auswähle, möchte ich gerne durch einen Klick/Doppelklick auf das Feld Trainer, Erfolge, Stadion, Gründungsjahr die entsprechenden Informationen eingeblendet bekommen und dann wieder weg klicken. Einfach Sverweis - Funktion, die dauerhaft alles anzeigt ist nicht gewünscht von mir.
Hoffe es wird dir nun klarer mit denn Zellbezügen.
Entschuldige bitte, dass ich es dir so kompliziert mach.
Gruß Andi

Hi Andi,
hier der Code mit Kommentaren:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range         ' Schleifenvariable
Dim rngAnzeige As Range       ' Suchvariable für Tabelle2 Spalte A
Dim intSpalte As Integer      ' fortlaufende Variable für Spalte Trainer, Erfolge usw. in  _
Tabelle2
Dim strText As String         ' Variable für Inhalt Spalte Trainer, Erfolge usw. in Tabelle2
intSpalte = 2                 ' Startspalte in Tabelle2
' Eingabezelle ist A1
If Target.Address(False, False) = "A1" Then
' Schleife über alle Zellen
For Each rngZelle In Range("A3:A6")
' Zelle hat bereits Kommentar dann löschen, damit später neuer Kommentar hinzugefügt  _
werden kann
If Not rngZelle.Comment Is Nothing Then rngZelle.Comment.Delete
Next rngZelle
' Suche in Spalte Tabelle2 nach ausgewähltem Inhalt DorpDown-Listenfeld
Set rngAnzeige = Worksheets("Tabelle2").Columns(1).Find(Target, lookat:=xlWhole)
' Eintrag wurde gefunden
If Not rngAnzeige Is Nothing Then
' Schleife über alle Zellen
For Each rngZelle In Range("A3:A6")
' Inhalt laufende Spalte in gefundener Zeile auf Variable schreiben
strText = Worksheets("Tabelle2").Cells(rngAnzeige.Row, intSpalte).Value
With rngZelle
.AddComment                   ' Kommentar hinzufügen
.Comment.Text Text:=strText   ' Kommentartext erstellen aus Variablen-Inhalt
.Comment.Visible = False      ' Kommentar nicht sichtbar
End With
intSpalte = intSpalte + 1        ' Spaltennummer um 1 erhöhen
strText = ""                     ' Variable leeren
Next rngZelle
Else
MsgBox "Nicht gefunden"
End If
End If
End Sub

Da die Anzahl Zellen in A3:A6 der Spaltenanzahl in Tabelle2 entspricht, in denen die betreffenden Angaben stehen, und die Reihenfolge die selbe ist, kann man dies jewels über die Erhöhung um 1 der Spaltenvariablen intSpalte (beginnend ab Spalte B = 2) machen. Sollte das nicht der Fall sein, müsste man mit einer weiteren Variablen erst die Spalte suchen, in der der gefragte Eintrag steht.
Fall etwas unklar ist - einfach nochmal nachfragen.

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range ' Schleifenvariable Dim rngAnzeige As Range ' Suchvariable für Tabelle2 Spalte A Dim rngSpalte As Range ' Variable für Spaltensuche in Tabelle2 Dim strText As String ' Variable für Inhalt Spalte Trainer, Erfolge usw. in Tabelle2 ' Eingabezelle ist A1 If Target.Address(False, False) = "A1" Then ' Schleife über alle Zellen For Each rngZelle In Range("A3:A6") ' Zelle hat bereits Kommentar dann löschen, ' damit später neuer Kommentar hinzugefügt werden kann If Not rngZelle.Comment Is Nothing Then rngZelle.Comment.Delete Next rngZelle ' Suche in Spalte A Tabelle2 nach ausgewähltem Inhalt DropDown-Listenfeld Set rngAnzeige = Worksheets("Tabelle2").Columns(1).Find(Target, lookat:=xlWhole) ' Eintrag wurde gefunden If Not rngAnzeige Is Nothing Then ' Schleife über alle Zellen For Each rngZelle In Range("A3:A6") ' Zellinhalt ist nicht "Stadion" If rngZelle "Stadion" Then ' Suche in Zeile 1 Tabelle2 nach dem Inhalt _ ' der laufenden Zelle (Trainer, Erfolge usw.) Set rngSpalte = Worksheets("Tabelle2").Rows(1).Find(rngZelle, lookat:=xlWhole) ' Inhalt der gefundenen Spalte in gefundener Zeile auf Variable schreiben If Not rngSpalte Is Nothing Then strText = _ Worksheets("Tabelle2").Cells(rngAnzeige.Row, rngSpalte.Column).Value With rngZelle .AddComment ' Kommentar hinzufügen .Comment.Text Text:=strText ' Kommentartext erstellen aus Variablen-Inhalt .Comment.Visible = False ' Kommentar nicht sichtbar End With End If strText = "" ' Variable leeren Next rngZelle Else MsgBox "Nicht gefunden" End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZelle As Range ' Schleifenvariable Dim rngAnzeige As Range ' Suchvariable für Tabelle2 Spalte A Dim rngSpalte As Range ' Variable für Spaltensuche in Tabelle2 Dim strText As String ' Variable für Inhalt Spalte Trainer usw. in Tabelle2 ' Eingabezelle ist C4 und Auswahl Verein auswählen! If Target.Address(False, False) = "C4" And Target "Verein auswählen!" Then ' Bezug auf Tabelle1 With Worksheets("Tabelle1") ' Schleife über alle Zellen For Each rngZelle In .Range("A3:A6") ' Zelle hat bereits Kommentar dann löschen, ' damit später neuer Kommentar hinzugefügt werden kann If Not rngZelle.Comment Is Nothing Then rngZelle.Comment.Delete Next rngZelle End With ' Suche in Spalte A Tabelle2 nach ausgewähltem Inhalt DropDown-Listenfeld Set rngAnzeige = Worksheets("Tabelle2").Columns(1).Find(Target, lookat:=xlWhole) ' Eintrag wurde gefunden If Not rngAnzeige Is Nothing Then ' Schleife über alle Zellen in Tabelle1 With Worksheets("Tabelle1") For Each rngZelle In .Range("A3:A6") ' Zellinhalt ist nicht "Stadion" If rngZelle "" Then ' Suche in Zeile 1 Tabelle2 nach dem Inhalt _ ' der laufenden Zelle (Trainer, Erfolge usw.) Set rngSpalte = Worksheets("Tabelle2").Rows(1).Find(rngZelle, lookat:=xlWhole) _ ' Inhalt der gefundenen Spalte in gefundener Zeile auf Variable schreiben If Not rngSpalte Is Nothing Then strText = _ Worksheets("Tabelle2").Cells(rngAnzeige.Row, rngSpalte.Column).Value With rngZelle .AddComment ' Kommentar hinzufügen .Comment.Text Text:=strText ' Kommentartext erstellen aus Variablen- _ Inhalt .Comment.Visible = False ' Kommentar nicht sichtbar End With End If strText = "" ' Variable leeren Next rngZelle End With Else MsgBox "Nicht gefunden" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Kommentar/ Info, abhängig von DropDown auswahl

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kommentar/ Info, abhängig von DropDown auswahl

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread