ich habe mir folgendes Makro geschrieben, dass mir ein neues Tabellenblatt erzeugt und den Name des Blattes aus einer Zelle liest. Läuft soweit.
Nun bräuchte ich noch den Zusatz, dass vom Ausgangsblatt ("Tabelle1"), der Bereich D1:F28 kopiert wird und
jeweils in das neu erzeugte Tabellenblatt eingesetzt wird, jedoch nur die Werte OHNE Formeln. Ich weiss zwar die einzelnen Befehle aber es scheitert an der Syntax. Hilfe wäre toll :-)
Danke schonmal,
Chris
Sub x()
On Error GoTo fehler
bez = Sheets(1).Range("C1").Value
Sheets.Add
With ActiveSheet
.Move after:=Sheets(2)
.Name = "KW" & " " & bez
Sheets(1).Activate
End With
Exit Sub
fehler:
MsgBox "Doppelte Sheetnamen nicht möglich!", vbInformation
End Sub