InStr aus verbundener Zelle auslesen
26.01.2013 10:32:34
Constantin
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
Vielen Dank.
Grüße, Constantin