automatische Makroaktivierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Mario,
Du musst Dein Makro lediglich als Ereignisprozedur in einer Tabelle oder (falls Du es in verschiedenen Sheets benötigst) im Workbook definieren.
Angenommen, Dein Makro sieht so aus (etwas verkürzt ;-)):
Sub Marios_Makro()
msgbox "Hallo Mario"
End Sub
1.
Klicke im VBA Editor doppelt auf die Tabelle, in der das Makro laufen soll.
2.
Kopiere diesen Code


Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

in das Codefenster (oder selektiere aus den beiden über dem Codefenster Listen "Worksheet" und "Change".
3.
Kopiere Deinen Makrocode (ohne "Sub ..." und "End Sub ") zwischen die zwei Zeilen.


Private Sub Worksheet_Change(ByVal Target As Range)
msgbox "Hallo Mario"
End Sub

Das Makro wird jetzt jedes mal ausgeführt, wenn sich der Inhalt einer Zelle auf diesem Sheet ändert.
Falls es nur laufen soll, wenn die Änderung in bestimmten Zellen vorgenommen wurde, kannst Du darauf vorher abfragen. Z.B. so:


Private Sub Worksheet_Change(ByVal Target As Range)
' Beispiel für Zelle D2 in verschiedenen Variationen
If Target.Row = 2 And Target.Column = 4 Or _
Target.Address = "$D$2" Then
' hier Marios Makrocode
End If
End Sub

CIAO
Michael

Hallo Mario,
unter der Voraussetzung, dass Du den Spinbutton nicht über die "Formulare" Toolbox, sondern über die "Steuerelemente" Toolbox hinzugefügt hast (bei "Formulare" heißt er normalerweise "Drehfeld 1", bei Steuerelemente "SpinButton1", funktionierts. Sollte der Button kein "Steuerelement" sein, musst Du ihn noch einmal löschen und neu anlegen.
Bei mir sieht der Code dann so aus:


Private Sub SpinButton1_Change()
ActiveSheet.Range("$C$3").Value = SpinButton1.Value / 2
End Sub

WICHTIG !
Nicht vergessen, dass der Anwender ja auch einen Wert in die Zelle eintragen kann. Daher muss in diesem Falle der SpinButton aktualisiert werden:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then SpinButton1.Value = Target.Value * 2
End Sub

Jetzt solltest Du eigentlich nur noch die Adresse der Zelle anpassen müssen und es sollte funktionieren.
CIAO
Michael

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatische Makroaktivierung

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread