VBA Zieldatei
20.06.2017 10:37:36
Sepp
ich starte diesen Code in einer Excel Datei über einen Button.
Jetzt will ich den Code in den Zentralen EXCEL Start legen. So das der Code nur vom Personal Excel gestartet wird.
Mein Problem ist, das wenn der Code in Personal drin ist und ich den in der Exceldatei Firma1.xlsm den Button klicke dann kommt ein Fehler, weil in Personal das Tabellenblatt Daten nicht drin vorhanden ist.
Private Sub CommandButton2_Click()
Dim zieldatei As Object
Dim quelle As Object
Dim letztezeile As Long
Dim zeilequelle
Dim DLG
Application.ScreenUpdating = False
'die Zieldatei, da wo das Makro ausgeführt wird
Set zieldatei = ThisWorkbook.Sheets("Daten")
End Sub
Firma1 ist eine Vorlage.
Die anderen heißen Firma2 , Firma3 usw..... alle sind gleich aufgebaut.
Wenn ich was vom Code ändere , muß ich immer alle 23 Vorlagen anpassen.
Kann man irgendwie eine Abfrage machen. z.B. "in welcher Datei soll der Code laufen"
danach kommt eine Auflistung aller aktiven Excel Dateien. Klicke dann die Datei und GO
Oder gibt es eine andere lösung?