Objektvariable nicht definiert

Hallo,

eine nachgebaute Youtube-Datei von Kai Weissmann "Tabelle durchsuchen und Wert ausgeben | Excel VBA" funktioniert mit diesem Code problemlos:

Option Explicit



Sub TabelleDurchsuchen()



' Variabe dimensionieren

Dim rng As Range



' Tabelle durchsuchen u. Zelle speichern

Set rng = Range("tblKunden[KundenID]").Find(What:=5, LookAt:=xlWhole)  ' identisch m. Suchen u. Ersetzen-Fenster



' Wert ausgeben (Messagebox, Direktfenster, Zelle oder UserForm)

MsgBox rng.Value



End Sub

Verwende ich den Code (angepasst) in meiner Anwendung, dann erscheint die Meldung "Objektvariable oder ... nicht definiert".

Option Explicit



Sub TabelleDurchsuchen()

    

    ' Variable dimensionieren

    Dim rng As Range

    

    ' Tabelle durchsuchen

    Set rng = Range("tblWertungspunkte[Startnummer]").Find(what:=6, LookAt:=xlWhole)  ' Find = Excel-Suchfunktion

    

    ' Wert ausgeben

    MsgBox rng.Value

    

End Sub

Die Zeile "MsgBox rng.Value" wird markiert.
Wo könnte ich den Fehler finden?

Gruß Klaus

Hallo Klaus,

hmm... Du bist noch an den Anfang auf dem Weg zum VBA-Versteher. Wir begleiten dich. Vor allem, weil es hier mit Objekt-Variablen gearbeitet wird, was zwar intuitiv, aber nicht direkt ohne Erklärung zu erfassen ist.

"private" (im ggt zu "public") dient nur die Sichtbarkeit/Ausrufbarkeit der Sub oder Function: Private sind nur innerhalb der Modul, in dem sie definiert sind, aufrufbar. Diese Modul können den Mappen-Modul "DieseArbeitsmappe", jede einzelne Tabellen-Modul ("Tabelle1", usw) oder einen allgemeine Modul ("Module1"). Später kommen noch andere dazu. "Public" sind von überall sichtbar/abrufbar.

Da "Datensatz" eine Function, spricht ein Sub, die eine Wert zurückgibt, kann diese nicht direkt gestartet werden, sondern nur gerufen werden. Der Aufruf wird im "Test" gemacht.

Im Test befindet sich eine Schleife mit einer Schleifen-Variable "TestSchlüssel":
Für jeden Werte von 0 bis 15 in 3er Schritt, übernimmt die Variable TestSchlüssel diesen Wert: 0, 3, 6, 9, 12, 15.
Dann wird die Function "Datensatz" mit TestSchlüssel als Parameter gerufen. Hier gibt es eine Schweinerei: TestSchlüssel ist eigentlich ein Zahl, die Function "Datensatz" erwartet einen String (=Zeichenkette). Es wird einen Typenkonversion bei der Übergabe stattfinden. Nicht schlimm: aus einem Zahl kann man immer einen String machen. Andersrum nicht.

Springen wir ins "Datensatz":
die Wert "0" wird genommen und der Variable "Schlüssel" übergeben ("Schlüssel" ist eine lokale Variable, so ein Art von "sehr-private", das nur innerhalb der Sub/Function gilt!)
Es werden durch die "For Each"-Schleife jede Zeile des Objekts vom Typ "ListObject" durchgelaufen. Hier arbeitet man mit Objektvariablen vom Typ "ListRow". Um diese zu verstehen, solltest Du im Schritt-Modus (F8-Taste) mit offenen Lokalfenster (Ansicht, Lokalfenster) durchlaufen lassen. ListRows (mit s) ist die Auflistung aller ListRow (ohne s) innerhalb eines ListObject (hier verzichte ich absichtlich auf dem genitiv-s. ListObjects (mit s) ist die Auflistung aller ListObject in einem Arbeitsblatt).
Kurz: vom Range mit dem Namen "tbl..." davon das untergeordnete ListObject-Objekt, davon die Auflistung ListRows.
Ein "For Each" kann nur auf einem Auflistung oder Array gemacht werden. Jede einzelne Element von ListRows ist von Typ ListRow (mit/ohne s).

Die ListRow hat eine Eigenschaft "Range". Dieses Objekt ist so ein Art von "Array" (auf deutsch "Tabelle", aber sagen wir lieber "Liste". Array und Auflistung sind sehr ähnlich). Jede einzelne Element von Range ist selber ein Objekt vom Typ "Zelle" (dieser Typ existiert nicht richtig. Aber die Erklärung wäre sonst zu kompliziert. Es ist ein "Range", der nur eine einzige Zelle hat).
Auflistung und Array kann man mit einem Index zugreifen. Diese Array startet mit 1 und endet bei ListRow.Range.Count also der Anzahl von Element in diesem Array. Hier ist es aber egal, da wir nur die erste SPalte beachten, also Range(1). Wir vergleichen den Wert darin ("Range(1).value") mit der Wert, den wir die lokale Variable "Schlüssel" übergeben haben. Wenn Gleicheit, wird das gesamte ListRow dem Ergebnis der Function allokiert ("Set Datensatz = LR"). Weil es ein Objekt ist, muss man mit "Set" allokieren. Um die Verarbeitung zu beschleunigen, steigt man aus dem Function aus ("Exit Function") und springt dementsprechend ins Haupt-Sub zurück.

In "Test" wird das Ergebnis von Datensatz die Objekt-Variable LR zugewiesen (=allokiert), da Objekt -> "Set". Aber: wenn die Schleife in "Datensatz" ohne Ergebnis komplett durchgelaufen wäre, hätten wir keine "ListRow" zuweisen können. Die Function "Datensatz" liefert dann "Nothing" zurück. "Nothing" ist ein reserviertes Wort für fehlende Objekt, das Equivalent zu "0" für Zahlen oder "" (leere Zeichenkette) für String.

Daher wird geprüft ob "LR" ungleich "Nothing ist, und wenn es zutrifft, also LR setzt auf eine tatsächliche ListRow aus dem ListObject, dann wird der Wert des Ranges mit dem Index der Spalte mit dem Name "Name" im Direktfenster herausgegeben.

Diese Verwendung von Objekt und Objektauflistung kennst Du sicher schon, wenn Du den Makro-Rekorder verwendet hast, oder Code irgendwo gelesen:
Worksheets("Tabelle1") 'hier wird in der Auflistung der Worksheets das Element mit Namen "Tabelle" gerufen
Worksheets(1) 'das gleich wie oben, nur dass das erste Element gerufen wird

Range("A1") 'hier wird in dem Range-Array das Element mit Namen "A1" gerufen
Cells(1,1) 'in der Auflistung der "Cells" (mit s), was eine zwei-dimensionale Auflistung ist, wird die Zelle von Zeile 1 | Spalte 1 gerufen.
Cells(1,"A") ' Misch-Modus, wo die Spalten nicht als Index, sondern als Namen gerufen wird.

usw.

VG
Yal

Forumthread: Objektvariable nicht definiert

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Objektvariable nicht definiert

Forumthread: Objektvariable nicht definiert

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread