hätte da mal ne Frage. Wie kann ich das verbinden?
Worksheets.Add.Name = Sheets("Mitarbeiter").Cells(z, 3).Value
und
Sheets.Add After:=Sheets(Worksheets.Count)
Ich möchte ein Blatt neu benennen und ans Ende stellen.
Danke für jede Hilfe.
Gruß Andi
Sub Andi()
Dim z As Long
z = 10
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Mitarbeiter").Cells(z, 3).Value
End Sub