Ich habe eine Datei mit mehreren Tabellenblätter. 4 davon liefern mir Resultate welche ich je nach Bedarf durch die Auswahl der 4 Checkboxen in eine separate Datei exportieren kann. Das ist mir mit folgendem Code gelungen:
= Dim bReportDelta As Boolean: bReportDelta = Worksheets(constWorksheetNameSteuerung) .Shapes(constCheckBoxReportDelta).OLEFormat.Object.Value > = 0
Dim bReportRating As Boolean: bReportRating = Worksheets(constWorksheetNameSteuerung).Shapes(constCheckBoxReportRating).OLEFormat.Object.Value >= 0
Dim bReportInventar As Boolean: bReportInventar = Worksheets(constWorksheetNameSteuerung).Shapes(constCheckBoxReportInventar).OLEFormat.Object.Value >= 0
Dim bReportEvolan As Boolean: bReportEvolan = Worksheets(constWorksheetNameSteuerung).Shapes(constCheckBoxReportEvolan).OLEFormat.Object.Value >= 0
Dim i As Integer, Sh As Integer
If bReportDelta Then
If bReportRating Then
If bReportInventar Then
If bReportEvolan Then
Sheets(Array("Bilanz_ER", "Auswertung_Rating", "Auswertung_Inventar", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Bilanz_ER", "Auswertung_Rating", "Auswertung_Inventar")).Copy
End If
ElseIf bReportEvolan Then
Sheets(Array("Bilanz_ER", "Auswertung_Rating", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Bilanz_ER", "Auswertung_Rating")).Copy
End If
ElseIf bReportInventar Then
If bReportEvolan Then
Sheets(Array("Bilanz_ER", "Auswertung_Inventar", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Bilanz_ER", "Auswertung_Inventar")).Copy
End If
ElseIf bReportEvolan Then
Sheets(Array("Bilanz_ER", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Bilanz_ER")).Copy
End If
ElseIf bReportRating Then
If bReportInventar Then
If bReportEvolan Then
Sheets(Array("Auswertung_Rating", "Auswertung_Inventar", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Auswertung_Rating", "Auswertung_Inventar")).Copy
End If
ElseIf bReportEvolan Then
Sheets(Array("Auswertung_Rating", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Auswertung_Rating")).Copy
End If
ElseIf bReportInventar Then
If bReportEvolan Then
Sheets(Array("Auswertung_Inventar", "Auswertung_Evolan")).Copy
Else
Sheets(Array("Auswertung_Inventar")).Copy
End If
ElseIf bReportEvolan Then
Sheets(Array("Auswertung_Evolan")).Copy
End If
Nun suche ich nach einer Vereinfachung, damit allenfalls auch eine 5 Auswahlmöglichkeit eingefügt werden kann ohne x-Zeilen neuen Code zu schreiben. Gibt es Variante mit einer Schlaufe?