Tabellenblattname über Combox definieren

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

Betrifft: Tabellenblattname über Combox definieren
von: Andreas
Geschrieben am: 22.10.2015 12:37:25

Hallo
wie kann ich in einem Modul festlegen, dass das auszuwählende Blatt über die Combobox definiert wird.
Die Combobox enthält die Namen bestimmter Tabellenblätter.

Private Sub UserForm_Initialize()
    Dim zähler As Long
   
     For zähler = 14 To 25
ComboBox10.AddItem (Worksheets(zähler).Name)
End Sub
Hier mein Code im Modul für die Makros.
Sub SEPAA1()
Dim wksData As Worksheet, wksPrint As Worksheet
Set wksData = ActiveWorkbook.Worksheets("Januar")
Set wksPrint = ActiveWorkbook.Worksheets("SEPAA")
Application.ScreenUpdating = False
wksData.Select
wksData.Range("A8").Select
wksPrint.Select
wksPrint.Range("b2:c50").ClearContents
wksPrint.Range("f2:f50").ClearContents
wksPrint.Range("b2").Select
wksData.Select
Call SEPAA2

End Sub Sub SEPAA2()
Dim wksData As Worksheet, wksPrint As Worksheet
Set wksData = ActiveWorkbook.Worksheets("Januar")
Set wksPrint = ActiveWorkbook.Worksheets("SEPAA")

If ActiveCell <> "" Then
ActiveCell.Offset(0, 50).Range("a1").Select

If ActiveCell = "A" Then
ActiveCell.Offset(0, -49).Range("a1:b1").Select
Selection.Copy
wksPrint.Select
ActiveCell.PasteSpecial xlPasteValues
ActiveCell.Offset(0, 4).Range("a1").Select
wksData.Select
ActiveCell.Offset(0, 48).Range("a1").Copy
wksPrint.Select
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveCell.Offset(1, -4).Range("a1").Select
wksData.Select
ActiveCell.Offset(1, -1).Range("a1").Select
Call SEPAA2

Else

ActiveCell.Offset(1, -50).Range("a1").Select
Call SEPAA2

End If
Else
Application.ScreenUpdating = True
MsgBox "Alle Daten wurden übertragen."

End If
End Sub
Es soll nun das Tabellenbatt "Januar" nicht fest sein, sondern die Auswahl über den Monat soll über die Combobox erfolgen und der ausgewählte Monate wird dann bei bisherigen Festmonat "Januar" eingefügt.
Weis hier jemand Rat?

Bild

Betrifft: AW: Tabellenblattname über Combox definieren
von: Rudi Maintaire
Geschrieben am: 22.10.2015 12:44:31
Hallo,
Set wksData = Worksheets(Userform1.ComboBox10)
Gruß
Rudi

Bild

Betrifft: AW: Tabellenblattname über Combox definieren
von: Andreas
Geschrieben am: 22.10.2015 13:17:49
Besten Dank.
Funktioniert.

Bild

Betrifft: dann doch geschlossen.
von: Rudi Maintaire
Geschrieben am: 22.10.2015 13:18:26


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblattname über Combox definieren"