Das Archiv des Excel-Forums
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
Excel-Beispiele zum Thema " relativer verweis funktioniert nicht"