MessageBox an Wenn-Bedingung knüpfen
25.01.2018 14:51:13
Gesa
bin ganz neu hier und versuche mich derzeit mit den Kinderfüßen der VBA-Welt.
Ich habe eine Datei, in der in Spalte "R" per Wenn-Formel das Wort "POP" steht, oder eben nicht. Ich würde gerne, sobald in einer Zeile von R irgendwo das Wort "POP" auftaucht, eine MessageBox öffnen lassen, in der der Hinweistext steht "Achtung!".
Kann mir da jemand helfen?
Ich habe mir einen Teil schon zusammen gebastelt, allerdings läuft das nur auf einer Zelle, die ich benenne. Sobald es eine andere ist, klappt der Code nicht mehr. Was muss ich anpassen?
Sub MessageBox()
Sheets("Umwandlung").Activate
If Cells(6, 18) = "POP" Then
MsgBox ("Achtung!")
End If
End Sub
Vielen Dank für die Hilfe
MfG
Gesa