Excel2000: Relative Zell-Auswahl per Makro

Computer: Software & Programmierung Office Software
1

Hallo,

ich möchte per Makro einen Zellbereich markieren, der sich relativ zur aktuell markierten Zelle befindet, also auch mit den relativen X- und Y-Werten angegeben wird, nicht mit den absoluten (auf das Blatt bezogenen).

Dazu habe ich ein kleines Makro geschrieben, das auch funktioniert. Meine Frage: Geht es auch einfacher?

Kristian

Sub Test()
 Call RelativeSelection(0, -7, 2, 12)
End Sub
 
Private Sub RelativeSelection(x As Long, y As Long, H As Long, W As Long)
Dim xx As Long
Dim yy As Long
 If H
2

Hi Kristian,

> Sub Test()  
> Call RelativeSelection(0, -7, 2, 12)  
> End Sub  
>   
> Private Sub RelativeSelection(x As Long, y As Long, H As Long,  
> W As Long)  
> Dim xx As Long  
> Dim yy As Long  
> If H

Ein bisschen einfacher geht es schon:


    Private Sub RelativeSelection(x As Long, y As Long, H As Long, W As Long)
     If H 
    Viele Grüße
    Sculpture
3

Ein bisschen einfacher geht es schon:

_: Private Sub RelativeSelection(x As Long, y As Long, H As Long, W As Long)_
_: If H   
: If W   
: Range(Selection.Offset(y, x), Selection.Offset(y + W - 1, x + H - 1)).Select  
: End Sub_

Stimmt, das Offset! Naja, es ist Freitag … :wink:
Danke!

Kristian