Suchfunktion per Makro
07.05.2004 23:56:50
RonaldoHH
ich hatte ja vorhin schon einmal geschrieben und hatte gleich eine Antwort erhalten. Jetzt habe ich ein weiteres Problem. In meiner Excel-Tabelle habe ich in der Zelle C1,C10,C100 und C110 die Zahl 100 stehen. Es kann auch mal sein, dass die Zahl 100 häufiger oder auch seltener vorkommt. Ich möchte jetzt per Suchfunktion, dass die erste Zahl 100 gefunden wird und eine Zelle darunter die Zahl 1 geschrieben wird. Bei der zweiten Zahl 100 soll eine Zelle darunter die Zahl 2 stehen etc. Kann mir evtl. jemand sagen, wie ich das lösen kann ?
Zur Zeit habe ich folgende Anweisung:
Dim C As Range
Columns("c:c").Select
Set C = Selection.Find(What:="100", After:=ActiveCell, LookIn:xlFormulas, Look At:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not C Is Nothing Then
C.Activate
Else
Exit Sub
End If
ActiveCell.Offset(1,0).Select
ActiveCell.FormulaR1C1 = "1"
Vielen Dank für Eure Hilfe !