Mittels VBA eine Tabelle nach Zeilen und Spalten a

Computer: Software & Programmierung Visual Basic
#1

Hallo,

Ich möchte mit Excel 2003 bzw. Vba eine Tabelle von D13 bis CI 164 nach Zelleninhalten untersuchen. Dabei interessieren mich immer in einer Spalte wo der Inhalt(Nur „x“ oder „“)steht(in welcher Zeile). Die Spalte benötige ich nachher nur zum Zuordnen.ich kann alle Spalten händisch abfragen mit:

help = „E170“
revnr() = Range(help).End(xlUp).Row

If revnr = 13 Then
MsgBox „kein Eintrag“
Else
MsgBox revnr
End If

Es sollte aber am besten mit einer Schleife und einem ARRay erfolgen. Ich weiß nur nicht wie. bei mir läuft immer ein run time error auf, wenn ich folgendes mache:

help = „D170“
revnr() = Range(help).End(xlUp).Row

Wie könnte ich den eine Array anfüllen und es vorallem danach in einer for- Schleife wieder auslesen?

Danke für Eure Antworten

#2

Ein Gedanke:
Deklaration dieser Variablen: ALLGEMEIN DEKLARATION
damit ist sie Modulübergreifend
Dim PARAM As Variant

Sub einlesen()
'die brutale Methode: einlesen
ReDim PARAM(165, 88) As Variant
For ParamZEILE = 13 To 164
For ParamSPALTE = 4 To 87
PARAM(ParamZEILE, ParamSPALTE) = Cells(ParamZEILE, ParamSPALTE).Value
Next ParamSPALTE
Next ParamZEILE
End Sub

Sub pruefen()
Suchen = „test“ 'Beispiel: hinterlegt in Zelle I21
For ParamZEILE = 13 To 164
For ParamSPALTE = 4 To 87
If PARAM(ParamZEILE, ParamSPALTE) = Suchen Then GoTo GEFUNDEN_JA
Next ParamSPALTE
Next ParamZEILE
GoTo GEFUNDEN_NEIN

GEFUNDEN_JA:
GefundeneZEILE = ParamZEILE
GefundeneSPALTE = ParamSPALTE
'was immer man hier ausführen will
Stop
Exit Sub
GEFUNDEN_NEIN:
'was immer man hier ausführen will
Stop
End Sub

#3

Hallo Dance100,

da kenne ich mich nicht genügend aus, um ordentlich zu antworten.
Tut mir leid.

Viele Grüße

Martin Altebockwinkel