Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

984to988

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

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

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Makrostart auf Klick in eine Zelle (oder m.Umweg)

Forumthread: Makrostart auf Klick in eine Zelle (oder m.Umweg)
4 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

18.06.2008 18:33:00

Claus

Hallo Spezialisten,
für eine Analyse möchte ich 9 verschiedene Makros auf anklicken von 9 verschiedenen Zellen ausführen. Das ginge ja mit 9 Rechtecken, die ich über die jeweiligen Zellen lege und denen ich die jeweiligen Makros zuordne.
Problem: Je nachdem wie die Variablen posx und posy aussehen, sollen die Schaltflächen an anderen Positionen sein. Beispiel: posx = 3, posy =4 bewirkt: Schaltfläche für Makro 1 in B3, SF f. M 2 in C3, 3 in D3, 4 in B4, 5 in C4 usw.
Gibt es da eine Lösung, dass direkt das anklicken einer definierten Zelle einen Makro startet oder kann ich ggf. Schaltflächen um x Spalten und y Zeilen verschieben?
Vielen Dank im Voraus schon mal
Claus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makrostart auf Klick in eine Zelle (oder m.Umw

18.06.2008 18:42:00

Johannes
AW: Makrostart auf Klick in eine Zelle (oder m.Umw

18.06.2008 19:25:00

Claus
AW: Makrostart auf Klick in eine Zelle (oder m.Umw

18.06.2008 20:13:02

Tino
AW: Makrostart auf Klick in eine Zelle (oder m.Umweg)

18.06.2008 18:47:25

Tino

AW: Makrostart auf Klick in eine Zelle (oder m.Umw

18.06.2008 18:42:00

Johannes

Hallo Claus,
zum Beispiel so:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case Range("B4").Address
Debug.Print "B4 geklickt"
Case Range("C3").Address
Debug.Print "C3 geklickt"
End Select
End Sub

AW: Makrostart auf Klick in eine Zelle (oder m.Umw

18.06.2008 19:25:00

Claus

Hallo Johannes,
Danke schon mal. Leider komme ich damit noch nicht klar.
Kannst du mir das mal genau beschreiben, was wie wo gemacht werden muss.
Einfaches Beispiel: Wenn ich auf C5 klicke soll es in Zelle A4 "funzt" schreiben.

AW: Makrostart auf Klick in eine Zelle (oder m.Umw

18.06.2008 20:13:02

Tino

Hallo,
Target ist die Zelle auf die du gehst.
Also entweder gehst du von Target Offset auf eine bestimmte Zelle.
Wenn Target C5 und in A4 soll der Text
Target.Offset(-1,-2)=funzt
oder direkt
Range(A4)=funzt
Gruß Tino

www.VBA-Excel.de

AW: Makrostart auf Klick in eine Zelle (oder m.Umweg)

18.06.2008 18:47:25

Tino

Hallo,
kommt ins Tabellenblatt als Code.
Vorsicht in Deinem Makro sollte kein Abbruch aller Prozeduren sein wegen sonst bleibt
Application.EnableEvents auf False!!!


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
Call meinMakro
ElseIf Not Intersect(Target, Range("A5")) Is Nothing Then
Call meinMakro1
ElseIf Not Intersect(Target, Range("A9")) Is Nothing Then
Call meinMakro2
ElseIf Not Intersect(Target, Range("A10")) Is Nothing Then
Call meinMakro3
ElseIf Not Intersect(Target, Range("A12")) Is Nothing Then
Call meinMakro4
End If
Application.EnableEvents = True
End Sub

Gruß Tino

www.VBA-Excel.de