Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Verschiedene Tabellenblätter kopieren |
04.02.2021 11:58:46 |
Andi2020 |
|
|
|
04.02.2021 12:15:54 |
ralf_b |
|
|
|
04.02.2021 15:54:55 |
Gast61335 |
|
|
|
04.02.2021 16:20:07 |
Gast12025 |
|
|
|
04.02.2021 16:13:01 |
ralf_b |
|
|
|
04.02.2021 20:31:49 |
Andi2020 |
|
|
|
04.02.2021 21:38:42 |
ralf_b |
|
|
|
05.02.2021 15:38:53 |
Andi2020 |
|
|
|
05.02.2021 18:11:02 |
ralf_b |
|
|
|
05.02.2021 21:14:10 |
Gast47038 |
|
|
|
06.02.2021 18:15:08 |
Andi2020 |
|
|
Von:
Andi2020 |
Datum:
04.02.2021 11:58:46 |
Views:
1250 |
Rating:
|
Antwort:
|
Thema:
Verschiedene Tabellenblätter kopieren |
Hallo zusammen,
Ich möchte eine andere Excel Datei öffnen in der die Tabellenblätter 1(55abc), 2(55d), 3(55i), 4(55i) usw. also weiter mit (55i) Blätter enthalten sind. Die Tabellenblätter die ich benötige sind quasi die mit (55i). Die erste Zahl kann immer eine andere sein. Jedenfalls bekomme ich es nur hin das ich von einem Tabellenblatt gewisse Daten in meine Neue Tabelle kopiert bekomme. Aber ich möchte von jedem Tabellenblatt das (55i) enthält diese Daten. Und diese kopierten Daten sollen dann untereinander, in der neuen Tabelle stehen. Mein Dokument aus dem ich die Daten ziehe kann mal viel, mal wenig Tabellenblätter mit (55i) haben.
Kann mir bitte jemand helfen?
Hier habe ich mal ein ausschnitt was ich bisher habe.
Sub DatenHolen()
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsm),*.xlsm")
Workbooks.Open Filename:=ExportDatei
Pfad1 = CurDir
Worksheets("3(55i)").Range("AA10:AI72").Copy
Workbooks("Serienpunkte auslesen.xlsm").Worksheets("Tabelle1").Range("A2").PasteSpecial xlPasteValues
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Verschiedene Tabellenblätter kopieren |
04.02.2021 11:58:46 |
Andi2020 |
|
|
|
04.02.2021 12:15:54 |
ralf_b |
|
|
|
04.02.2021 15:54:55 |
Gast61335 |
|
|
|
04.02.2021 16:20:07 |
Gast12025 |
|
|
|
04.02.2021 16:13:01 |
ralf_b |
|
|
|
04.02.2021 20:31:49 |
Andi2020 |
|
|
|
04.02.2021 21:38:42 |
ralf_b |
|
|
|
05.02.2021 15:38:53 |
Andi2020 |
|
|
|
05.02.2021 18:11:02 |
ralf_b |
|
|
|
05.02.2021 21:14:10 |
Gast47038 |
|
|
|
06.02.2021 18:15:08 |
Andi2020 |
|
|