es scheint, dass ich mir (als Anfänger) etwas zu leicht vorgestellt habe. Ich habe in Zeile 1, Spalte 1 bis 5 eine verbundene Zelle und wollte hier den Wert "ABC" auslesen.
Mein Versuch führte zu einem Fehler ("Typen unverträglich").
Option Explicit
Sub verbundeneZelle()
Dim bereich As Range
Dim zelle As Range
With ActiveSheet
Set bereich = Range(Cells(1, 1), Cells(1, 5))
For Each zelle In bereich
If InStr(bereich, "ABC") > 0 Then MsgBox ("ABC gefunden")
Next zelle
End With
End Sub
Wer könnte mir hier einen Tipp geben?Vielen Dank.
Grüße, Constantin