Clever-Excel-Forum

Seiten: 1 2

Hallo zusammen,
ich stehe (mal wieder) vor einer Herausforderung. Und zwar habe ich eine Datei, in der ich alle Infos auf verschiedene Tabellenblätter von einem Masterblatt aus verlinke.
Nun würde ich gern für jedes dieser Tabellenblätter einen Button einfügen, der die gesammelten Infos auf Knopfdruck in eine andere Datei schreibt. Mein Code sieht bisher wie angehängt aus, funktioniert nur leider nicht... Hat jemand eine Idee?
Danke!

Code:
Private Sub CommandButton1_Click()

 Const strZiel As String = "C:\Dokumente\Orga_01\Vorlage_B.xlsx"   'Pfad + Dateiname

 Dim WB_B As Workbook

 Dim WsQuelle As Worksheet

 Dim WsZiel As Worksheet

 'Quellesheet definieren

    Set WsQuelle = ThisWorkbook.Tabelle1 ' <= eventuell falsch angepasst? Hier muss der Name des Ausgangsblattes hin, oder?

 'Ziel öffnen

    Set WB_B = Workbooks.Open(strZiel)

 'Zielsheet definieren:

    Set WsZiel = WB_B.Worksheets(1)              ' <= wie "richtig" anpassen?

 'kopieren:

    WsZiel.Range("A1").Value = WsQuelle.Range("A1").Value

 End Sub

Private Sub UserForm_Click()

End Sub

Hallo Herr Dr...
ungetestet:

Code:
Set WsQuelle = ThisWorkbook.sheets("Tabelle1")

Code:
Set WsZiel = WB_B.Sheets(1)

Gruß der AlteDresdner

Hallo kurze Frage,

Wie kann ich den Inhalt aus einem Tabellenblatt kopieren und in einer anderen Datei in ein Tabellen Blatt einfügen, rein über Marco und ohne dass man viel davon sieht? Quasi Botton drücken, er öffnet die andere Datei, überschreibt die Daten, speichert und schließt.

Gruß

Hallo,
habe deine Formel mal Probiert, klappt auch. wie kann ich jetzt das auch in weitere Dateien einspielen und wie speichert es das ganze automatisiert und schließt es?
Gruß

(13.02.2017, 20:40)AlterDresdner schrieb: [ -> ]Hallo Herr Dr...
ungetestet:

Code:
Set WsQuelle = ThisWorkbook.sheets("Tabelle1")
Code:
Set WsZiel = WB_B.Sheets(1)
Gruß der AlteDresdner

KLASSE! Daran lags, vielen Dank für den Hinweis :)

Gruß Doc

(14.02.2017, 10:28)tw3aker schrieb: [ -> ]Hallo,
habe deine Formel mal Probiert, klappt auch. wie kann ich jetzt das auch in weitere Dateien einspielen und wie speichert es das ganze automatisiert und schließt es?
Gruß

Moin Tweaker,

was du mit "in weitere Dateien einspielen" meinst weiß ich leider nicht,
automatisch speichern und schließen kiann du mit folgendem Befehl:

Code:
'Zieldatei speichern und schließen

    WB_B.Close savechanges:=True

Würde diesen nach dem "kopieren" Block, vor dem löschen der Variablen einfügen.
Gruß Doc

Hey Doc,
meine damit, dass ich weitere Dateien mit einbeziehen will, in denen das ganze gespeichert werden soll.
Danke und Gruß

Grundsetzlich so:

Code:
Sub M_snb()

  with getobject("G:\OF\beispiel.xlsx")

    thisworkbook.sheets(1).range("A1:K10")=.sheets(1).range("A1:K10").value

    .close 0

  end with

End Sub

Hey Doc,
aktuell hast du ja den Speicherort so:

Code:
Const strZiel As String = "C:\Dokumente\Orga_01\Vorlage_B.xlsx"   'Pfad + Dateiname

Will dort quasi nur ein oder zwei weitere Dateien öffnen, in denen ich die Mappe aktualisieren will.

Gruß

(14.02.2017, 13:14)tw3aker schrieb: [ -> ]Hey Doc,
aktuell hast du ja den Speicherort so:

Code:
Const strZiel As String = "C:\Dokumente\Orga_01\Vorlage_B.xlsx" 'Pfad + Dateiname

Will dort quasi nur ein oder zwei weitere Dateien öffnen, in denen ich die Mappe aktualisieren will.

Gruß

Sorry, fällt mir auf die schnelle keine elegante Lösung ein.
Im Zweifelsfall einfach den gesamten Block 3 mal kopieren und mit jeweils eigenen Variablen zum jeweiligen Pfad laufen lassen. Evtl. findest du dann sowieso eine Möglichkeit zur Vereinfachung.
Der Speichern Befehl klappt aber, oder?

Gruß Doc

Seiten: 1 2

DrWahnsinn

AlterDresdner

tw3aker

tw3aker

DrWahnsinn

DrWahnsinn

tw3aker

snb

tw3aker

DrWahnsinn