Checkbox Arbeitsblätter speichern
06.12.2020 13:40:44
Ulrich
ich habe eine Frage:
Mit folgenden Code drucke ich Arbeitsblätter der Excel Datei, die durch Checkboxen ausgewählt wurden, funktioniert auch.
Jetzt hätte ich gerne folgendes geändert!
1.Änderung: Nach dem Aufruf des Makros sind die ausgewählten Arbeitsblätter Gruppiert, die Gruppierung sollte aber wieder aufgehoben sein.
2.Änderung (als neues Makro) Das Makro so modifiziert, das die markierten Arbeitsblätter nicht gedruckt sondern im gleichen Ordner als Exceldatei gespeichert werden. (ich denke der Dateiname muss angepasst werden)
3. Änderung (Neues Makro) Das Makro so modifiziert, das die markierten Arbeitsblätter nicht gedruckt sondern im gleichen Ordner als pdf Datei gespeichert werden und die pdf geöffnet wird.
Kann mir hier einer helfen?
Ich find nichts passendes
Gruß Ulli
Sub Druck_Kontrollkästchen()
Dim i As Long
Dim oCheckbox As CheckBox
Dim strWs() As String
For Each oCheckbox In ActiveSheet.CheckBoxes
If oCheckbox.Value = 1 Then
i = i + 1
If i = 1 Then
ReDim strWs(1 To 1)
Else
ReDim Preserve strWs(1 To i)
End If
strWs(i) = oCheckbox.Caption
End If
Next oCheckbox
If i > 0 Then
Sheets(strWs).PrintPreview
'oder gleich ohne Vorschau
'Sheets(strWs).PrintOut
Else
MsgBox "Es wurde kein Blatt ausgewählt.", vbInformation
End If
End Sub
