Set Range Problem

Computer: Software & Programmierung Visual Basic
#1

Hi zusammen,

ich habe folgende Sub (zusammengekürzt):
dim Köter(6) as range
dim köteranzahl as byte
dim zuf as range

for köteranzahl = 2 to 6
set köter(köteranzahl) = range(„A39“)
next
set köter(1) = range(„irgendwo anders“)

so dann später in der selber sub:
set zuf = range(„C3“)
set köter(2) = zuf

for köteranzahl = 1 to 6
—> if köter(köteranzahl) = range(„A39“) then irgendwas machen

#2

so das problem ist: bei köter(1) ignoriert er die stelle da er
ne andere range hat, köter(3-6) nehmen die stelle mit da sie
range(„A39“) haben. Aber, und das versteh ich absolut nicht.
köter(2) nimmt die Stelle auch mit, obwohl ich ihm gesagt habe
du bist C3 und da beim überwachungsfenster auch steht row 3
column 3.

Muss man vorher irgendwie die alte range bezeichnung löschen?
hat mein excel den totalen lattenschuss? oder was ist da los?

Hallo Dr,

hmmh, an Excel liegt das aber nicht :smile:

Poste bitte immer komplette Subs, die theoretisch, ohne den Fehler alleine laufen würden.

Sub tt()
Dim Köter(6) As Range
Dim köteranzahl As Byte
Dim zuf As Range
For köteranzahl = 2 To 6
Set Köter(köteranzahl) = Range("A39")
Next
Set Köter(1) = Range("D5")
'so dann später in der selber sub:
Set zuf = Range("C3")
Set Köter(2) = zuf
For köteranzahl = 1 To 6
 If Köter(köteranzahl).Address(0, 0) = "A39" Then MsgBox "irgendwas machen"
 If Köter(köteranzahl).Address = "$A$39" Then MsgBox "irgendwas machen2"
Next
End Sub

Gruß
Reinhard

#3

Poste bitte immer komplette Subs, die theoretisch, ohne den
Fehler alleine laufen würden.

alles klar wird nächste mal gemacht. Funktioniert jetzt alles wie es soll, danke.