Funzt icht mehr: Dateiinhalt = String$(Dateilaenge
23.02.2005 10:08:17
Christian
ich habe mal einen alten Makro von mir ausgegraben, den ich vor ca. 2,5 Jahren geschrieben hatte (Damals Excel 2k). Jetzt funktioniert er aber nicht mehr. Ich erhalte jedesmal die Fehlermeldung "Fehler beim Kompilieren: Projekt oder Bibliothek nicht gefunden". Im Debugger ist dann das Sub gelb und "String$" blaui markiert. Gibt es etwas die Funktion String$ nicht merh in Excel XP?
Bin ein wenig verwirrt...
Private Sub CmdButtonEinlesen_Click()
MfG
Christian
Dim Dateiinhalt As String
Dim Dateinummer As Integer
Dim Dateilaenge As Double
Dim Dateiname As String
Dateiname = Application.GetOpenFilename("Rammprotokolle (*.txt), *.txt", Title:="Rammprotokolldatei öffnen ")
Dateinummer = FreeFile
' Freie Dateinummer ermitteln
Open Dateiname For Binary Access Read As Dateinummer
' Datei oeffnen
Dateilaenge = LOF(Dateinummer)
' Dateilaenger ermitteln
Dateiinhalt = String$(Dateilaenge, "x")
' Der Variable Dateiinhalt Speichplatz zuweisen
Get Dateinummer, 1, Dateiinhalt
' Schreibe den Inhalt der Datei in die Variable Dateiinhalt
TextBox1.Text = Dateiinhalt
Close Dateinummer
End Sub