Ankündigung

Einklappen
Keine Ankündigung bisher.

VBA Excel Fenster zum Auswählen einer Range

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

    VBA Excel Fenster zum Auswählen einer Range

    Hi servus,

    ich verusche gerade eine Makro in Excel zu entwerfen, dass mir einige Zeilen durcharbeitet.
    Nun würde ich aber gerne zum Definieren des Bereichs dem Makrobenutzer ein Fenster wie ne msgbox öffenen lassen, damit er dort die Range eingeben kann. Am besten, dass er manuell die Bereich markieren kann.

    Kann mir da jemand weiter helfen?

    danke und Gruß

    #2
    Einfach einen Dialog in Excel erstellen oder aber auf die zweite Seite des Sheets einfach die Möglichkeit einbauen.

    Bei einem Dialog einfach Von [ ] [ ] bis [ ] [ ]

    Mit markieren könntest du es so machen: Zweite Seite vom Sheet, dort soll er Von - Bis markieren und dann einen Button drücken der halt untersucht was markiert wurde.

    [hr]

    Hier mal ein Beispiel: Click

    Dort kannst einfach einen beliebigen Bereich markieren und mit "Bereich speichern" liest er die Markierung aus und schreibt sie einmal komplett in ein Feld und einmal aufgeteilt.

    Code:
    Spoiler: 
    Sub BereichSpeichern()
    Set Bereich = Selection

    Dim sAdresse As Variant
    sAdresse = Split(Bereich.Address, "$")
    Range("V1") = CStr(Bereich.Address)

    Range("V2") = CStr(sAdresse(1))
    Range("W2") = CStr(Replace(sAdresse(2), ":", ""))

    If Len(Bereich.Address) >= 5 Then
    Range("X2") = CStr(sAdresse(3))
    Range("Y2") = CStr(sAdresse(4))
    End If
    End Sub


    Ups, im Code ist noch ein kleiner Fehler. Ersetze "If Len(Bereich.Address) >= 5 Then" mit "If Len(Bereich.Address) >= 9 Then" und es sollte funktionieren.

    Und ein "Range("V1:Y2").ClearContents" hätte am Anfang des Codes auch net geschadet, sorry ;)

    Kommentar


      #3
      Ok, funktioniert wunderbar. Thx :)

      Kommentar

      Lädt...
      X