Hallo Excelfreunde,
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

A B C D 1   Dies Das Jenes 2 Text1 8 25 12 3 Text2 10 30 23 4 Text3 12 35 34 5 Text4 14 40 45 6 Text5 16 45 56 7 Text6 18 50 67 8 Text7 20 55 78 9 Text8 22 60 89 10 Text9 24 65 100 11 Text10 26 70 111 12 Text11 28 75 122 13 Text12 30 80 133 14 Text13 32 85 144 15 Text14 34 90 155 16 Text15 36 95 166

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
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