Zelle auslesen
26.01.2021 11:24:31
Linda
ich stehe vor einem Problem und komm einfach nicht auf die Lösung. Vielleicht habt Ihr ja eine Idee.
Ich habe mehrere Excel-Files, in die Arbeiter Ihre Rapporte eingeben. Diese werden dann mit einer Datenbank, welche auch auch ein Excel-File ist, eingetragen, via VBA.
Alle Files werden jedes Jahr kopiert. Es gibt dann neue Rapporte-Files und eine neue Datenbank.
Meine Formel seht Ihr unten. Diese muss richtig sein, da sie für das Jahr 2020 noch funktioniert.
Bei den neu angelegten Rapporten 2021 und der Datenbank 2021 funktioniert der Abgleich nicht. Hier meldet sich der Debugger und markiert das Wort "Jahr" (siehe unten, fettgedruckt). Nun denke ich , dasss der Fehler in der Zelle Q2 liegen muss. Ich habe hier überprüft, ob vielleicht ein Leerzeichen drin ist, ob ich die Zelle anders formatieren muss, ob die Dateien exakt richtig benannt sind....... alles soweit in Ordnung.
Die Fehlermeldung lautet:
Fehler beim Kompilieren: Projekt oder Datenbank nicht gefunden.
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