Festen wert durch Dynamischen erssetzen aus Zelle
29.06.2005 09:47:18
Andy
Vielen Dank Andy
Sub Berechnen()
Sheets("Hauptmenü").Select
Dim myRange As Range
Set myRange = Range("A1:A9999")
myMatch = 4
nummer = Application.WorksheetFunction.Match(myMatch, myRange, 0)
Range("D9999").Value = nummer
End Sub