|
Hallo,
nach dem Muster:
Sub Schaltfläche1_Klicken()
Dim loLetzte As Long, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Lagerliste" Then
MsgBox "Fehler: Vorgang abgebrochen. Das Blatt Lagerliste existiert schon."
Exit Sub
End If
Next ws
Application.ScreenUpdating = False
Worksheets.Add after:=Worksheets(Sheets.Count)
ActiveSheet.Name = "Lagerliste"
With Worksheets("Lagerliste")
.Range("A1") = Date
.Range("B1") = "DE"
End With
With Worksheets("Error")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(2, "A"), .Cells(loLetzte, "A")).Copy _
Worksheets("Lagerliste").Range("D2")
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range(.Cells(2, "C"), .Cells(loLetzte, "C")).Copy _
Worksheets("Lagerliste").Range("K2")
loLetzte = .Cells(.Rows.Count, "D").End(xlUp).Row
.Range(.Cells(2, "D"), .Cells(loLetzte, "D")).Copy _
Worksheets("Lagerliste").Range("U2")
End With
End Sub
Für die restlichen Spalten ist das Copy/Paste mit Anpassung der Spalten.
Gruß Werner
|