Hallo zusammen,
ersteinmal eine Anmerkung zum Level: Excel gut - VBA Anfänger wäre besser
Also ich habe folgendes Problem:
Über ComboBoxen wird auf einem Tabellenblatt eine Anzahl (1 bis maximal 31) neu zu erstellender Tabellenblätter eingestellt, wobei ein verstecktes Tabellenblatt als Kopiervorlage dient. Per Klick über einen CommandButton wird die Erstellung der Tabellenblätter vorgenommen.
Makro:
Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("B").Visible = True
Dim i As Integer
Dim x As Integer
Dim y As Integer
x = Range("d13")
y = Range("d10")
For i = x To y Step -1
Sheets("B").Select
Sheets("B").Copy Before:=Sheets(1)
Sheets(1).Name = i
Sheets(1).Move After:=Sheets("OC")
Next i
On Error Resume Next
Sheets("B").Visible = xlVeryHidden
Täglich werden die einzelnen Tabellenblättern mit Werten in den dafür vorgesehen Zellen befüllt. Am Ende des zuvor eingestellten Zeitraums soll eine Konsoldierung stattfinden. Dabei soll per Klick auf einem CommandButton das versteckte Tabellenblatt "Konsoldierung" (Aufbau analog der erstellten Tabellenblättern)eingefügt werden und eine Konsolidierung der einzelnen Zellen stattfinden.
Meine Frage ist nun: Wie kann ich eine Konsolidierung bei einer nicht vorher bekannten Anzahl an Tebellenblättern vornehmen und wie kann ich einzelne Tabellenblätter, die nicht in die Konsoldierung mit einbezogen werden sollen, ausschleißen ?
Gruß André