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
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
Hallo Dance100,
da kenne ich mich nicht genügend aus, um ordentlich zu antworten.
Tut mir leid.
Viele Grüße
Martin Altebockwinkel