Guten Morgen @all,

ich habe folgenden Code:


Sub cmd_g_EU_Klicken()
Dim strAdress As Variant
strAdress = Selection.Address

If strAdress = "" Then
MsgBox "Bitte einen Bereich auswählen", vbCritical, "Hinweis"
Exit Sub
ElseIf Range(strAdress) Is Nothing Then
Range(strAdress).Value = "EU"
Selection.Interior.Color = RGB(136, 124, 174)
Selection.Font.Color = RGB(255, 255, 255)
Else
Range(strAdress).Value = ""
End If
End Sub


Ich möchte gerne überprüfen, ob in dem ausgewählten Bereich in meiner Tabelle irgendetwas steht. Falls nicht, dann soll dem Bereich der Text "EU" übergeben werden. Nur funktioniert das nicht so mit meinem Code. Was mache ich falsch?
Und... was muss ich machen, wenn nur in einem Teilbereich des Rangebereiches etwas steht? Kann ich mir das ausgeben lassen, sozusagen als Mitteilung: "In dem markierten Bereich ist bereits... enthalten"?

Danke einstweilen.

Michel