VBA if range then else?
Wenn ich den Entfernen Button aklicke kommt die MsgBox "Da steht nicht".
Die soll aber erst kommen wenn da wirklich nichts steht.
Kann mir jemand helfen?
LG
Habe meinen eigenen Fehler bemerkt.Ich habe das Größer Zeichen anstatt das Gleich Zeichen genommen. 🤦♂️
2 Antworten
Vom Beitragsersteller als hilfreich ausgezeichnet
![](https://images.gutefrage.net/media/default/user/9_nmmslarge.png?v=1551279448000)
Sub test()
Select Case Range("A1").value
Case ""
MsgBox "Leer"
Case 0
MsgBox "0"
Case "Hallo"
Case Else
MsgBox "Was auch immer", vbOKOnly + vbExclamation
End Select
End Sub
lg
PS: oder du enderst das > auf ein =
Woher ich das weiß:Studium / Ausbildung – Abgeschlossene Ausbildung
![](https://images.gutefrage.net/media/user/Schokopudding2/1703603403987_nmmslarge__0_0_1024_1024_3ee6d102f9fff3b8eb89a9336cca61ab.png?v=1703603404000)
Ich hatte gerade meinen Fehler selber bemerkt.
Ich habe das Größer Zeichen anstatt das Gleich Zeichen genommen. 🤦♂️
![](https://images.gutefrage.net/media/user/IronofDesert/1455899178745_nmmslarge__225_581_2023_2023_1b64323f62b30c84dbe41227993c508b.jpg?v=1455899179000)
Versuche es mal mit
If IsEmpty(Tabelle1.Range("A1").Value) = True Then
![](https://images.gutefrage.net/media/user/Schokopudding2/1703603403987_nmmslarge__0_0_1024_1024_3ee6d102f9fff3b8eb89a9336cca61ab.png?v=1703603404000)
Ich hatte gerade meinen Fehler selber bemerkt.
Ich habe das Größer Zeichen anstatt das Gleich Zeichen genommen. 🤦♂️