Ich habe folgendes Problem:
In einer Pendenzenliste habe ich ein Arbeitsblatt namens "Muster", welches via Button auf einer Übersichtsseite kopiert werden kann und direkt in einem Eingabefenster umbenennt werden kann.
Wie bekomme ich es hin, damit nun Zellen vom neu erstellten Arbeitsblatt direkt verknüpft werden auf mein Übersichtsblatt?
Ich bekomme dies einfach nicht hin, da ich nicht weiss, wie ich das neue Arbeitsblatt im Code ansteuern kann, da es ja erst durch den Code einen Namen erhält.
Ebenfalls zur Kopie erstellt mein Code eine neue Zeile in der Übersichtsliste und sortiert die Zeilen.
Der Code fürs Kopieren sieht folgendermassen aus:
Sub Tabellenblatt_und_Zeile_einfügen()
' Reihe einfügen
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
' Kopie von Muster erstellen
Dim wks As Worksheet
Dim strNam As String
strNam = InputBox("Name?", "Eingabe", "Inhalt")
If strNam = "" Then Exit Sub
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number 0 Then
Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strNam
Else
MsgBox ("Name existiert bereist")
End If
ActiveWorkbook.Worksheets("Übersicht").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Übersicht").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("A11:A46"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Übersicht").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Leider kann ich die Datei nicht hochladen, da sie grösser als 300kB ist.Liebe Grüsse Daniel