Excel Worksheets markieren per ComboBox

Hallo,
seit paar Tage trette ich auf der stelle, mein Problem ist folgender.
Ich habe eine Excel Datei (.xlsm) mit ein paar Hundert Tabellenblättern. Der Name der Tabellenblätter ist nicht einheitlich (zb. ABC1, Blub1, XYZ2, foobar2 usw. usf.)
Ich habe zwei ComboBox'en beide fülle ich mit den Namen der Tabellenblätter und dann möchte in den Sheets Bereich zwischen ComboBox1 und ComboBox2 markieren, sprich ich wähle in der ComboBox zb. Sheet xyz1 und xyz40 und alle diese Sheets möchte ich markieren.
Für das laden der Beiden ComboBox'en nutze ich folgenden Code:

Private Sub UserForm_Initialize()
Dim i As Integer
        
With Worksheets("ErstesSheet")  

    Me.ComboBox1.Clear
     
        For i = 1 To ThisWorkbook.Worksheets.Count
            
            Me.ComboBox1.AddItem Worksheets(i).Name
        
        Next
     
    Me.ComboBox2.Clear
        
        For i = 1 To ThisWorkbook.Worksheets.Count
        
            Me.ComboBox2.AddItem Worksheets(i).Name
            
        Next
    
End With
End Sub

Jetzt möchte ich per Button, die vorgenommene Auswahl der Tabellenblätter markieren, später Strg + P und Drucken.

Vielleicht kann mir jemand weiterhelfen mit dem fehlenden Puzzle.
Danke

Please also mark the comments that contributed to the solution of the article

Content-Key: 372756

Url: https://administrator.de/contentid/372756

Printed on: April 19, 2024 at 15:04 o'clock

5 Comments

Latest comment

Private Sub CommandButton1_Click()
    Worksheets(Array(ComboBox1.Text, ComboBox2.Text)).Select
End Sub

Sollte dein Button nicht "CommandButton1" heißen, dann entsprechend anpassen ...

Steffen

Hi, Danke für die Antwort.
Dein Code markiert leider nur die beiden Sheets die man aus der ComboBox auswählt, mir geht darum, dass auch die Sheets die dazwischen liegen mit markiert werden.

Hast du dein Problem gelöst?

Dann musst du dir das Array zusammenstellen. Etwa so:

Private Sub CommandButton1_Click()
    Dim i As Long, idx As Long, arr() As String

    idx = 0
    For i = Worksheets(ComboBox1.Text).Index To Worksheets(ComboBox2.Text).Index
        ReDim Preserve arr(idx)
        arr(idx) = Worksheets(i).Name
        idx = idx + 1
    Next
    Worksheets(arr).Select
End Sub

Steffen

Dankeschön, genau das habe ich gesucht.

Ich wusste, dass ich es per Array machen muss (geht ja nicht anders), leider habe ich es nicht geschafft diese zu bauen.
Thx

German solved Question Microsoft Office Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 3 Comments

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

WIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment