Thema Datum  Von Nutzer Rating
Antwort
08.10.2008 09:00:44 anfänger
NotSolved
Blau Aw:Öffnen/schließen/kopieren von Dokumenten
 08.10.2008 17:25:19 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
08.10.2008 17:25:19		 Views:
1330		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Öffnen/schließen/kopieren von Dokumenten
Hallo anfänger,
du hast also eine Atbeitsmappe "Dokument1" geöffnet, die ein Arbeitsblatt "Tabelle1" enthält.
Ich gehe mal davon aus, dass du nur die Arbeitsmappen auswählen willst und jeweils das dann automatisch angezeigte Arbeitsblatt kopieren willst. Da ich nicht weiß, auf welchem Tebellenblatt du die Namen der Arbeitsmappen und -blätter eingefügten Arbeitsblätter speichern willst, setzte ich sie dir in die erste Spalte der "Tabelle1" in die erste freie Zeile.

Sub tabellenblattEinfügen()
lz = Workbooks("Dokument1").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Application.DisplayAlerts = False
For k = 1 To 10
Workbooks("Dokument1").Sheets.Add After:=Workbooks("Dokument1").Sheets("Tabelle1")
n = ActiveSheet.Name
Workbooks.Open Filename:=Application.GetOpenFilename()
wb = ActiveWorkbook.Name
Sh = ActiveSheet.Name
ActiveSheet.Cells.Copy
ActiveWorkbook.Close
Workbooks("Dokument1").Sheets(n).Paste
Workbooks("Dokument1").Sheets("Tabelle1").Cells(lz + k, 1) = wb + ": " + Sh
Next k
Application.DisplayAlerts = True
End Sub

Viel Erfolg
Holger

anfänger schrieb am 08.10.2008 09:00:44:

Hallo liebe VB-Profis,

hab leider folgendes Problem:

Mein kleines Makro fügt 10 Dokumente(Arbeitsblatt) in das Dokument "Dokument1" ein, die ich davor über das Application.GetOpenFilename auswählen kann und öffne. Mein Problem ist, dass ich nun noch gerne den Dokumentennamen der neu geöffneten Tabellen auf einem weiteren Arbeitsblatt speichern würde. Kann mir jemand helfen. Außerdem würd ich gerne nach dem Kopieren die zuvor geöffneten Dokumente wieder schließen, damit am Ende nur noch das Hauptdokument mit allen neuen Arbeitsblättern geöffnet ist.
Wie geht das?

Danke im Voraus für eure Hilfe.

Grüße
Der Anfänger

Sub tabellenblattEinfügen()

For k = 1 To 10
Workbooks.Open Filename:=Application.GetOpenFilename()
ActiveSheet.Select
ActiveSheet.Copy After:=Workbooks( _
"Domukent1").Sheets("Tabelle1")

Next

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.10.2008 09:00:44 anfänger
NotSolved
Blau Aw:Öffnen/schließen/kopieren von Dokumenten
 08.10.2008 17:25:19 Holger
NotSolved