Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Set - Anweisung

Set - Anweisung
03.03.2008 13:56:00
shaka
Hallo alle zusammen!
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Set - Anweisung
03.03.2008 13:59:00
shaka
maaaannnnnn,
sry, nehme die Frage Zurück!!!!!!
Nach Excel-Neustart funktioniert die Funktion plötzlich!!!!
Gruß
shaka

AW: Set - Anweisung
03.03.2008 14:02:00
Chris
Servus,
so, ungetestet:

Function test()
Dim tempStart
Dim tempEnde
Set tempStart = ActiveCell.Address
Do Until ActiveCell.Offset(0, -3).Value  ActiveCell.Offset(1, -3).Value
ActiveCell.Offset(1, 0).Select
Loop
Set tempEnde = ActiveCell.Address
Range(tempStart & ":" &  tempEnde).Select
End Function


Gruß
Chris

AW: Set - Anweisung
03.03.2008 14:33:19
Hajo_Zi
Hallo Chris,
mit Set gesetzte Variablen sollte man am Ende wieder löschen.
Set Variable =Nothing

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige