Hallo alle,
ich habe ein Arbeitsblatt zur Arbitrageanalyse am Aktienmarkt mit ~900 Zeilen und ~Spalten, welches ich in ein Array von $zeilenanzahl Objekten einlesen lasse.
Das Objekt (as Klassenmodul) trägt den Namen "stammdaten" und sei hier kurz angerissen:
Das Array ist wie folgt definiert:
Zum Zwecke der Anzeige aller Daten eines ausgewählten Wertes entwarf ich ein Formular, welches per Combobox die Eingabe eines Wertes erlaubt. Die Combobox wird mit den Daten der ersten Spalte des Worksheets gefüllt, also mit den gleichen Daten wie das edvfield.
Das Formulat hat diverse Label-Felder, in dem diverste Daten aus dem Array angezeigt werden sollen.
Wenn der User also in der Combobox eine Eingabe macht, soll das edvfield des Arrays von 0 bis letztezeile durchsucht werden bis ein Match auftritte, dann soll das Label-Feld mit dem Inhalt eines entsprechenden Datenfeldes gefüllt werden.
Wenn also der user "ABCD" in die Dropbox eingibt, soll einer prozedur diese Zeichenfolge übergeben werden.
Diese Prozedur soll dann das Array durchsuchen und die Datenfelder die im selben Index gespeichert sind in das Formular schreiben.
Ich bekomme es aber nicht hin.
Ich kann das ganze nicht aus dem Formular aufrufen, da ich das Array nicht mitübergeben kann.
Ich muss aber das ganze über die Combobox anstossen.
Wie komme ich also dazu, eine Prozedur zu schreiben die aus der Combobox den String übernimmt, das Array durchsucht und dann Daten ans Formular-Labelfeld übergibt?
Ich brauche keinen ausführlichen Code, ich nehme an dass ein kleiner Schubs in die richtige Richtung ausreicht.
Vielen Dank!
ich habe ein Arbeitsblatt zur Arbitrageanalyse am Aktienmarkt mit ~900 Zeilen und ~Spalten, welches ich in ein Array von $zeilenanzahl Objekten einlesen lasse.
Das Objekt (as Klassenmodul) trägt den Namen "stammdaten" und sei hier kurz angerissen:
Visual Basic-Quellcode
Das Array ist wie folgt definiert:
Visual Basic-Quellcode
- Dim etfliste() As New stammdaten
- Dim sheet As Worksheet
- Dim letztezeile As Integer
- ' Worksheet mit den Daten anwählen
- Worksheets("ARBITRAGE").Select
- 'Letzte Zeile mit Daten herausfinden
- letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row
- 'Array vergrössern auf Anzahl der Zeilen
- ReDim etfliste(1 To letztezeile)
Zum Zwecke der Anzeige aller Daten eines ausgewählten Wertes entwarf ich ein Formular, welches per Combobox die Eingabe eines Wertes erlaubt. Die Combobox wird mit den Daten der ersten Spalte des Worksheets gefüllt, also mit den gleichen Daten wie das edvfield.
Das Formulat hat diverse Label-Felder, in dem diverste Daten aus dem Array angezeigt werden sollen.
Wenn der User also in der Combobox eine Eingabe macht, soll das edvfield des Arrays von 0 bis letztezeile durchsucht werden bis ein Match auftritte, dann soll das Label-Feld mit dem Inhalt eines entsprechenden Datenfeldes gefüllt werden.
Wenn also der user "ABCD" in die Dropbox eingibt, soll einer prozedur diese Zeichenfolge übergeben werden.
Diese Prozedur soll dann das Array durchsuchen und die Datenfelder die im selben Index gespeichert sind in das Formular schreiben.
Ich bekomme es aber nicht hin.
Ich kann das ganze nicht aus dem Formular aufrufen, da ich das Array nicht mitübergeben kann.
Ich muss aber das ganze über die Combobox anstossen.
Wie komme ich also dazu, eine Prozedur zu schreiben die aus der Combobox den String übernimmt, das Array durchsucht und dann Daten ans Formular-Labelfeld übergibt?
Ich brauche keinen ausführlichen Code, ich nehme an dass ein kleiner Schubs in die richtige Richtung ausreicht.
Vielen Dank!
