Re: Prüfen über Makro
17.09.2002 14:35:11
Ingo
Hallo Heinz, es gibt in zwei Blättern in der Mappe die beiden Makros- siehe unten. Darf ich evtl. die Option Explicit oder Worksheet_Change nur einmal pro Mappe benutzen ?
Gibt es eine andere Möglichkeit eine Kontrolle auf einem Blatt - Automatisch zu starten ?#################################################
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("J2").Value > 1 Then Infomakro1
End Sub
Sub Infomakro1()
MsgBox "haha", vbCritical
End Sub
##########################################
Option Explicit
'*** Eingabekontrolle ***
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Wenn die Eingabezelle nicht A1 ist, Sub verlassen
If Target.Address <> "$B$37" Then Exit Sub
' Wenn der Eingabewert nicht numerisch ist, Sub verlassen
If IsNumeric(Target) = False Then Exit Sub
' Prüfung, welcher Wert eingegeben wurde
Select Case Target
' Wenn eine 1 eingegeben wurde, Makro1 aufrufen
Case 10: Call Endeinfo
End Select
End Sub
Sub Endeinfo()
Dim Msg As String
Msg = "Das Monatsende ist fast erreicht oder erreicht !" & vbCr & "Bitte denken Sie an die Monatsabrechnung." & vbCr & "" & vbCr & "INPULS" & vbCr & "" & vbCr & ""
MsgBox Msg, vbInformation Or vbOKOnly, "Ingo"
End Sub
#################
Gruß Ingo