Microsoft Excel

Herbers Excel/VBA-Archiv

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

Zelleninhalt vergleichen

Betrifft: Zelleninhalt vergleichen von: Flo
Geschrieben am: 18.08.2004 10:36:26

Hi an alle.
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

  


Betrifft: AW: Zelleninhalt vergleichen von: Micha
Geschrieben am: 18.08.2004 10:43:06

So sollte das klappen...

Private Sub Makro_Click()
    'On Error Resume Next
    
    If Sheets("Sheet1").Cells(1, 1).Value = "18" 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


Mfg Micha


  


Betrifft: AW: Zelleninhalt vergleichen von: Flo
Geschrieben am: 18.08.2004 10:50:00

Danke


 

Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalt vergleichen"