ich möchte - sofern in einer Tabelle die Zelle C5 eine Zahl enthält die Tabelle kopieren und die Kopie nach dem Wert in der Zelle C5 benennen.
Vielen Dank für eure Hilfe
Mfg
Fritz
Sub Arbeitsblattkopie()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("C5").Value
End Sub
Sub Arbeitsblattkopie()
If Not IsEmpty(Range("C5")) Then
For sh = 1 To Sheets.Count
If Sheets(sh).Name = CStr(Range("C5")) Then
MsgBox "Arbeitsblatt " & Sheets(sh).Name & " existiert schon"
Exit Sub
End If
Next sh
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("C5").Value
End If
End Sub