Zellen nach definierter Zahl durchsuchen
20.02.2008 11:21:00
Silva
eine kurze Frage, ich denke sie dürfte kein Problem sein aber ich steh gerade voll auf dem Schlauch.
Ausganslage
Zelle (1,1) bis Zelle(1,50) sind von 1-50 durchnummeriert
d.h. Zeile 1 Spalte A.value=1;B.Value=2; C.Value=3, D.Value=4; E.Value=5, etc
Ziel
Jetzt möchte ich diese Zeile / oder besser jede Zelle automatisch z.B. nach der Zahl 36 durchsuchen lassen.
Sobald die Zelle mit dem Zellwert 36 gefunden ist soll er mir die Spalte ausgeben in der die 36 steht.
Output: Spalte=?
Zusatzinformation: danach soll die Variable "Spalte" in diesen Code eingebunden werden können
Sub Test()
For Spalte To Spalte-19 Step -1
If Cells(7, Spalte).Value = Cells(4, 45).Value Then
Columns(Spalte).EntireColumn.Hidden = False
Else
Columns(Spalte).EntireColumn.Hidden = True
End If
Next Spalte
End Sub
Danke vorab für die Hilfe
Grüssle Silva
Anzeige