Hallo Forum,
ich habe folgendes Problem:
Ich programmiere gerade für jemanden was und wenn ich beim untenstehenden Code den markierten Bereich (die Variablendeklarationen) einfüge, kommt beim ausführen (bei der Left-Funktion) die Meldung:
"Fehler beim Kompilieren:
Projekt oder Bibloithek nicht auffindbar"
wenn ich die Deklarationen weglasse, mekert er an, dass die Varablen "Such" und "P" nicht deklarirt wurden. Ich vermute, dass er durch die Deklarationen irgendwie durcheinanderkommt.
Ich wäre froh, wenn ihr mir helfen könntet.
Gruß Stefan
----------------------------------------------------------
CODE:
----------------------------------------------------------
Public Sub ZeilenundSpaltenberechnung()
If Application.ActiveSheet.Cells(1744, 180).Value <> "" Then
Dim Bereich As String
Dim Such 'HIER
Dim P 'und hier sind die "fehlerhaften Deklarationen"
Bereich = Application.ActiveSheet.Cells(1744, 180).Value
Such = "$"
P = InStr(Bereich, Such)
Str1 = Left(Bereich, P - 1) 'Bei DIESER Left-Funktion tritt der Fehler auf,
'wenn die Deklarationen erxistieren
P2 = InStr(P + 1, Bereich, Such)
Str2 = Mid(Bereich, P + 1, P2 - P - 1)
P3 = InStr(P2 + 1, Bereich, Such)
Str3 = Mid(Bereich, P2 + 1, P3 - P2 - 2)
P4 = InStr(P3 + 1, Bereich, Such)
Str4 = Mid(Bereich, P3 + 1, P4 - P3 - 1)
Str5 = Mid$(Bereich, P4 + 1)
End If
End Sub
----------------------------------------------------------
Ps.: Auf meinem einen PC funktioniert es, auf meinem anderen und auf dem, für den ich es programmiere nicht. |