Fehler fangen: Zuweisung Blatt zu Variabel

Moderator: ModerationP

Fehler fangen: Zuweisung Blatt zu Variabel

Beitragvon RaiSta » 16. Jul 2019, 23:48

Hallo Ihr Wissenden,

in meinem VBA-Makro lese ich einen Text aus einer Zelle einer Mappe in die Variable "stReferenz" und mache dann die Zuweisung:
Code: Alles auswählen
On Error GoTo RohDatenNichtGefunden
Set obRohDatenBlatt = Worksheets(stReferenz)
Dabei wollte ich den Fall, dass es das Blatt mit dem in stReferenz hinterlegten Namen nicht gibt, mit der On Error Anweisung abfangen. Aber das funktioniert nicht, der Systemfehler "Index out of range" tritt trotzdem auf.
Wie kann ich diesen Fehler sinnvoll fangen und verarbeiten?

Vielen Dank,
RaiSta
Wenn Sokrates als intelligent gilt, weil er "ich weiß, daß ich nichts weiß" erkannte, muß ich ein Genie sein.
RaiSta
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 467
Registriert: 02. Jul 2013, 01:07
Wohnort: Im Mittelpunkt - der EU

Re: Fehler fangen: Zuweisung Blatt zu Variabel

Beitragvon Hajo_Zi » 17. Jul 2019, 04:49

nur wenifge sehen wie stReferenz definiert und zugewiesen wirde.
stReferenz ist nicht zugewiesen.

Gruß Hajo
Signatur
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Office 2016 Plus - 32 Bit.
Da die Mailbenachrichtigung bei mir nicht geht. Weitere Antworten dem Zufall überlassen.
Falls lange keine Antwort kommt, PN.
Benutzeravatar
Hajo_Zi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4015
Registriert: 31. Jan 2004, 18:26
Wohnort: Straubing

Re: Fehler fangen: Zuweisung Blatt zu Variabel

Beitragvon hddiesel » 17. Jul 2019, 06:11

Hallo RaiSta

Code: Alles auswählen
Option Explicit


Sub Pruefe_TAB_x()
    Dim obRohDatenBlatt As Worksheet
    Dim stReferenz As String
   
    stReferenz = "Tabelle4"
   
    On Error Resume Next

    If Sheets(stReferenz) Is Nothing Then GoTo RohDatenNichtGefunden
    Set obRohDatenBlatt = Worksheets(stReferenz)
   
    obRohDatenBlatt.Activate
   
    Exit Sub
   
RohDatenNichtGefunden:
    MsgBox stReferenz & " nicht vorhanden"

End Sub
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3869
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland

Re: Fehler fangen: Zuweisung Blatt zu Variabel

Beitragvon slowboarder » 17. Jul 2019, 09:45

Hi
naja, das kommt immer darauf an, wass genau bei diesem Fehler passieren soll.
in den meisten Fällen regle ich das nicht mit Fehlersprung, sondern etwas anders, weil Goto-Sprünge im Code so ganz einfach zu händeln sind.:

Code: Alles auswählen
set obRohDatenBlatt = Nothing
On Error Resume Next
Set obRohDatenBlatt = Worksheets(stReferenz)
On Error Goto 0

if obRohDatenBlatt is Nothing then
    hier der Code, der ablaufen soll, wenn das Blatt nicht vorhanden ist
Else
    hier der Code, der ablaufen soll, wenn das Blatt vorhanden ist#
end if


Gruß Daniel
slowboarder
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26260
Registriert: 18. Apr 2009, 13:33

Re: Fehler fangen: Zuweisung Blatt zu Variabel

Beitragvon hddiesel » 21. Jul 2019, 12:09

Hallo Daniel,

Danke für deine Info.
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3869
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: TommyDerWalker und 26 Gäste