Find - Problem
27.01.2007 23:49:27
Sophie
kann mir einer sagen wie ich dieses hinbekomme?
Folgendes:
Sub finden()
With Worksheets("Werte").Range("B1:B" & Range("A65536").End(xlUp).Row)
Set c = .Find("Wert1", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
i = i + 1
WerteNames(i) = Sheets("Werte").Cells(c.Row, 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Wenn jetzt nicht das Tabellenblatt "Werte" activ ist funktioniert es nicht.
Sprich wenn ich mich auf dem Tabellenblatt zwei befinde, läuft dieses nicht, was muß ich ändern um diesen Einfluß zu beseitigen.
Noch eine weitere Frage ist es möglich in Kombination zu suchen, sprich in der Spalte A befinden sich die Werte, in Spalte B Zusatzinfos, jetzt möchte ich nur die Werte finden die in Kombination mit den Zusatzinfo XY stehen. Wenn also wie oben nach dem Wert1 gesucht wird, soll dieser nur abgespeichert werden wenn das Zusatzinfo dazu auch passt. Muß ich eine If - Anweisung einbauen oder gibt es andere Möglichkeiten?
Gruß
Sophie