Range einer Variablen zuweisen

Sub SortiereKreditorenNachBetrag() i = 9 tmpSortAnfang = Range(Cells(i + 1, 1)) tmpKIaktuell = Cells(i, 6).Value Do While Cells(i + 1, 6) "" If tmpKIaktuell Cells(i + 1, 6).Value Then tmpSortEnde = Range(Cells(i, 7)) conSortierbereich = Range(tmpSortAnfang, tmpSortEnde) Range(conSortierbereich).Sort Key1:=Range(conStartzelleSummeKosten2), _ Order1:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal i = i + 1 tmpSortAnfang = Cells(i + 1, 1) tmpKIaktuell = Cells(i, 6).Value Else i = i + 1 End If Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Option Explicit ' hier absichtlich mal auskommentiert Sub aaaa() Set xxxx = Cells(1, 1) MsgBox xxxx.Address ' funzt! End Sub Sub dddd() Dim xxxx As Long Set xxxx = Cells(1, 1) ' hier gibts einen Kompilierungsfehler MsgBox xxxx End Sub

Hi Luic,
sicher stimmen wir darin überein, dass man immer sauber deklarieren sollte,
will man sich derartigen Ärger vom Hals halten.
Aber deinen folgenden Aussagen möchte ich doch widersprechen:
"Könnte es nicht sein, dass dann Set fktt, wenn ein Range zugewiesen wird, aber an anderer Stelle
das dann als gewöhnl Variant betrachtet wird, bei dem nun mal ein Wert im Vordergrund steht,
also generell .Value verwendet wird. Immerhin ist ja so die Entscheidung darüber VBA überlassen worden
und immer, wo's zu passen scheint, wird dann halt gleich .Value verwendet (1.Priorität).
Sonst wäre es immer erst ein Objekt und .Value hätte 2.Priorität. "
Wenn einer Variantvariablen ein Range mit Set zugewiesen wurde, ist in der Variablen ein Objekt gespeichert.
Die Variable hat den VarType Object.
Nicht in der Variablen gespeichert ist ein (eventuell vorhandener) Wert des Objekts.
Das Objekt kennt natürlich seinen Wert (wenn es denn überhaupt einen hat),
wie alle seine Eigenschaften und Methoden.
Dar VarType bleibt unverändert, solange der Variablen nichts anderes zugewiesen wird.
(Das wäre ja auch noch schöner...)
Es kann durchaus sein, dass statt des Objekts mal ein "Wert" erscheint - wenn "Wert" die
Standardeigenschaft des Objekts ist. Das heißt aber keineswegs, dass dann ein Wert
in der Variablen gespeichert wäre. Dort ist und bleibt das Objekt.
Debug.Print Cells(3,4) druckt den Inhalt (Wert) der Zelle, nicht die Zelle selbst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo liebes Forum,
ein besonderes Hallo an Reinhard, Erich, Rudi - und "zum Teufel nochmal" auch an Luc! ;-))
Ich werde mich künftig bemühen, alle Variblen sauber zu deklarieren - auch wenn ich in der Hinsicht wohl ein eher fauler schlampiger Sack bin. ;-)
Es läuft jetzt - und lief wohl auch schon vorher. :-) Ich habe mich vom Debugger in die Irre führen lassen. Wenn ich mit der Maus zum Beispeil über die Variable lngSortAnfang fahre, zeigt mir der Debugger den Zellwert an - ich dachte aber, dass da auch der Zellbereich angezeigt wird, wenn die Variable als Object deklariert ist. Dem ist scheinbar nicht so.
@Erich: Die Variable conStartzelleSummeKosten2 ist eigentlich eine Konstante und stand noch versehentlich im geposteten Code - sorry für diese Ungenauigkeit.
Habt jedenfalls ganz lieben Dank für Eure Hinweise.
Bis zum nächsten Mal.
Grüße aus dem langsam aufklarenden Hürth.
Markus.
P.S. Ach ja, hier noch der Code, der bei mir jetzt funktioniert:

Option Explicit
Sub SortiereKreditorenNachBetrag()
Dim i As Integer, lngKIaktuell As Long, objSortAnfang, objSortEnde As Object, _
rngSortierbereich As Object
i = 9
Set objSortAnfang = Cells(i + 1, 1)
lngKIaktuell = Cells(i, 6).Value
Do While Cells(i + 1, 6)  ""
If lngKIaktuell  Cells(i + 1, 6).Value Then
Set objSortEnde = Cells(i, 41)
Set rngSortierbereich = Range(objSortAnfang, objSortEnde)
rngSortierbereich.Select
Selection.Sort Key1:=Range("AJ10"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
i = i + 1
Set objSortAnfang = Cells(i + 1, 1)
lngKIaktuell = Cells(i, 6).Value
Else
i = i + 1
End If
Loop
End Sub

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range einer Variablen zuweisen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread