Office: (Office 2010) Info einblenden wenn der Cursor über eine Zelle fährt

Hi,

was ist eine Private Sub Textfeld_284(ByVal Target As Range)? Im Ursprungscode heißt die Prozedur anders.

 

Hallo Beverly und Ulrich

Wie aus meinem vorangegangenen Eintrag zu lesen ist, verursacht der modifizierte Code probleme. In der Zwischenzeit habe ich ein bisschen herumgetüftelt und dabei festgestellt, dass dieser Code nur einmal in einem Tabellenbaltt vorhanden sein kann/darf, wie auch eine entsprechende Fehlermeldung von Excel dies meldet.

Trotzdem möchte ich, basierend oder angelehnt an diesem Code, die Funktion erweitern.

Ausgangslage: Das Excel-File verfügt über 265 weiter Tabellblätter. Die sind nummeriert von 1 bis 265. Ab der Spalte C auf der Haupttabelle mit dem Namen "Agenda" ist jede Spalte einem Tabellenblatt zugeordenent, z.B. Spalte c = Tabelle 1, Spalte D = Tabelle 2, usw. Auf jedem dieser 265 Tabellenblätter gibt es die Zellen E8 bis E13, die mit Informationen befüllt werden können.

Ziel: Ich möchte wenn ich auf der Haupttabelle mit dem Titel "Agenda" in die Zelle C16 klicke, dass die Infos in einem Textfeld angezeigt werden, die auf der Tabelle 1 in der Zelle E8 hinterlegt ist, wenn ich in der "Agenda" die Zelle D21 markiere, dann soll ein Textfeld mir die Infos aus dem Tabellenblatt 2 von der Zelle E13 anzeigen, usw.

Variante: Es ist auch möglich, dass die Infos von den Zellen E9 bis E13 aus dem der Spalte zugeordneten Tabellenblatt, z.B: in der Tabelle "Agenda" markiere ich die Zelle C16 und es werden in einem Textfeld die Infos vom Tabellenblatt 1 aus den Zellen E8 bis E13 angezeigt.

Besten Dank für eine Lösung!
Gruss CLG

 

Hallo,

warum machst du es nicht per Formelverweis, oder stehen da bereits Werte drin (in der Agenda)?

 

Hi,

weshalb dein Code nicht funktioniert, hatte ich dir schon in meinem vorhergehenden Beitrag gesagt - so etwas hatte ich nicht gepostet.

Was die Zuordnung betrifft, welche Zellinhalte bei Klick auf welche Zellen angezeigt werden sollen, das musst du schon mal genau sagen - wie soll sonst jemand Code dafür schreiben?

 

Hallo Beverly
War nicht meine Absicht dich zu ärgern oder dir etwas zu unterstellen!
Ich bin lediglich ein VBA-Anfänger mit sehr rudimentärer Ahnung darüber.

Die Zuordnung ist wie die folgende Auflistung, wobei der Name der Bezugnehmenden Tabelle nur die Zahl, eben 1 oder 10 oder 199 ist und nicht wie nachstehend aufgeführt "Tabelle1":
Agenda C16 = Tabelle1 E8
Agenda C17 = Tabelle1 E9
Agenda C18 = Tabelle1 E10
Agenda C19 = Tabelle1 E11
Agenda C20 = Tabelle1 E12
Agenda C21 = Tabelle 1 E13

Agenda D16 = Tabelle2 E8
Agenda D17 = Tabelle2 E9
Agenda D18 = Tabelle2 E10
Agenda D19 = Tabelle2 E11
Agenda D20 = Tabelle2 E12
Agenda D21 = Tabelle2 E13

Agenda E16 = Tabelle3 E8
Agenda E17 = Tabelle3 E9
Agenda E18 = Tabelle3 E10
Agenda E19 = Tabelle3 E11
Agenda E20 = Tabelle3 E12
Agenda E21 = Tabelle3 E13

Agenda JG16 = Tabelle265 E8
Agenda JG17 = Tabelle265 E9
Agenda JG18 = Tabelle265 E10
Agenda JG19 = Tabelle265 E11
Agenda JG20 = Tabelle265 E12
Agenda JG21 = Tabelle265 E13

Die Spalte JG in der Tabelle Agenda ist die letzte für diese Datei relevante Spalte wie auch die Tabelle 265 die letzte relevante Tabelle.

Nun hoffe ich dass ich meinen Wunsch etwas präziser beschrieben habe?

Beste Grüsse
CLG

 

Hi,

die Aufgabe ist, dass bei Klick in eine Zelle in einem bestimmten Bereich eine TextBox angezeigt werden soll - dafür ist das Worksheet_SelectionChange-Ereignis zuständig (kein anderes). *wink.gif*

Mir ist noch nicht ganz klar, ab die Zahlen 1 bis 99 der Tabellenindext ist (also die Reihenfolge in der Arbeitsmappe) oder der Name des Tabellenblattes, der auf dem Tabellenreiter steht. Ich bin jetzt mal davon ausgegangen, dass es der Tabellenname ist:

Code:

 

Hi Beverly

Ok, habe ich verstanden!
Du liegst richtig mit deiner Annahme, dass es der Name des Tabellenblatts ist. Insgesamt gibt es 265 Nummerierte Tabellenblätter. Leider kann ich deinen Code nicht gleich ausprobieren, die Excel-Datei ist im Geschäft. Aber am Montag werde ich das gleich ausprobieren!
Mit meinen eingeschränkten VBA Kenntnissen, wage ich zu behaupten, dass dieser Code meinen Wunsch erfüllt!
Ich bin total überrascht, dass der Code so schlank ist! Ich habe mir da bereits ein riesen Monster mit unzähligen Zeilen vorgestellt.
Vorerst besten Dank und ein schönes WE
CLG

 

Hi Beverly

Ich habe mir eine Beispieldatei gemacht und deinen Code ausprobiert.
Wie erwartet funktioniert er einwandfrei! Super Sache!

Eine Frage habe ich aber trotzdem dazu: Es besteht ja schon ein Code "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" wie im Post #10 abgebildet. Wenn ich nun aber beide Codes im Tabellenblatt "Agenda" einfüge, erhalte ich die Fehlermeldung: Fehler beim Kompilieren: Mehrdeutiger Name: Worksheet_SelectionChange.

So wie ich das interpretiere, kann es nur ein solcher Code je Tabellenblatt haben? Besteht die Möglichkeit, dass beide zusammengefasst werden können?

Beste und sonnige Grüsse
CLG

 

Hi,

du hast das richtig verstanden - es gibt nur 1 SelectionChange-Ereignis pro Tabellenblatt, folglich musst du beide in dieselbe Prozedur integrieren. Dazu benutzt man dann ElseIf (also die andere If-Bedingung):

Code:

 

Guten Tag Beverly

Du bist einfach Spitze! Das Funktioniert ausgezeichnet!

Nur einen kleinen kosmetischen Eingriff ist noch notwendig:
In meiner Excel-Datei hat das Textfeld der ersten SelectionChange die Bezeichnung Textfeld 272. Das Textfeld für das zweite SelectionChange hat die Bezeichnung Textfeld 284.

Wenn ich nun beide Textfelder offen habe, dann bleibt das Texfeld 284 immer sichtbar und verschwindet nicht mehr. Nur das Textfeld 272 verschwindet. Zudem bleiben auch beide Textfelder sichtbar, wenn ich eine Zelle aus der Zeile 33 markiere.

In der zwischenzeit habe ich ein wenig probiert und habe mit folgender Ergänzung eine Verbesserung erziehlen können

PHP:

         Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' falls im Bereich C33:JG33 geklickt wird
If Not Intersect(Target, Range("C33:JG33")) Is Nothing Then
' bezogen auf das Textfeld
With ActiveSheet.Shapes("Textfeld 272")
' einblenden
.Visible = True
' Oberkante=Oberkante der geklickten Zelle
.Top = Target.Top
' linke Kante=linke Kante der rechten Nachbarzelle
.Left = Target.Offset(0, 1).Left
End With
ElseIf Not Intersect(Target, Range("C16:JG21")) Is Nothing Then
' bezogen auf das Textfeld
With ActiveSheet.Shapes("Textfeld 284")
' Textboxinhalt löschen
.DrawingObject.Text = ""
' einblenden
.Visible = True
' Oberkante=Oberkante der geklickten Zelle
.Top = Target.Top
' linke Kante=linke Kante der rechten Nachbarzelle
.Left = Target.Offset(0, 1).Left
' Textbox mit Inhalt aus relevantem Tabellenblatt Bereich E8:E13 füllen in
' Abhängigkeit von Spalte (= Tabellenname) und Zeile
.DrawingObject.Text = Worksheets(CStr(Target.Column - 2)).Cells(Target.Row - 8, 5)
End With
' falls außerhalb des Bereichs
Else
' wenn Textfeld sichtbar dann ausblenden
If ActiveSheet.Shapes("Textfeld 284").Visible Then _
ActiveSheet.Shapes("Textfeld 284").Visible = False

If ActiveSheet.Shapes("Textfeld 272").Visible Then _
ActiveSheet.Shapes("Textfeld 272").Visible = False
End If
End Sub


 

Hi,

Frage: weshalb verwendest du 2 unterschiedliche Textfelder?

 

Hallo Beverly,

Weil im Textfeld 272 immer die selbe Info drin steht, also eine Art Anweisung. Im Textfeld 284 wird der Inhalt dynamisch aus den jeweiligen Tabellenblätter abgerufen.

CLG

 

Hallo Karin

Du hattest mir zu diesem Thema bereits ordentlich unter die Arme gegriffen und konntest mein Problem lösen!
Nun habe ich zu diesem Thema aber noch eine Anschlussfrage, die du mir hoffentlich auch noch beantworten könntest?

Wie erreiche ich es, dass das Textfeld immer in jener Spalte in der 1 Zeile angezeigt wird, wenn ich eine Zelle im Bereich B8:NC16 markiere?

Vielen Dank für diese Ergänzende Antwort!

Beste Grüsse
CLG

 

Hi,

nach diesem Prinzip:

Code:

 

Guten Tag Karin

Wenn ich den Code mit diesen Parametern laufen lasse, dann wird das Textfeld zwar eingeblendet, aber immer unmittelbar an die neben der selektierten Zelle angrenzende Zelle. Soweit klappt dies ja.
Was ich aber gerne erreichen möchte ist, wenn ich zum Beispiel die Zelle X16 selektiere, dann soll das Textfeld an die Zelle X1 angefügt werden oder Y1, wenn ich die Zelle K8 selektiere, dann soll das Textfeld an die Zelle K1 oder L1 angefügt werden.

Beste Grüsse
CLG