Set - Anweisung
03.03.2008 13:56:00
shaka
Ich habe folgenden Funktion:
Function test()
Dim tempStart
Dim tempEnde
Set tempStart = Range(ActiveCell.Address)
Do Until ActiveCell.Offset(0, -3).Value ActiveCell.Offset(1, -3).Value
ActiveCell.Offset(1, 0).Select
Loop
Set tempEnde = Range(ActiveCell.Address)
Range(tempStart, tempEnde).Select
End Function
Leider werden dabei die Values in tempStart und tempEnde gespeichert! Wie muss ich Set-Anweisung schreiben damit die Adressen der Zellen gespeichert werden? Hab schon unterschiedlich versucht, aber es klappt nicht!
Vilen Dank im Voraus!
Gruß
shaka
Anzeige