Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Danke, aber zusätzliche Frage...

Forumthread: Danke, aber zusätzliche Frage...

Danke, aber zusätzliche Frage...
19.10.2004 17:14:12
Andre
Hallo und danke Reinhard!
Wieso funktioniert das Makro nicht wenn ichs in die persönliche Makroarbeitsmappe kopiere?
Schöne Grüße
Andre
Hi Andre,
Alt+F11, Doppelklick auf Tabellennamen.
Nachstehenden Code reinkopieren. Rechtsklick auf das Bild, Makro zuweisen---tt
Nach einem Klick aufs Bild wird das Bild zur nächsten angeklickten Zelle verschoben.
Gruß
Reinhard
Dim BildKlick As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If BildKlick = False Then Exit Sub
BildKlick = False
ActiveSheet.Shapes("Bild 1").Top = Selection.Top
ActiveSheet.Shapes("Bild 1").Left = Selection.Left
End Sub

Sub tt()
BildKlick = True
End Sub
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Reinhard Hilfe!
19.10.2004 18:01:01
Andre
Hallo Reinhard,
wenn du mal kurz Zeit findest...
Danke
Andreas
AW: Danke, aber zusätzliche Frage...
AndréL.
Hallo Namensvetter,
das ist ein Ereignis für das betreffende Sheet.
Wenn Du es in "Diese Arbeitsmappe" (persönliche) haben möchtest
muß es wie folgt lauten:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Gruß
AndréL.
Anzeige
Dankdrschön
19.10.2004 18:05:05
Andre
Servus
Vielen Dank
Anderle
noch ein Problem !!!!!
19.10.2004 19:30:41
Andre
Hallo!
Ich möchte das Makro in VBAProject (PERSONL.XLS) und dort unter Module haben.
Ist das möglich?
Schiane Griaß
Andre
AW: noch ein Problem !!!!!
Reinhard
Hi Andre,
in Personl.xls in ein Modul: 

Sub BK()
ActiveSheet.Shapes("Bild 1").Top = Selection.Top
ActiveSheet.Shapes("Bild 1").Left = Selection.Left
End Sub
im Codebereich der Tabelle deiner Mappe:
Dim BildKlick As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If BildKlick = True Then Application.Run "PERSONL.XLS!BK"
BildKlick = False
End Sub
Sub tt()
BildKlick = True
End Sub

Gruß
Reinhard
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige