Hallo Leute,
ich habe hier ein weiters Problem.
Mit diesem Code öffne ich einen neues Tabellenblatt in meiner Exceldatei (Datenbank) und kann es dann beschriften. Nach dem ich es beschriftet habe möchte ich gerne aus einer anderen Exceldatei (KNR.xls)die Spalten A bis E komplett in das neu angelegtes Tabellenblatt der anderen Exceldatei (Datenbank) hinein kopiert haben.
Gruß Hajo
Sub DATENBANK()
Dim strName As String
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Sheets.Add After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
neuname = InputBox("Neuer Name des Blattes")
ActiveSheet.Name = neuname
End Sub