---

Hallo,
ich möchte die Adresse der in Excel selektierten Zellen zugreifen.
Folgender Code läuft noch nicht durch.
Wo liegt der Fehler?

Code:

---

Option Explicit

Sub CATMain()
    Dim xlApp As Application
    Dim xlBook As Workbook
    Dim xlSheet As Worksheet
    Dim sXlSelection As String
    Dim xlSelection As Selection

Set xlApp = GetObject(,"Excel.Application")
Set xlBook = xlApp.ActiveWorkbook
'MsgBox "xlBook.Name: " & xlBook.Name
Set xlSheet = xlBook.ActiveSheet
MsgBox "xlSheet.Name: " & xlSheet.Name
Set xlSelection = xlSheet.Selection 'Hier steigt dieses Makro aus

sXlSelection = xlSelection.Address

MsgBox "sXlSelection: " & sXlSelection

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Da es bei Catia und Excel eine Objket Selection gibt, kommt vermutlich die Fehlermeldung.
Du könntest a) die Selection als Object deklarieren oder b) die Bibliothek (Excel) mit angeben.

Gruß
Bernd

PS: Gehört die Selection in Excel wirklich zum Worksheet, oder eher zur Application?

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es ist soooo einfach, wenn man es richtig macht.
Selection gehört zur Application.

Code:

---

Option Explicit

Sub CATMain()
    Dim xlApp As Application
    Dim sXlSelection As String
    Dim xlSelection As Object ' Selection

Set xlApp = GetObject(,"Excel.Application")
Set xlSelection = xlApp.Selection

sXlSelection = xlSelection.Address

MsgBox "sXlSelection: " & sXlSelection

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Folgefrage:
Wie komme ich an das R1C1-Format ran?
So wie in Excel geht es nicht:

Code:

---

sXlSelection = xlSelection.Address(ReferenceStyle:=xlR1C1)

---

Catia stört sich offenbar an :=
Und wenn ich den Doppelpunkt raus nehme, ist ReferenceStyle nicht definiert.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Ich vermute, da du die Excel-Selection nicht "richtig" deklariert hast musst du: den ReferenceSytle als 3. Parameter angeben (siehe hier) und den ggf den Wert als nummerischen Wert angeben (siehe hier)
zB (ungetestet): sXlSelection = xlSelection.Address(,,-4150,)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Bernd. Fast getroffen

Code:

---

sXlSelection = xlSelection.Address(,,-4150)

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP