Hallo Werner,
folgendes Makro läuft auf meinem Rechner einwandfrei.
Sub LetzteZelle()
''sucht letzte Zelle mit Wert in Spalte E
Application.ScreenUpdating = False
Y = 17
For x = 17 To 52
inhalt = Cells(x, 5).Value
If inhalt = "" Then
Else: Y = Y + 1
End If
Next x
Y = Y - 1
Cells(Y, 5).Select
End Sub
Jetzt habe ich versucht die ganze Datei auf meinen Arbeitsplatzrechner zu übernehmen, jetzt passiert folgendes:
Makro bleibt bei Y = 17 (Y = blau unterlegt)stehen und es kommt folgende Meldung: "Fehler beim kompilieren: Projekt oder Bibliothek nicht gefunden."
Unter "Extras"; "Verweise" sind die verfügbaren Verweise dann aufgelistet.
Frage kannst du mir angeben, welchen Verweis ich für dieses Makro aktivieren muss, oder grundsätzlich, wie kann ich an evtl. fehlende Verweise kommen und in die Liste einfügen?
Wilhelm