Tabelle kopieren in neuer Datei
15.06.2018 13:01:36
Janine
Bisher hab ich ein Code erstellt in der er mir die Kopierte Tabelle einfach am Ende einfügt. Finde es aber besser wenn er mir die Tabelle in einer ganz neuen Arbeistmappe öffnet. Finde dafür aber nicht so die richtige Lösung im Internet.
Dies ist mein bisheriger Code.
Sub Mitarbeiter()
Dim NewName As String
With Sheets("Mitarbeiter")
Dim Zeile As Long 'Zeile wählen'
Zeile = Selection.Row
Cells(Zeile, 1).Copy
Sheets("Mitarbeiter").Range("B6").PasteSpecial xlPasteAll 'Vorname*
Cells(Zeile, 2).Copy
Sheets("Mitarbeiter").Range("E6").PasteSpecial xlPasteAll 'Nachname'
Cells(Zeile, 3).Copy
Sheets("Mitarbeiter").Range("B7").PasteSpecial xlPasteAll 'Wohnort'
Cells(Zeile, 4).Copy
Sheets("Mitarbeiter").Range("E7").PasteSpecial xlPasteAll 'Abteilung'
.Copy After:=Sheets("Mitarbeiter") 'Tabelle kopieren'
End With
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
ActiveSheet.Name = NewName
Select Case Combobox.Value
Case "Mitarbeiter"
End Select
Sheets("Mitarbeiter").Range("B6,B7,E6,E7").ClearContents 'Daten löschen'
End Sub
Anzeige