Objektname aus Zelle auslesen

Hi!
Ich bin ziemlicher Anfänger bei VBA und bei den ersten Schritten mit benutzerdefinierten Objekten zum ersten Mal auf ein Problem gestoßen bei dem mir diverse Google Suchen nicht helfen konnten.
Und zwar habe ich in einem Klassenmodul eine Klasse namens "Produkt" angelegt. Dessen Eigenschaft "Preis" bekommt in einem Sub einen Wert zugewiesen. Von diesem Zeitpunkt an wird in einem zweiten Sub weitergearbeitet. In diesem Sub lässt sich der Preis eines Produktes auch problemlos auslesen und weiterverwenden.
Jetzt zum eigentlichen Problem: In einem Worksheet stehen in einer Tabelle die Namen der Produkte, also einzelner Objekte. Von diesen Objekten möchte ich gerne den Preis auslesen und für eine Berechnung verwenden. Ich schaffe es aber nicht, mich mithilfe eines Zellbezugs auf das Objekt zu beziehen. Mein Problem ist, dass ich nicht weiß, wie man sich auf ein bestimmtes Objekt bezieht ohne dessen Namen im Voraus zu kennen. Mithilfe einer Zwischenvariable habe ich leider keinen Erfolg erzielen können.
Hoffentlich wurde mein Problem deutlich. Falls nicht, gerne nochmal nachfragen. Vielen, vielen Dank schon einmal für eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim lZeile As Long Dim DeinText Dim DeinPreis As Integer DeinText = "Schrauben" 'Hier musst du deine Variable, nach der gesucht werden soll "bestücken" lZeile = 2 'Beginnt in Zeile 2 Do While Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) "" If DeinText = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then '"DeinText ist der Wert _ nachdem in Tabelle1 Spalte A gesucht wird DeinPreis = Sheets("Tabelle1").Cells(lZeile, 2).Value 'Dein Preis wird aus _ der Tabelle1 Spalte B ausgelesen Exit Do End If lZeile = lZeile + 1 Loop

Hi Stefan,
vielen Dank schon einmal! So ganz löst das mein Problem nicht, ich wusste ich sollte keinen Post mehr kurz vorm Schlafengehen aufsetzen, habe mich etwas wirr ausgedrückt. :)
Ich zeige mal kurz den Beispiel-Code mit dem ich arbeite:
Das Klassenmodul namens "Produkt":


Public Preis As Integer

Das erste Modul:


Public ProduktEins As New Produkt
Public ProduktZwei As New Produkt
Sub Initial()
ProduktEins.Preis = 2
ProduktZwei.Preis = 5
End Sub

Das zweite Modul:


Sub Fortsetzung()
Debug.Print ProduktEins.Preis
Debug.Print ProduktZwei.Preis
End Sub

Jetzt ist es so, dass in einer Arbeitsmappe Namen von Produkten stehen. Ich weiß aber nicht welche Produkte und wo. Wichtig ist nur, dass an der richtigen Position ausgelesen wird, welcher Preis zugehörig ist.
Sprich, ich habe in Tabelle1 im Feld A1 bspw. "ProduktEins" stehen. Nun hätte ich gerne im zweiten Modul die Möglichkeit auf das Feld A1 zu verweisen und dabei den Preis zu erhalten, der dem Produkt zugewiesen ist, dessen Name sich in A1 befindet.
Also praktisch:


Debug.Print Worksheets("Tabelle1").Cells(1,1).Preis

Nur, dass es so nicht funktioniert. Mit einer Zwischenvariable habe ich es auch schon probiert, ebenso wie mit der CallByName-Funktion. Beides habe ich nicht zum Laufen bringen können.
Vielen Dank schon bzw. noch einmal!

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Objektname aus Zelle auslesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread