Microsoft Excel

Herbers Excel/VBA-Archiv

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

Marko bei numerischer Zelländerung

Betrifft: Marko bei numerischer Zelländerung von: Mathias
Geschrieben am: 09.02.2008 16:58:39

Hallo Leute,

ich hoffe ihr könnt mir helfen. An dem Problem sitze ich nun schon seit heute Morgen, aber ich hab eben kein passende Idee.

Ich möchte, dass ein beliebiges Makro immer dann ausgeführt wird, wenn sich die Zelle A1 numerisch ändert.

Bsp:

  In die Zelle A1 wird "Mama" eingegeben! => nicht passiert, da nicht numerisch
  In die Zelle A1 wird "Papa" eingegeben! => nicht passiert, da nicht numerisch
  
  In die Zelle A1 wird "1" eingegeben! => Das Makro "Hallo Welt" wird ausgeführt.
  In die Zelle A1 wird "9,999" eingegeben! => Das Makro "Hallo Welt" wird ausgeführt. 



usw.

Ich hab es bisher nur hinbekommen, dass das Makro immer dann ausgeführt wird, wenn sich Zelle A1 ändert, nicht aber, wenn sich Zelle A1 nur numerisch ändert.

Könnt ihr mir weiter helfen?

Gruß
Mathias

  

Betrifft: AW: Marko bei numerischer Zelländerung von: Original Kurt
Geschrieben am: 09.02.2008 17:05:12

Hi,

frag ab, ob die Änderung numerisch ist.

 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
    If IsNumeric(Target) Then
       MsgBox "Zahl"
    End If
 End If
 End Sub



mfg Kurt


  

Betrifft: Danke! funzt von: Mathias
Geschrieben am: 09.02.2008 21:57:23

s.o.