Zellenbezug
10.03.2004 13:52:51
Stefan
ich durchsuche spalte a nach dem stern, dann möchte ich das der bezug in celle a10 geschreiben wird. also =a...
danke für eure hilfe
Sub Zellensuchen()
Dim letzteR As Integer
Dim i As Integer
Selection.SpecialCells(xlLastCell).Select
letzteR = ActiveCell.Row
Range("A1").Select
Do
If ActiveCell.Value = "*" Then
i = ActiveCell.Row
Range("a10").Select
ActiveCell.FormulaR1C1 = "i"
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Row <= letzteR
End Sub