Alle Felder einer Auswahl

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2000
nach unten

Betrifft: Alle Felder einer Auswahl
von: Günter
Geschrieben am: 11.04.2002 - 08:29:57

Hallo,
ich habe folgendes Excel Problem:
Wenn ich einen Bereich auswähle (ganz normal mit gedrueckter Maustaste) wie kann ich dann im Makro abfragen, ob:
- Die Auswahl in Vertikale oder Horizontale Richtung geht
- Welches, ausgehend von der ersten Zelle, die Nachfolgezelle (Adresse) ist
-(Ganz Wichtig) die Letzte Zelle der Auswahl

Vielen Dank im voraus

nach oben   nach unten

Re: Alle Felder einer Auswahl
von: WernerB.
Geschrieben am: 11.04.2002 - 18:43:27

Hallo Günter,

erfüllt Dir dieses Makro Deine Wünsche?


Option Explicit
Sub BereichsWerte()
Dim Bereich As String, lo As String, ru As String, ar As String, fz As String
Dim zo As Long, zu As Long
Dim sl As Integer, sr As Integer
    Bereich = Selection.Address(False, False)
    lo = Left(Bereich, WorksheetFunction.Find(":", Bereich) - 1) 'links oben
    ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":"))      'rechts unten
    zo = Range(lo).Row                                           'Zeile oben
    zu = Range(ru).Row                                           'Zeile unten
    sl = Range(lo).Column                                        'Spalte links
    sr = Range(ru).Column                                        'Spalte rechts
    If sr - sl > zu - zo Then ar = " horizontal !"
    If sr - sl < zu - zo Then ar = " vertikal !"
    If sr - sl = zu - zo Then ar = " so lang wie breit !"
    fz = Range(lo).Offset(0, 1).Address(False, False)
    If sr - sl < zu - zo Then fz = Range(lo).Offset(1, 0).Address(False, False)
    MsgBox "Die Zellenausrichtung ist" & ar & Chr(10) & _
           "Adresse der Folgezelle: " & fz & Chr(10) & _
           "Adresse der letzten Zelle: " & ru, vbExclamation, _
           "Hinweis für " & Application.UserName & ":"
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Alle Felder einer Auswahl
von: Günter
Geschrieben am: 12.04.2002 - 07:30:03

Vielen Dank an den großen, weisen Excel Meister WernerB.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Alle Felder einer Auswahl"