ich habe bei einer Exceldatei leichte Anpassungen vorgenommen (Verweissuche und ein Makro). Seitdem kommt beim Ausführen eines Makros was vorher tatellos funktioniert hat die Fehlermeldung Projekt oder Bibliothek nicht gefunden und Fehler im verborgenen Modul der Tabelle02. Das eigenartige ist daran, dass es an einem Rechner auf Arbeit funktioniert, aber zu Hause nicht. Anbei stell ich mal das Makro mit rein. Vielleicht kann mir jemand helfen, wäre sehr schön. Vielen Dank erstmal Liebe Grüße René
Der Debugger zeigt den Fehler in der Zeile
' Verursacher zusammensetzen - Neu
Worksheets("Daten").Cells(actRow, 15).Value = Trim (sauber(Worksheets("Daten").Cells(actRow, 12).Value) _
+ sauber(Worksheets("Daten").Cells(actRow, 13).Value) + sauber(Worksheets("Daten").Cells(actRow, 14).Value))
bei Trim
Private Sub Übernehmen_Click()
Dim actRow, DSNr As Long
If _
(Worksheets("Eingabe").Cells(2, 3).Value = 0) Or _
(Worksheets("Eingabe").Cells(3, 3).Value = 0) Or _
(Worksheets("Eingabe").Cells(4, 3).Value = 0) Or _
(Worksheets("Eingabe").Cells(5, 3).Value = 0) Or _
(Worksheets("Eingabe").Cells(21, 2).Value = 0) Then MsgBox ("bitte Eingaben überprüfen"): Exit _
Sub
If (Sheets("eingabe").Range("B10").Value "" And (Sheets("eingabe").Range("C17").Value = _
"0" Or Sheets("eingabe").Range("C19").Value = "0")) Or _
(Sheets("eingabe").Range("C17").Value "0" And (Sheets("eingabe").Range("B10").Value = _
"" Or Sheets("eingabe").Range("C19").Value = "0")) Or _
(Sheets("eingabe").Range("C19").Value "0" And (Sheets("eingabe").Range("B10").Value = _
"" Or Sheets("eingabe").Range("C17").Value = "0")) Then _
MsgBox ("bitte Eingaben überprüfen"): Exit Sub
DSNr = Worksheets("Rechnen").Cells(2, 2).Value
actRow = DSNr + 1
Range("B11").Select
Selection.Copy
Range("C10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Übernahme Datum von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 1).Value = _
Worksheets("Eingabe").Cells(1, 3).Value
' Übernahme Prüfer. von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 2).Value = _
Worksheets("Eingabe").Cells(2, 3).Value
' Übernahme Typ von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 3).Value = _
Worksheets("Eingabe").Cells(3, 3).Value
' Übernahme Kenn-Nr. von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 4).Value = _
Worksheets("Eingabe").Cells(4, 3).Value
' Übernahme Land von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 5).Value = _
Worksheets("Eingabe").Cells(5, 3).Value
' Übernahme Fehlerort von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 6).Value = _
Worksheets("Eingabe").Cells(11, 2).Value
' Übernahme links/rechts von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 7).Value = _
Worksheets("Eingabe").Cells(12, 2).Value
' Übernahme vorne/hinten von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 8).Value = _
Worksheets("Eingabe").Cells(13, 2).Value
' Übernahme oben/unten von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 9).Value = _
Worksheets("Eingabe").Cells(14, 2).Value
' Übernahme Fehlerart von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 10).Value = _
Worksheets("Eingabe").Cells(17, 3).Value
' Übernahme Fehler-Kat. von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 11).Value = _
Worksheets("Eingabe").Cells(19, 2).Value
' Übernahme Verursacher1 von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 12).Value = _
Worksheets("Eingabe").Cells(21, 2).Value
' Übernahme Verursacher2 von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 13).Value = _
Worksheets("Eingabe").Cells(22, 2).Value
' Übernahme Verursacher3 von Blatt "Eingabe" in Blatt "Daten"
Worksheets("Daten").Cells(actRow, 14).Value = _
Worksheets("Eingabe").Cells(23, 2).Value
' Verursacher zusammensetzen - Neu
Worksheets("Daten").Cells(actRow, 15).Value = Trim (sauber(Worksheets("Daten").Cells(actRow, _
12).Value) _
+ sauber(Worksheets("Daten").Cells(actRow, 13).Value) + sauber(Worksheets("Daten").Cells( _
actRow, 14).Value))
'verursacher/konzern
For x = 2 To 15
If Worksheets("Eingabe").Cells(21, 2).Value = Sheets("listen").Cells(x, 27).Value Then _
Worksheets("Daten").Cells(actRow, 16).Value = Sheets("listen").Cells(x, 28).Value: Exit For
Next
' Fehler zusammensetzen - Neu
Worksheets("Daten").Cells(actRow, 17).Value = Trim(sauber(Worksheets("Daten").Cells(actRow, _
6).Value) _
+ sauber(Worksheets("Daten").Cells(actRow, 7).Value) + sauber(Worksheets("Daten").Cells( _
actRow, 8).Value) _
+ sauber(Worksheets("Daten").Cells(actRow, 9).Value) + sauber(Worksheets("Daten").Cells( _
actRow, 10).Value))
' Bemerkung + Maßnahmen zu den Fehlern übernehmen
Worksheets("Daten").Cells(actRow, 18).Value = Trim(TeBO_Fehler.Value) 'Worksheets("Eingabe") _
.Cells(2, 5).Value)
Worksheets("Daten").Cells(actRow, 19).Value = Trim(TeBo_Maßnahmen.Value) '("Eingabe").Cells( _
7, 5).Value)
NaechsterDatensatz
Worksheets("Rechnen").Cells(1, 2).Value = Worksheets("Rechnen").Cells(4, 2).Value
'Ausschalten der Bildschirmaktualisierung: ist schneller und sieht ruhiger aus
Application.ScreenUpdating = False
DatenSortieren
Worksheets("Daten").Activate
Do While Worksheets("Daten").Range("A2") = 0
Worksheets("Daten").Rows("2:2").Select
Selection.Delete Shift:=xlUp
Loop
Worksheets("Menü").Visible = True
Worksheets("Menü").Activate
Worksheets("Eingabe").Visible = xlVeryHidden
Worksheets("Stammdatei").Visible = xlVeryHidden
Worksheets("Listen").Visible = xlVeryHidden
Worksheets("Rechnen").Visible = xlVeryHidden
Application.ScreenUpdating = True
ActiveWorkbook.Save
Worksheets("Eingabe").Visible = True
Worksheets("Menü").Visible = xlVeryHidden
Worksheets("Rechnen").Visible = xlVeryHidden
Worksheets("Daten").Visible = xlVeryHidden
Worksheets("Eingabe").Activate
Dim AktDS, GesDS As Long
Worksheets("Rechnen").Cells(1, 2).Value = _
Worksheets("Rechnen").Cells(4, 2).Value
AktDS = Worksheets("Rechnen").Cells(2, 2).Value
GesDS = Worksheets("Rechnen").Cells(1, 2).Value
AktDS = GesDS + 1
Worksheets("Rechnen").Cells(2, 2).Value = AktDS
DatenHolen (AktDS + 1)
' Übernahme aktuelles Datum
Worksheets("Eingabe").Cells(1, 2).Value = _
Worksheets("Rechnen").Cells(6, 3).Value
Range("C10").Select
Selection.ClearContents
Worksheets("Eingabe").Cells(2, 2).Select
End Sub