Makro funktioniert nur von meinem PC aus
25.01.2022 15:29:59
meinem
ich habe folgendes Problem: Mein Makro läuft nur auf meinem PC, und nicht auf dem PC der Kollegen.
Der Debugger markiert das Wort "Jahr" - siehe unten fettgedruckt....
Ich habe keine Idee an was das liegen könnte. Bin allerdings auch nicht wirklich fit in VBA. Hat jemand eine Idee?
Sub Projekte_importieren()
'Variablen benennen
Dim wbDatenbank As Workbook
Dim wbRapporte As Workbook
Jahr = ThisWorkbook.Sheets("Startseite").Range("Q2").Value
Set wbRapporte = ActiveWorkbook
Set wbDatenbank = Workbooks.Open(Filename:= _
(ThisWorkbook.Path & "\Datenbank" & "\" & Jahr & "_Schlosser_Datenbank.xlsm"))
'kopieren von Projekten aus der Datenbank
wbDatenbank.Sheets("Projekte").UsedRange.Copy
'in Rapporte einfügen
wbRapporte.Activate
wbRapporte.Sheets("Projekte Import").Range("A1").PasteSpecial xlPasteValues
'Arbeitsmappe Schlosserdatenbank schließen
wbDatenbank.Close True
Application.DisplayAlerts = False
End Sub