Fehler beim kompilieren; Projetk oder Biblio nicht

Forumthread: Fehler beim kompilieren; Projetk oder Biblio nicht

thomas

Hallo,
habe eben mein ein Sheet mit Makros auf meinem Laptop mit XP geöffnet. Will ich dort ein paar Inpute machen kommt ein Error und die eckigen Klammern mit Inhalt im Code unten sind markiert.
Dazu die Fehlermeldung, dass Projekt oder Bibliothek nicht gefunden wurde.
Kann man den Code auch so machen, dass er überall läuft (auf meinem normalen ArbeitsPC hab ich Win98 mit Office 9


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F113:P114,C118:C123,C126:C134]) Is Nothing Then Exit Sub
Call Sheets("Grafdata").SollBM
End Sub

Besten Dank und beste Grüsse
thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Fehler beim kompilieren; Projetk oder Biblio nicht

Kurt

Was ist das?
Call Sheets("Grafdata").SollBM
Kurt

Call Sheets("Grafdata").SollBM

thomas

Hallo,
Call Sheets("Grafdata").SollBM sieht wie folgt aus: Aber ich der Fehler wird ja bei der eckigen Klammer im Change-Event angezeigt, daher glaub ich nicht, dass das Problem im Code unten liegt. Der Code unten wurde übrigens von Sepp optimiert, nicht dass ich mich da mit fremden Federn schmücke.
Besten Dank und beste Grüsse
thomas
Option Explicit


Sub SollBM()
Dim iZeile As Long
Dim Startwert As Long
On Error GoTo FEHLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Range("A328:D333, F328:K333, B340:B399").ClearContents
Range("A319:D325").Copy
Range("A327").PasteSpecial Paste:=xlPasteValues
Range("F319:K325").Copy
Range("F327").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("F327:K333").Sort Key1:=Range("G328"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B336") = WorksheetFunction.Max(Range("B328:B333"))
'dito Soll-ROS
Startwert = WorksheetFunction.RoundUp(Range("B335"), 0)
iZeile = 340
Do Until Startwert > Range("B337") Or iZeile > 399
Cells(iZeile, 2) = Startwert
iZeile = iZeile + 1
Startwert = Startwert + 5
Loop
FEHLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.Calculate
End With
End Sub

AW: Call Sheets("Grafdata").SollBM

Kurt

Die Funktion Intersect ist Teil der Excelbibliothek.
Daran kanns also kaum liegen.
Kurt

Beliebteste Forumthreads (12 Monate)

Fehler beim kompilieren; Projetk oder Biblio nicht

Forumthread: Fehler beim kompilieren; Projetk oder Biblio nicht

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Fehler beim kompilieren; Projetk oder Biblio nicht

Forumthread: Fehler beim kompilieren; Projetk oder Biblio nicht

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread