Microsoft Excel

Herbers Excel/VBA-Archiv

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

Makro ausführen beiZelleingabe

Betrifft: Makro ausführen beiZelleingabe von: köbi
Geschrieben am: 30.08.2004 16:15:13

Hi Experten
Kann mir jemand helfen bitte.
Welchen Code brauche ich um:
bei Eingabe einer - 1 - in Zelle a1 = makro1 ausführen, Eingabe einer - 2 -
= makro 2 ausführen usw.
bei keiner eingabe = mache nichts.
Oder sind die Makros nur über Button's steuerbar?
Danke für Hilfe
köbi

  


Betrifft: AW: Makro ausführen beiZelleingabe von: ransi
Geschrieben am: 30.08.2004 16:39:05

hallo köbi

versuch mal so:
(ist aber nicht getestet)
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("a1").Address Then Exit Sub
If Target.Value = -1 Then makro1
If Target.Value = -2 Then makro2
End Sub


Public Sub makro1()
MsgBox "test makro1"
End Sub

Public Sub makro2()
MsgBox "test makro2"
End Sub

ransi


  


Betrifft: AW: Makro ausführen beiZelleingabe von: köbi
Geschrieben am: 31.08.2004 08:00:37

Hi ransi
funzt leider nicht aber dennoch danke für deine mühe

köbi


  


Betrifft: AW: Makro ausführen beiZelleingabe von: ransi
Geschrieben am: 31.08.2004 21:52:30

Hallo köbi

Beispieldatei is hier.
https://www.herber.de/bbs/user/10367.xls


ransi


  


Betrifft: AW: Makro ausführen beiZelleingabe von: köbi
Geschrieben am: 03.09.2004 10:31:52

Danke Ransi
Beispiel funzt, werde auf dieser Basis weiterproben
Gruss Köbi