... als ungeübter versuche ich einen code zu machen
ein tei funktioniert aber nun kommt mein anliegen. ich mochhte in einer Datei eine deue Tabelle erstellen. diese tabelle soll dann eine Vorlage hochholen und wiederum msoll dann bei diesem neuen tabellenblatt ein bereich aus einem bestehnden Tabellenblatt mitgenommen werden.
Sub neu_tabelle_Click()
Dim Ziel As Range, _
Wert As String
Set Ziel = Application.InputBox(" Welche Zelle möchten Sie auswählen? [Namen mit _ verbinden!]", Type:=8)
Wert = Ziel
MsgBox "die Tabelle bekommt den Namen: " _
& vbNewLine & vbNewLine & Wert
Sheets("1_Kopfdaten").[b4:f4].Copy Sheets("wert").[b4]
'Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add Type:="\\Vorlagen\HOCH.xls"
ActiveSheet.Name = Wert
Cells(2, 6) = ActiveSheet.Name
End Sub
besten Dank für die hilfe !
mit Gruss
Jürg