Tabellenblattname über Combox definieren
22.10.2015 12:37:25
Andreas
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
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?
Anzeige