Objekt fehlt, Listbox Item als Worksheet
25.12.2012 11:14:04
Werner
zu allererst mal Frohe Weihnachten an alle!
Und jetzt zu meinem Problem;-). Ich hatte gestern schon mal wegen eines Problems gepostet und mir wurde auch prompt weiter geholfen (Danke, Peter Feustel). Jetzt hat sich ein neues Problemchen ergeben: Ich bekomme die Fehlermeldung "Objekt erforderlich." Den ganze Code zu posten wäre zu unübersichtlich, ich versuche mich, auf das Wesentliche zu konzentrieren.
.
.
''''''intSh ist die in einem UsfListbox markierte Eintrag, Integer
.
wksName = Me.Listbox1.List(intSh) 'übergebe den Namen des Items an Variable
''' wksName ist dann "Nothing" liegt hier der Fehler?
''' wenn ich wksName als String deklariere, bekomme ich zwar den Namen des Items, aber auch eine Fehlermeldung
'Ich verweise auf das Worksheet wksName um Zellen zu prüfen, FEHLERMELDUNG Objekt fehlt
If Trim(ThisWorkbook.Worksheets(wksName).Cells(lngRow, 1)).Text "" Then
If Dir$(strPATH & Trim(ThisWorkbook.Worksheets(wksName).Cells(lngRow,1)).Text & _
".bmp", vbNormal) "" Then
Ich habe wksName auch schon mal mit den wirklichen Namen ersetzt, gleicher Fehler.
Wahrscheinlich ist meine Vorgehensweise falsch, vielleicht kann mir jemand auf die Sprünge helfen.
Danke, für Eure Tipps, ich beiß mich dann schon durch.
Gruß
Werner