Code vervollständigen
21.11.2013 12:58:28
Andreas
mit folgenden Code kopiere ich das aktive Blatt und benenne es durch Inhalt von Combobox1 (auf UserForm).
Die Combobox bezieht ihren Inhalt aus einem Namensbereich (Woche). Dieser Namensbereich befindet sich auf einem Blatt in Spalte C.
Folgendes fehlt mir jetzt noch:
Nach dem Kopieren und umbenennen des Blattes, soll noch der Wert aus Spalte A (der Auswahl der Combobox) in die Zelle C1 des kopierten Blattes geschrieben werden.
Also: Auswahl von C3 (über Combobox), dann Wert aus A3 in Zelle C1 der Kopie.
Private Sub CommandButton1_Click()
Dim NewTabelName As String
'Neuen TabellenName aus Combobox holen und merken
NewTabelName = ComboBox1.Value 'ActiveSheet.Range("$C$3").Value
'Tabelle kopieren und hinter der letzten Tabelle einf?gen
ActiveSheet.Copy After:=Sheets(Sheets.Count)
'der neuen Tabelle den Name geben
Sheets(Sheets.Count).Name = NewTabelName
'With ActiveSheet
' .Range("C1") =
'End With
End Sub
Danke fürs lesen und die Hilfe!mfg, Andreas