Excel: Set myrange neu

Billy · 06.04.2005

öhm Ich bin gerade einwenig am spielen und muss was wissen

bei dem hier:

Code:

 Set myRange = Worksheets(2).Range(T10:T48)
 For Each Zelle In myRange
  If Zelle = schulze Then
   If f_schulze =  Then
    f_schulze = Zelle.Address(rowabsolute:=False, Columnabsolute:=False)
    Else
    f_schulze = f_schulze &amp; ,  &amp; Zelle.Address(rowabsolute:=False, Columnabsolute:=False)
   End If
   schulze_error = schulze_error + 1
   schulze_reihe = schulze_reihe + 1
  Else
   schulze_reihe = schulze_reihe + 1
  End If
  zeile = zeile + 1
 Next

ich überprüfte mit IF zeile >= 49 Then ob ich schon bei der Zeile 49 bin/war

wenn das so ist, würde ich gerne myrange neu setzten. Geht das oder geht das nicht?

MFG FiRe-X

Matjes · 06.04.2005

Hi Fire-X,

du kannst zwar den Range neu setzen, den für die Schleif relevanten Range hat der Makro sich aber beim Start der Schleife gemerkt.

Hab es dir etwas abgewandelt, damit Du die Funktionsweise siehst.

Gruß Matjes

Code:

Sub myTest()

Set myRange = Worksheets(2).Range(T10:T48)
  For Each Zelle In myRange
    If Zelle = schulze Then
      If f_schulze =  Then
        f_schulze = Zelle.Address(rowabsolute:=False, Columnabsolute:=False)
        Else
        f_schulze = f_schulze &amp; ,  &amp; Zelle.Address(rowabsolute:=False, Columnabsolute:=False)
      End If
      schulze_error = schulze_error + 1
      schulze_reihe = schulze_reihe + 1
    Else
      schulze_reihe = schulze_reihe + 1
    End If
    zeile = zeile + 1
    
    If Zelle.Row = 17 Then
      Set myRange = Worksheets(2).Range(A10:A48)
    End If
    MsgBox (Letzte bearbeitete Zelle  &amp; _
          Zelle.Address(rowabsolute:=False, Columnabsolute:=False))
  Next
  
  Set Zelle = Nothing

End Sub

Billy · 06.04.2005

danke =)

Excel: Set myrange neu

Billy

Matjes

Billy

Excel: Set myrange neu

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums