Makro ausführen wenn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Darek
'Code in Tabelle1
(wenn es nur für Tabelle1 gelten soll)
Startet das Makro (AuswahlMakro) automatisch, wenn Du in A1 etwas einträgst.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
AuswahlMakro
End If
End Sub

Willst Du, das es in jeder Tabelle ausgewertet wird, dann darf das Makro nicht in die Tabelle1, sondern
'Code in DiesArbeitmappe


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
AuswahlMakro
End If
End Sub

Wenn Du das so nicht brauchst, sondern das Makro manuell starten willst bspw. durch Klick auf
ein Button, so lassen diesen Code der Tabelle1 und / oder in DieseArbeitsmappe einfach weg.
'Code in ein Modul

Wenn Du also das Makro (AuswahlMakro) ausführst, wird der Inhalt der Zelle "A1" ausgewertet.

Steht eine "1" in der Zelle wird Makro1 ausgeführt

Steht eine "2" in der Zelle wird Makro2 ausgeführt

Steht weder die "1" noch die "2" in der Zelle, passiert nichts.


Sub AuswahlMakro()
If ActiveSheet.Cells(1, 1) = 1 Then makro1
If ActiveSheet.Cells(1, 1) = 2 Then makro2
End Sub
Sub makro1()
MsgBox "Ich bin Makro 1"
End Sub
Sub makro2()
MsgBox "Ich bin Makro 2"
End Sub

Userbild

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then AuswahlMakro Target End If End Sub Sub AuswahlMakro(ByVal Target As Range) Select Case Target Case 1: makro1 Case 2: makro2 End Select End Sub Sub makro1() MsgBox "Ich bin Makro 1" End Sub Sub makro2() MsgBox "Ich bin Makro 2" End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Select Case Target.Address Case "$A$1" Call AuswahlMakroA(Target.Value) Case "$B$1" Call AuswahlMakroB(Target.Value) Case Else 'do nothing End Select End Sub Sub AuswahlMakroA(Wert As Integer) Select Case Wert Case 0 'Kein Wert in Zelle makro3 Case 1 makro1 Case 2 makro2 Case Else 'do nothing MsgBox "Eingabewert löst keine Aktion aus!" End Select End Sub Sub AuswahlMakroB(Wert As Integer) Select Case Wert Case 0 'Kein Wert in Zelle makro3 Case 1 makro1 Case 2 makro2 Case Else 'do nothing MsgBox "Eingabewert löst keine Aktion aus!" End Select End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread