habe ein Problem, ein VBA Script für den Export von Tabellenblättern anzupassen. Und zwar handelt es sich um folgendes, was meinen ausgewählten Bereich (i3:i27 = True) schon drucken kann. Die Namen der zu druckenden/exportierenden Blätter stehen in H3:H27.
------------
Private Sub CommandButton1_Click() ' Bereich für die Druckauswahl
Dim i As Integer, j As Integer
Dim arrSheets()
If Application.WorksheetFunction.CountIf(Range("I3:I27"), True) = 0 Then
MsgBox "Keine Auswahl getroffen"
Exit Sub
End If
For i = 3 To 27
If Cells(i, 9) = True Then
ReDim Preserve arrSheets(j)
arrSheets(j) = Cells(i, 8)
Sheets(arrSheets(j)).Visible = True
j = j + 1
End If
Next
Sheets(arrSheets).Select
Application.Dialogs(xlDialogPrint).Show
Sheets(arrSheets).Visible = False
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = xlSheetVisible
Next
Sheets("Auswahl").Select
End Sub
-------
Hat einer von Euch eine Idee oder sogar schon eine Lösung Parat.
Danke Euch für eure mithilfe. Ach ja, es handelt sich um eine xlsm-Datei. Aus der exportiert werden soll. Es sollen die Werte der Blätter und die Bedingte Formatierung in eine Neue Datei übernommen werden, die aus Zelle B3 ihren Namen beziehen soll.