Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Aktive Zelle merken und wieder setzen

2,056 views
Skip to first unread message

Rolf Kaufmann

unread,
Dec 11, 2001, 6:07:41 AM12/11/01
to
Hallo alle zusammen,

ich würde gerne folgendes machen:

- die Position der momentan aktiven Zelle merken
- bei einer Eingabe in die aktive Zelle ein Makro ausführen, das einen
bestimmten Breich der Tabelle sortiert
- die Zelle wieder aktivieren, in der die Eingabe stattfand

Das Sortieren aufgrund einer Veränderung in der Zelle funktioniert, nur
leider bleibt der Teil der Tabelle markiert, der durch das Makro sortiert
wurde. Ich möchte aber in die Eingabezelle zurückkehren.


Kann mir bitte jemand kurz erklären, wie ich das anstellen kann?

Danke,
Rolf

Frank Arendt-Theilen

unread,
Dec 11, 2001, 6:49:21 AM12/11/01
to
Hallo Rolf,

Dim rngAlteZelle as Range
rngAlteZelle = ActiveCell
'... Sortierung
rngAlteZelle.Select

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de, Homepage: www.xl-faq.de

Volkmar Dierkes

unread,
Dec 11, 2001, 6:53:45 AM12/11/01
to
Hallo Rolf,

"Rolf Kaufmann" <rolf.k...@berberich.de> schrieb im Newsbeitrag
news:Xns91747B616AE8Dro...@207.46.230.185...


> Hallo alle zusammen,
>
> ich würde gerne folgendes machen:
>
> - die Position der momentan aktiven Zelle merken
> - bei einer Eingabe in die aktive Zelle ein Makro ausführen, das einen
> bestimmten Breich der Tabelle sortiert
> - die Zelle wieder aktivieren, in der die Eingabe stattfand
>
> Das Sortieren aufgrund einer Veränderung in der Zelle funktioniert, nur
> leider bleibt der Teil der Tabelle markiert, der durch das Makro sortiert
> wurde. Ich möchte aber in die Eingabezelle zurückkehren.

Am Anfang des Makros:

set merker = activecell

Am Ende des Makros

merker.select

Volkmar


Rolf Kaufmann

unread,
Dec 11, 2001, 7:23:38 AM12/11/01
to

@Frank und Volkmar
Alles klar, und danke für die schnelle Antwort.

Torsten Wachholz

unread,
Dec 12, 2001, 11:02:55 AM12/12/01
to
Hallo Frank,

>Dim rngAlteZelle as Range
> rngAlteZelle = ActiveCell
> '... Sortierung
> rngAlteZelle.Select

Echt Klasse, suchte ich auch gerade. Aber wie mache ich das mit einem
markierten Bereich? Ich bekomm die Syntax einfach nicht hin.

Var = Markierter Bereich (Selektion?)
mach was anderes
Range(Var).Select

Daran bin ich völlig gescheitert. :-/

Gruß Torsten

f.risling

unread,
Dec 12, 2001, 6:04:48 PM12/12/01
to
Tach,
Dim rngAktuellerBereich as Range
Set rngAktuellerBereich = ActiveWindow.RangeSelection
MsgBox rngAktuellerBereich.Address

Range(Var) kannst du dir dann sparen weil die VariablerngAktuellerBereich
selbst ein Range darstellt, also
rngAktuellerBereich.Select

Mfg, Franz

"Torsten Wachholz" <Torsten....@eilenriedestift.de> schrieb im
Newsbeitrag
news:Xns9175ACBC5474ID...@ID-58299.user.dfncis.de...

Frank Arendt-Theilen

unread,
Dec 13, 2001, 2:30:36 AM12/13/01
to
Hallo Torsten
wie folgt:

Dim rngBereich as Range
Set rngBereich = Selection
' deine Anweisungen
rngBereich.Select

0 new messages