Office: (Office 2013) VBA Tabellenblatt aus bestehendem File kopieren, umbenennen und ans ende stellen

Hallo zusammen,

nachdem mir viele Tipps bisher aus diesem Forum geholfen haben, möchte ich mich erstmal bedanken :-)
Ich habe mich jetzt hier registriert, da ich nicht weiterkomme.

Ich möchte das Problem mal erläutern:

Ich habe eine Datei erstellt, welche ein Project Overview darstellt.
Das erste Tabellenblatt ist lediglich eine Übersicht der Projekte, welche wir bearbeiten oder bearbeitet haben.
Ich habe hier über VBA eine Eingabemaske erstellt, um die erforderlichen Daten eingeben zu können.
Das funktioniert ganz gut und soweit bin ich auch zufrieden.

Des Weiteren habe ich einen Button eingefügt um ein neues Tabellenblatt unter Eingabe einer Project-No. anzulegen.
Dieses Tabellenblatt wird am Ende eingefügt, sodass die Übersicht immer als erstes Tabellenblatt zu sehen ist.

Hier der Code:
Private Sub CommandButton5_Click()

Dim wks As Worksheet
Dim strNam As String
strNam = InputBox("Please type the number of this project", "Blattname", "Tabelle")
If strNam = "" Then Exit Sub
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number <> 0 Then
Set wks = Worksheets.Add(Worksheets(1))
wks.Name = strNam
ActiveSheet.Move After:=Sheets(Sheets.Count)
Else
MsgBox ("Project already exists")
End If
On Error Resume Next
End Sub

Ich möchte nun diesen Code modifizieren, um ein Tabellenblatt aus einer anderen Datei einzufügen.
Diese sollte aber wie oben benannt werden können und am Ende eingestellt werden.

tue mich da ziemlich schwer, wahrscheinlich ist diese Lösung überaus einfach :-)

Könnte mir einer meinen Code modifizieren?

Vielen Dank im Voraus

 

Hi,

hast du schon mal den Code mit dem Makrorekorder aufgezeichnet, wie du ein Tabellenblatt aus einer anderen Mappe kopierst?

Bis später,
Karin

 

hi Karin,
ja hab ich, aber ich glaube ich bin trotz allem wohl zu blöd die beiden mit einander zu verknüpfen.
einzeln geht das, aber verknüpft bekomme ich sie nicht.

 

Hi,

an welcher Stelle hakt es denn?

Bis später,
Karin

 

ich habe den File soweit fertig, dass eine tabelle über die betätigung eines buttons erstellt wird und ans ende meiner Arbeitsmappe plaziert wird.
Ich habe den File mal hochgeladen für besseres Verständnis.
Was ich möchte, wäre aber, dass eine vorgefertigte tabelle aus einem anderen File reinkopiert wird, in denen diverse details der jeweiligen Projekte eingetragen werden können.
Optimal wäre es, wenn man auf den button speichern klickt, und das automatisch abläuft, somit könnte ich Zeit sparen :-)

 

Ich sehe in deiner Mappe keinen mit dem Makrorekorder aufgezeichenten Code, der eine Tabelle aus einer anderen Arbeitsmappe kopiert - ich denke, das sollte schon das Mindeste sein, was du bereitstellst.

Ich stelle mir außerdem die Frage, weshalb das Vorlagen-Tabellenblatt in einer anderen Arbeitsmappe sein muss...

Bis später,
Karin

 

Ok, ich stelle die Aufzeichnung gleich rein. Die Makros kannst du aber einsehen.
Mir geht es ja nur um das oben erwähnte makro, welches ich modifizieren möchte.
Die Tabelle die eingefügt werden soll ist notwendig, da wir einen definierten ablauf haben was Projekte angeht.
Der Anfang ist immer gleich.
In dieser Zusatztabelle sind nicht nur die Zeitdaten drin, sonder auch spezifische Angaben, die der jeweilige Projektleiter angeben muss.
Ich möchte mir die Zeit sparen, dass die tabelle jedesmal neu erstellt und entsprechend formatiert werden muss.

 

ich weiss ja nicht wie ich das obige makro modifizieren kann, um eine vorgefertigte tabelle aus einem anderem excel file dort einzufügen, oder diesen file mit neuem namen hinter die übersicht bringen kann.

 

Die vorhandenen Makros in deiner Mappe interessieren erst einmal nicht, wenn du einen Code aufzeichnen und diesen posten sollst.
Du möchtest den aufgezeichneten Code nicht posten? Sorry, aber etwas solltest du schon selbst zur Lösung deines Problem beitragen.

Bis später,
Karin

 

Hallo Karin,
ich glaube hier liegt ein Missverständnis vor. Alles grad ein wenig hektisch hier...
Einen Code den ich nicht habe, kann ich nicht posten...
In meinem ersten post, habe ich einen code geschrieben. Dieser Code funktioniert auch super. Es wird eine tabelle ans ende gestellt und ich kann diese benennen.
Ich möchte aber eine tabelle kopieren, einfügen und benennen und ich weiss nicht wie ich den code modifizieren soll.

Hier der Code:
Private Sub CommandButton5_Click()

Dim wks As Worksheet
Dim strNam As String
strNam = InputBox("Please type the number of this project", "Blattname", "Tabelle")
If strNam = "" Then Exit Sub
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number <> 0 Then
Set wks = Worksheets.Add(Worksheets(1))
wks.Name = strNam
ActiveSheet.Move After:=Sheets(Sheets.Count)
Else
MsgBox ("Project already exists")
End If
On Error Resume Next
End Sub

 

Hi,

das Missverständnis liegt nicht bei mir sondern bei dir: ich hatte breits 2mal geschrieben, dass du den Code für das Einfügen des Tabellenblattes aus einer anderen Mappe mit dem Makrorekorder aufzeichnen und posten sollst - wievielmal muss ich das noch schreiben? ;)

Bis später,
Karin