Microsoft Excel

Herbers Excel/VBA-Archiv

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

Makro

Betrifft: Makro von: Michael Suske
Geschrieben am: 02.10.2007 16:32:29

Hallo ,

kann mir jemand helfen? Ich möchte, dass ein Makro aktiviert wird, wenn in einer Bestimmten Zelle, sagen wir A1, ein Wert größer als 0 steht.

MfG Susison

  

Betrifft: AW: Makro von: Andi
Geschrieben am: 02.10.2007 16:34:27

Hi,

wird der Wert in die Zelle eingegeben, oder per Formel berechnet?

Schönen Gruß,
Andi


  

Betrifft: Code bei Änderung in A1 von: Matthias L
Geschrieben am: 02.10.2007 17:43:21

Hallo,

In die entsprechende Tabelle


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
  If Not IsNumeric(Target) Then Exit Sub 'erwartet Zahl, sonst Abbruch
      If Target > 0 Then
        MsgBox "Wert in A1 = größer Null"  'anstatt der Box Deinen Code einfügen
      End If
  
  End If
End Sub








  

Betrifft: AW: Code bei Änderung in A1 von: Michael Suske
Geschrieben am: 04.10.2007 08:09:15

Hallo Matthias L.,

hat einwandfrei funktioniert, danke. Kannste mir eventuell die Formel auch so gestalten, das in der Zelle A1 irgend ein Wort stehen muß, um das Macro auszulösen?