Spalten nach Wert durchsuchen
27.06.2008 13:31:10
Tobias
ich habe folgendes Problem was mich wirklich noch zur Verzweiflung bring.
Ich möchte nach einem bestimmen Wert in einem variablen Spalten Bereich suchen.
Folgendes habe ich hierzu schon geschrieben, was aber leider nicht funktioniert:
Sub Makro1()
anzspalten = Sheets("TTR_MT").UsedRange.Columns.Count
For weiter = 1 To anzspalten
If Range("A7").Value = Worksheets("TTR_MT").Range(Cells(1, 2), Cells(1, weiter)).Value Then
('In A7 Steht der zu findende Wert)
MsgBox ("Gefunden")
End If
Next
End Sub
Warum bekomme ich hier immer die Fehlermeldung Typen Unverträglich.
Ich wäre Euch sehr dankbar, wenn Ihr mir weiterhelfen könntet.
Gruß
Anzeige