Microsoft Excel

Herbers Excel/VBA-Archiv

relativer verweis funktioniert nicht

    Betrifft: relativer verweis funktioniert nicht von: Achi
    Geschrieben am: 29.09.2003 15:27:04

    hallo,
    ich habe folgende vba-sortierung:

    Sub sortby_targetgroup_date()
    '
    ' sortby_targetgroup_date Makro
    '
    
    '
        Range("B37:k327").Select
        Selection.Sort Key1:=Range("H53"), Order1:=xlAscending, Key2:=Range("C53" _
            ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
            False, Orientation:=xlTopToBottom
        Range("b27").Select
    End Sub
    


    nun will ich meine range so eingeben, dass auch neu eingetragene inhalte sofort mit in die sortierung aufgenommen werden. habe es schon mit dem relativen verweis versucht, der funktioniert aber leider irgendwie nicht.
    hoffe, ich hab mich einigermassen verstaendlich ausdruecken koennen. danke schonmal fuer eure hilfe
      


    Betrifft: AW: relativer verweis funktioniert nicht von: Panicman
    Geschrieben am: 29.09.2003 15:36:43

    Hallo Achi,

    wenn es nur zusammenhängede Einträge gibt (also keine LEERZEILEN) kannst du das so machen:
    Range("B37").Select
    Range(Cells(37, 2), Selection.End(xlDown)).Select

    Gruß
    Holger


      


    Betrifft: Korrektur !!! von: Panicman
    Geschrieben am: 29.09.2003 15:45:05

    muß heißen: Range("K37").Select
    Tschuldigung

    Holger


      


    Betrifft: AW: relativer verweis funktioniert nicht von: Stephan
    Geschrieben am: 29.09.2003 15:38:38

    Hallo Achi,
    ich gehe davon aus, dass "Deine Range"
    "Range("B37:k327")" ist, und dass mit
    "sofort mit in die sortierung aufgenommen werden" keine automatische
    Sortierung nach neuem Werte-Eintrag ist;
    dann könnte die Range automatisch angepasst werden durch:
    Range("B37:K" & Range("K65536").End(xlUp)).Select
    Bedingung ist aber, dass unter dem zu sortierenden Bereich keine anderen
    Werte stehen. Sonst muss der Wert K65536 entsprechend verändert werden!
    Viel Erfolg!
    Mit freundlichem Gruß
    Stephan


      


    Betrifft: AW: relativer verweis funktioniert nicht von: Achi
    Geschrieben am: 29.09.2003 16:50:16

    @stephan
    hat leider nicht funktioniert, methode range ist fuer das objekt _global fehlgeschlagen...was auch immer das heisst
    ich benoetige einfach einen befehl, der mir eben neue eintraege auch gleich in mein sortier-makro mit aufnimmt.


      


    Betrifft: AW: relativer verweis funktioniert nicht von: Panicman
    Geschrieben am: 29.09.2003 17:17:25

    Hallo Achi,

    Stephan hat nur das ".row" vergessen.
    Range("B37:K" & Range("K65536").End(xlUp).Row).Select

    dann klapps

    Gruß
    Holger


     

    Beiträge aus den Excel-Beispielen zum Thema " relativer verweis funktioniert nicht"