MsgBox wenn Wert x vorhanden
07.09.2020 07:11:27
Tom
ich komme bei einem Problem nicht weiter und würde mich über eure Hilfe freuen.
Mein Problem ist folgendes:
Wenn Tabelle2 geöffnet wird soll geprüft werden ob in Tabelle1 Zelle C1 der Wert 1000 beträgt. Wenn dieses zutrifft, soll eine MsgBox erscheinen.
Innerhalb der Tabelle2 funktioniert es hervorragend mit
Private Sub Worksheet_Activate()
If Range("C1").Value = 1000 Then
MsgBox "Mein Text", vbOKOnly + vbInformation, "Hinweis"
End If
End Sub
Wo habe ich einen Fehler bei folgendem Code gemacht wenn der Wert aus Tabelle1 in Zelle C1 abgefragt werden soll?
Private Sub Worksheet_Activate()
If Worksheets("Tabelle1")Range("C1").Value = 1000 Then
MsgBox "Mein Text", vbOKOnly + vbInformation, "Hinweis"
End If
End Sub