die Daten eines Tabellenblattes lese ich in ein Datenfeld (Array) ein.
Beim Zugriff auf die Dtaen komme ich nicht weiter.
Was muß ich für die "3" schreiben wenn ich nur "Das" kenne und nicht weiß in welcher Spalte des Datenfeldes "Das steht, da das Datenfeld unterschiedlich groß sein kann?
Gruß Jens
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Option Base 1
Public aktPreisliste() As Variant
Sub Preisliste_einlesen() Dim wks As Worksheet Dim Preisliste As Range Dim Zelle As Range Dim lZeile As Integer, lSpalte As Integer Set wks = Worksheets("Test") 'Preislistengröße ermiteln lZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row lSpalte = wks.Cells(1, Columns.Count).End(xlToLeft).Column Set Preisliste = wks.Range(wks.Cells(1, 1), wks.Cells(lZeile, lSpalte)) 'Preisliste in Array einlesen ReDim aktPreisliste(lZeile, lSpalte) For Each Zelle In Preisliste aktPreisliste(Zelle.Row, Zelle.Column) = Zelle.Value Next End Sub
Sub Preisliste_auslesen() Dim i As Integer Dim text As String For i = 1 To UBound(aktPreisliste, 1) If aktPreisliste(i, 1) = "Text8" Then text = aktPreisliste(i, 3) '<------------- 3 MsgBox text End If Next End Sub