Vielen Dank für die schnelle Antwort :-)
Ich habe das gleich mal so kopiert und bekomme nun leider folgenden Fehler:
Laufzeitfehler '1004': Anwendungs-oder objektdefinierter Fehler
Der Bereich
.Cells = .Cells.Value
wird markiert...
?!?
Private Sub CommandButton1_Click()
Dim arrTabellen() As Variant
Dim t As Integer
'hier die Namen der Tabellenblätter eintragen
arrTabellen = Array("Stammdaten", "Leistungen", "Absatz u DB")
'nun nacheinander die Tabellenblätter durchlaufen
'vom ersten Blatt (LBound) bis zum letzten Blatt (Ubound)
For t = LBound(arrTabellen) To UBound(arrTabellen)
With ThisWorkbook.Worksheets(arrTabellen(t)).UsedRange
.Cells = .Cells.Value
End With
Next t
'Speichern-Unter-Dialog aufrufen
Application.Dialogs(xlDialogSaveWorkbook).Show
End Sub
Vielen Dank & lG