Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktioniert Set-Methode bei verbundenen Zellen ?

Funktioniert Set-Methode bei verbundenen Zellen ?
13.02.2008 07:24:00
Karsten
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige