Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

MsgBox wenn Wert x vorhanden

Betrifft: MsgBox wenn Wert x vorhanden von: Tom
Geschrieben am: 07.09.2020 07:11:27

Guten Morgen Forengemeinde,

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

Betrifft: Es fehlt ein Punkt owT
von: Charly CNX
Geschrieben am: 07.09.2020 07:48:45



Betrifft: AW: Es fehlt ein Punkt owT
von: Tom
Geschrieben am: 07.09.2020 08:02:48

Punkt gesetzt, alles funktioniert.
Manchmal sieht man den Wald vor lauter Bäumen nicht.
Vielen Dank für deine Hilfe und einen schönen Tag noch.

Betrifft: Danke
von: Charly CNX
Geschrieben am: 07.09.2020 08:07:02



Beiträge aus dem Excel-Forum zum Thema "MsgBox wenn Wert x vorhanden"