---

Hallo,
ich habe ein kleines VBA-Makro zum Einlesen einer Koordinatendatei erstellt, das eine Fehlermeldung bringt. Eigentlich ziemlich trivial, aber es läuft nicht.

Open "C:\Temp\datei.koo" For Input As #1
While Not EOF(1)
  Line Input #1, strZeile
  dummy = MsgBox(strZeile, vbOKOnly, "Zeile")
  '--> Zeile wird korrekt angezeigt
  strZeichen = Mid(strZeile, 1, 2)
  '--> "Fehler beim Kompilieren, Projekt oder Bibliothek nicht gefunden (Mid ist blau markiert)
  dummy = MsgBox(strZeichen, vbOKOnly, "2 Zeichen")
Wend
Close #1

Folgende Verweise sind gesetzt:
-Visual Basic for Applications
-AutoCAD 2008 Type Library
-OLE Automation
-MS Forms 2.0 Object Library
-MS Windows Common Controls 5.0 (SP2)
-MS Windows Common Controls 6.0 (SP6)
-MS Common Dialog Control 6.0 (SP6)
-MS SysInfo Control 6.0
-MS Visual Studio Command Bars 8.0

Unter VisualBasic 6 gibt es keine Probleme. Wer kann helfen ?

M f G
RolandM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habs mal fix getestet, also bei mir läufts...
Hast du die Variablen explizit deklariert? Oder hast du evtl. andere Routinen/Formulare/Module mit diesen Namen? Wie sieht deine Datei aus, ist das ein reines ASCII-File?
Ich hab übrigens nur die ersten 3 Verweise, daran sollte es also auch nicht liegen.

Grüße!
René

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Die Variablen habe ich deklariert:
Dim strZeichen As String
Dim strZeile As String
Dim dummy As Variant

Die Datei ist ein ASCII-File, als Beispiel die 1. Zeile:
1 4497500.111 5706200.333 111.222

Keine anderen Routinen/Formulare/Module.

M f G
RolandM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Irgendwie ein komischer Effekt, die erste Zeile bringt einen Fehler, die zweite funktioniert !
dummy = Mid(strZeile, 1, 2)
dummy = Left(strZeile, 10)

M f G
RolandM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmm... eigentlich alles problemlos und richtig.
probier mal dummy = Mid$(strZeile, 1, 2)

Grüsse, Henning

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das bringt leider auch nichts. Ich habe eine neue Form mit nur einem Button erstellt und nachfolgender Syntax. Fehlermeldung bei "Mid" unverändert!

Option Explicit
Private Sub CommandButton1_Click()

  Dim strZeile As String
  Dim strTeil As String
  Dim dummy As Variant

  strZeile = "das ist eine zeichenkette"
  dummy = MsgBox(strZeile, vbOKOnly, "zeile")
 
  strTeil = Mid(strZeile, 1, 2)
  dummy = MsgBox(strTeil, vbOKOnly, "2 stellen")
     
End Sub

M f G
RolandM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

getestet --> auch das funktioniert bei mir problemlos 
Könnte mir jetzt nur noch vorstellen, dass einer der MS-Verweise den Konflikt verusacht? Mal alle Verweise bis auf die ersten 4 rausnehmen?
Sonst fällt mir nix mehr ein... 

Grüße!
René

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
hab' jetzt auch mal gegoogled:
hat vielleicht gar nichts mit der Markierung zu tun:

Zitat:

---

Schau mal (unter Extras-Verweise) in die Liste der Verweise. Dort wird mit ziemlicher Sicherheit (wenigstens) ein Punkt "[x] [NICHT GEFUNDEN]Bib.dll" mit einer beliebigen Bibliothek stehen.Entweder Du suchst hier (sofern die Bibliothek benötigt wird) nach der richtigen Stelle und bindest sie neu ein, oder Du entfernst das Kreuz in der Markierung. Dann sollte es laufen.

---

(Quelle)
Vielleicht ist es das...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Problem kenne ich wenn kein Verweis da ist bzw nicht passt
probier mal vba.mid vba.len usw vba.chr(xxx)
dann sollte es klappen

Wenn das so Programmierst hast diese Fehler nicht mehr
Mfg Chris

[Diese Nachricht wurde von c.schojer am 09. Jul. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo wronzky,

vielen Dank für Deine Hilfe, genau das war es. Ich habe das Kreuz entfernt und schon lief die Sache. (Allerdings ist der Verweis aus der Liste verschwunden, so dass ich gar nicht mehr weis, wie er genau hieß.)

M f G
RolandM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kurzer Nachtrag, folgender Verweis war schuld:
"Autodesk WHIP (R) ActiveX Control" unter "C:\WINNT\OCCACHE\WHIPLib.TWD"

M f G
RolandM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP