Wandernde Grafik

Forumthread: Wandernde Grafik
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Wandernde Grafik

Wandernde Grafik

13.03.2025 13:15:29

Carry

Hallo zusammen,

Ich brauche mal wieder euer Wissen:

Ich habe eine Exceltabelle in den Spalten A-C Kalenderwoche, Wochentag und Datum steht in den Spalten D-F kann man sich mit Namen eintragen.
Die Tabelle ist für ein Jahr, hat also 365 Zeilen.
Neben der Tabelle erfolgt die Auswertung wer sich wie oft eingetragen hat.
Gibt es eine Möglichkeit, die Auswertung die als Verknüpfte Grafik eingefügt ist mitwandern zu lassen, sodass sie immer im sichtbereich ist?
Mit Fixierung oberhalb klappt leider nicht da zu viele Mitarbeiter vorhanden sind.
Gerne nutze ich auch eine Lösung, mit Buttons auf die man draufklicken kann und die Grafik wandert dann immer weiter nach unten oder oben.

Vielen Dank schon mal für eure mithilfe!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wandernde Grafik

13.03.2025 13:26:27

daniel
AW: Wandernde Grafik

13.03.2025 20:18:28

Piet
AW: Wandernde Grafik

25.03.2025 11:57:02

Carry

AW: Wandernde Grafik

13.03.2025 13:26:27

daniel

Hi

der Code um die Grafik immer oben rechts anzeigen zu lassen, wäre

With ActiveSheet.Shapes(..) 'hier Name oder Indexnummer der Grafik ergänzen:

.Top = ActiveWindow.VisibleRange.Top

.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width

End with

das kannst du als Makro schreiben und dann einem Button zuweisen, oder du löst es automatisch über das SelectionChange-Event aus

wenn die Liste relativ einfach ist (Name, Anzahl)
dann könntest du auch eine Userform erstellen und die Tabelle dort in einer Listbox anzeigen lassen, welche du über RowSource mit der Auswertetabelle verknüpfst
die Userform kannst du beliebig auf dem Bildschirm platzieren, auch außerhalb des Excelfensters.

Gruß Daniel

AW: Wandernde Grafik

13.03.2025 20:18:28

Piet

Hallo

interessante Lösung, ich habe einen andere Idee gewählt, geht auch über SelectionChange.
Meine Lösung setzt eine Zeilenhöhe von 12,75 voraus, sonst muss man diese Zahl ändern.

mfg Piet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'ActiveSheet.ListBoxes(1).Top = _

(ActiveCell.Row - 1) * 12.75   'Zeilenhöhe 12.75 !!

End Sub