Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische Makroaktivierung

automatische Makroaktivierung
19.09.2004 20:37:01
pearser
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Makroaktivierung
19.09.2004 20:58:07
Matthias
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
AW: automatische Makroaktivierung
ransi
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige