Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

automatische Makroaktivierung

Betrifft: automatische Makroaktivierung von: pearser
Geschrieben am: 19.09.2004 20:37:01

Hallo!

Folgendes:
in Zelle A1 wird ein Wert eingegeben, bzw. in Zelle A1 wird ein Wert einer Operation ausgegeben.
Je nach Wert, soll ein anderes Makro ausgeführt werden.
Beispiel:
A1=1 dann Makro 1 ausführen
A1=2 dann Makro 2 ausführen
usw.

Kann mir da einer helfen. Vielen Dank im vorraus

Gruß

pearser

  


Betrifft: AW: automatische Makroaktivierung von: Matthias G
Geschrieben am: 19.09.2004 20:58:07

Hallo Pearser oder wie du in echt heißt,

ins Codemodul des Blattes dieses Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 1 Then
    Makro1
ElseIf Target.Value = 2 Then
    Makro2
End If
End If
End Sub
und in ein allgemeines Modul dann z.B.:
Sub Makro1()
MsgBox "Hallo, Hier Makro1"
End Sub
Sub Makro2()
MsgBox "Hallo, Hier Makro2"
End Sub
Gruß Matthias


  


Betrifft: AW: automatische Makroaktivierung von: ransi
Geschrieben am: 19.09.2004 21:03:29

Option Explicit

hallo pärser
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = 1 Then makro1
If [a1] = 2 Then makro2
End Sub

Public Sub makro1()
MsgBox "Ich bin Makro 1"
End Sub
Public Sub makro2()
MsgBox "Ich bin Makro2"
End Sub
ransi


 

Beiträge aus den Excel-Beispielen zum Thema "automatische Makroaktivierung"