Hallo...
habe Zellen A1 und A2 verbunden. Nun funktioniert unten stehender Befehl nicht mehr.
Set r1 = Cells(1, 1).Find("aaa")
If Not r1 Is Nothing Then
Application.Run "Colorindex"
End
End If
Kann mir jemand weiterhelfen?
Besten Dank
Karsten
AW: Funktioniert Set-Methode bei verbundenen Zellen ?
13.02.2008 09:02:00
Luschi
Hallo Karsten,
so sollte es funktionieren:
Set r1 = Cells(1, 1).MergeArea.Offset(0,0).Find("aaa")
Gruß von Luschi
aus klein-Paris
AW: Funktioniert Set-Methode bei verbundenen Zelle
13.02.2008 11:51:50
Karsten
Hallo Luschi,
danke, aber es geht doch nicht.
Bei folgender Methode müsste doch entweder bei "aaa" oder "bbb" der Application.Run "Colorindex" - Befehl ausgeführt werden.
Set r1 = Cells(1, 1).MergeArea.Offset(0,0).Find("aaa")
If Not r1 Is Nothing Then
Application.Run "Colorindex"
End
End If
Set r2 = Cells(1, 1).MergeArea.Offset(0,0).Find("bbb")
If Not r2 Is Nothing Then
Application.Run "Colorindex"
End
End If
Wird die verbundene Zelle doch noch nicht erkannt?
Gruß
Karsten
Anzeige
AW: Funktioniert Set-Methode bei verbundenen Zelle
13.02.2008 16:25:30
Gerd
Hallo Karsten,
probier mal.
If InStr(Cells(1, 1).Text, "aaa") + InStr(Cells(1, 1).Text, "bbb") > 0 Then
Stop
End If
Gruß Gerd