Hallo zusammen,
ich schon wieder... Ich habe den Code vor dem durchführen mit "Kompilieren von VBAProjekt" bereits geprüft und es hat mir keinen Fehler angezeigt. Sobald ich ihn aber ausführen möchte, kommt die Meldung "Fehler beim Kompilieren: Sub oder Function nicht definiert" und es markiert mir im ersten definierten Set das Wort "Workbook".
Public Sub Wertekopieren() 'Öffnet die Mitarbeiterliste und entnimmt den MA-Namen
Application.ScreenUpdating = False
Dim wb1 As Workbook
Dim wb1pfad As String
Dim wb1name As String
Dim wb2 As Workbook
Dim wb2pfad As String
Dim wb2name As String
Dim wb1ws1 As Worksheet
Dim wb2ws1 As Worksheet
Dim bwbopen As Boolean
Dim strUser As String
Dim Vergleich As String
Dim rng As Range
Dim Telefonzelle As Integer
wb1pfad = "C:\Users\...\Desktop\...\...\Excel-Dateien\Vorhandene Dateien\"
wb1name = "Dienstplan.xlsm" ' bereits geöffnete Datei
wb2pfad = "C:\Users\...\Desktop\...\...\Excel-Dateien\Neue Excel-Dateien\"
wb2name = "Mitarbeiterliste.xlsm" ' zu öffnende Datei
bwbopen = WorkbookIsOpen(wb2name)
If bwbopen = False Then
Workbooks.Open (wb2pfad & wb2name)
Else
End If
Set wb1 = Workbook("Dienstplan.xlsm")
Set wb2 = Workbook("Mitarbeiterliste.xlsm")
Set wb1ws1 = wb1.Worksheet("KW 40") ' bereits geöffnete Datei
Set wb2ws1 = wb2.Worksheet("Tabelle1") ' zu öffnende Datei
Da mir der Fehler nur oberhalb der Sub markiert wurde, habe ich jetzt auch nur den oberen Teil der Sub hier eingefügt.
Weiß jemand von euch, woran das liegen könnte?
Liebe Grüße Gabi