Ich will mit einen Macro die den Inhalt von Zelle A1 auslesen. Dies ist zum Beispiel die Zahl 18. Ich habe dafür ein Button in Sheet3 und die Zelle ist in Sheet1. Wenn die Zahl 18 in A1 steht soll eine MsgBox aufpoppen und sagen das die Zahl drin ist. Und wenn es eine andere Zahl als 18 ist soll eine MSGbox ausgeben das die Zahl 18 nicht drinne steht.
Hier mein Code. Was stimmt nicht. Vielen dank für die Hilfe
Private Sub Makro_Click()
'On Error Resume Next
If Sheets("Sheet1").Cells(1, 1).Value = 18 = "18" = True Then
MsgBox "In Zelle A1 steht die Zahl 18", vbOKOnly
Else:
MsgBox "In Zelle A1 steht NICHT die Zahl 18", vbCritical
End If
End Sub