Makrostart über Formel
Hajo_Zi
herzlichen Dank für den Tipp!
Viele Grüße,
TCO
herzlichen Dank für den Tipp!
Viele Grüße,
TCO
TCO
Worksheets(Nummer des Worksheets)
Cells(Spaltenzahl, Zeilenzahl)
> 10 kann auch durch ="Text" ersetzt werden.
Wenn man weitere Prüfungen einbauen will, kommen diese in den selben Private Sub, nicht in ein neues Sub:
Private Sub Workbook_Open()
If Worksheets(1).Cells(1, 1) > 10 Then MsgBox "Meldung1"
If Worksheets(1).Cells(2, 2) < 50 Then MsgBox "Meldung2"
If Worksheets(2).Cells(3, 4) = "Text" Then MsgBox "Meldung3"
End Sub
Gruß
TCO