Hallo Zusammen,
ich möchte noch einmal auf meinen Beitrag vom 03.12. anknüpfen, jetzt mit Beispieldatei.
Auf dem Arbeitsblatt "Deckblatt" habe ich einen Button, darüber Starte ich das Makro "Konvertieren"
Das Makro macht folgendes:
- Löschen von Kommentaren
- Löschen von Command Button
- Löschen von Schaltflächen
- Speichern der Datei als pdf und xlsx, anschließend zurück zur Ursprungsdatei (Mit Makro, etc.)
Das funktioniert auch gut.
Ich hätte gerne noch ergänzt, dass Ausgeblendete Zeilen im Arbeitsblatt "Deckblatt" und "Gefährdungsbeurteilung" auch gelöscht werden.
Hier die Beispieldatei
https://www.herber.de/bbs/user/149594.xlsm
Folgenden Code habe ich aus dem letzten Beitrag um Ausgeblendete Zeilen zu löschen, ich bekomme ihn aber nicht fehlerfrei integriert.
Vielen Dank für Eure Hilfe
Gruß Ulli
Dim TBN As Worksheet, LR As Long, TMP As String, L As Long
Select Case wks.Name ' ausgeblendete Zeilen löschen
Case "Deckblatt", "Gefährdungsbeurteilung"
LR = wks.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If LR (größer Zeichen) 1 Then
For L = LR To 1 Step -1
If wks.Rows(L).Hidden Then
wks.Rows(L).Delete
End If
Next
End If
End Select
Next