Spaltenindex
10.01.2004 21:23:04
maria
über eine UserForm möchte ich in einer Zeile nach einem bestimmten Wert Suchen. Wenn der Wert gefunden ist, wird die Zelle aktiviert. Nun möchte ich gerne den Spaltenindex haben. Aber irgendetwas ist an meinem Code falsch:
Sub test()
Dim ws1 As Worksheet
Dim rngfinden As Range
Dim rngfinden1 As Range
Dim Spalte As Object
Range("A1").Select
Set ws1 = Workbooks("Kommentar.xls").Worksheets("Kommentare")
Set rngfinden = ws1.Rows("1:1")
rngfinden.Find(What:="222-222-222", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Set rngfinden1 = ws1.ActiveCell
Set Spalte = rngfinden.Columns.Index
End Sub
Wer kann mir helfen???Was mache ich falsch???
Grüße
Maria