Makro mit sich änderndem Tabellenblattnamen
Max
um Daten aus einem Tabellenblatt auszulesen und in ein anderes Tabellenblatt zu übertragen,
verwende ich eine Userform mit einer Combobox.
Das Tabellenblatt aus welchem ausgelesen wird jedes Jahr neu angelegt und bezeichnet:
Tabelle2011, Tabelle 2012 etc.
Lassen sich die zwei Verweise im Makrotext so ändern, daß das Makro nicht jedes Jahr von Hand geändert werden muß und ab Jahresbeginn den jeweils neuen Tabellenblattnamen akzeptiert?
Private Sub ComboBox1_Change()
Dim iCounter As Integer
For iCounter = 1 To 15
Controls("TextBox" & iCounter).Text = _
Worksheets("Tabelle2011").Cells(ComboBox1.ListIndex + 11, iCounter) 'Zeile
Next iCounter
End Sub
Private Sub UserForm_Initialize()
With Worksheets("Tabelle2011")
ComboBox1.List = _
.Range(.Cells(11, 1), .Cells( _
.UsedRange.Rows.Count, 1)).Value
End With
End Sub
Vorab schonmal vielen Dank für die Mühe
Gruss
Max
Anzeige