habe unterstehende code mit eure hilfe gebaut.
Problemen:
1) Jede 2 Zeile markiert mit Interior.ColorIndex = 28, beim Kopieren in neue Arbeitsblatt ändert sich die Farbe.
2) Buttons erstellt mit Textfeld, wie kan ich die Löschen habe mehere sachen probiert sehe hochkomma
3) wie kan men makro code Löschen die in tabelleblatter sind die kopiert werden in neue Arbeitsblatt.
Sub UnterNamenSpeichern()
Dim wb As Workbook, ws1 As Worksheet, ws2 As Worksheet
Dim dName$
Set ws1 = ThisWorkbook.Worksheets("Order-Supplier")
Set ws2 = ThisWorkbook.Worksheets("Bedarfsermittlung")
ThisWorkbook.Worksheets(Array(ws1.Name, ws2.Name)).Copy
Set wb = ActiveWorkbook
With wb.Worksheets(ws1.Name)
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=xlPasteValues
.UsedRange.PasteSpecial Paste:=xlPasteFormats
' Löschen Buttons
'wks.Shapes("TextBox" & i).Delete ' Textfelder + inhalt löschen
'.Shapes("Schaltfläche 3").Delete
'.Shapes("Drop Down 1").Delete
If .Cells.SpecialCells(xlLastCell).Row = 18 Then
.Range(.Columns(18), .Columns(.Cells.SpecialCells(xlLastCell).Column)).Clear
End If
.Activate
.Range("A1").Select
dName = "C:\Test\" & _
.Range("D3") & " " & _
.Range("D4") & " " & _
.Range("D5") & ".xls"
'Löschen Zeilen 1 und 2
'Löschen Spalte A
'.Rows("1:2").Delete
'.Columns("A:A").Delete
Application.CutCopyMode = False
End With
With wb.Worksheets(ws2.Name)
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=xlPasteValues
.UsedRange.PasteSpecial Paste:=xlPasteFormats
.Activate
.Range("A1").Select
Application.CutCopyMode = False
End With
wb.SaveAs dName
wb.Close
Set ws1 = Nothing
Set ws2 = Nothing
Set wb = Nothing
End Sub
Grusse
Karel