---

Der folgende Code liest mir die Adresse der markierten Zelle im aktiven Arbeitsblatt aus und zeigt den Zellinhalt an.
Wenn der Zellinhalt allerdings "#NV" ist, steigt das Skript aus.
Wie kann ich den Fehler elegant abfangen und die For-Schleife verlassen?
Als welchen Datentyp interpretiert Catia "#NV"?

Code:

---

'aus Catia Excel.ActivbeWorkbook.ActiveSheet.Selection.Address auslesen
Option Explicit

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

Set xlApp = GetObject(,"Excel.Application")
Set xlSelection = xlApp.Selection
Set xlBook = xlApp.ActiveWorkbook
Set xlSheet = xlBook.ActiveSheet

sXlSelection = xlSelection.Address '$A$1
'sXlSelection = xlSelection.Address(,,-4150) 'R1C1
MsgBox "Zelle selektiert: " & sXlSelection
MsgBox "Zellinhalt: " & xlSheet.Range(sXlSelection).Value
End Sub

---

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

---

Servus Lionel

Dazu empfehle ich dir die Methoden von Excel zu nutzen (und ggf danach in einem entsprechenden Forum oder Doku zu suchen)
Ich würde es wohl mit IsError probieren.

Code:

---

if xlApp.IsError(xlSelection) then
   MsgBox "Fehler"
else
   MsgBox "Zellinhalt: " & xlSelection.Value
end if

---

Gruß
Bernd

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

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

---

Hab Dank.

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