Komplilierungsfehler??

Private Sub Zeilen_ausblenden() Application.ScreenUpdating = False For i = 9 To 87 If Cells(i, 1).Value = "" Then Rows(i).Hidden = True End If Next i Application.ScreenUpdating = True Range("AA1").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Zeilen_ausblenden() Application.ScreenUpdating = False Dim i As Integer For i = 9 To 87 If Cells(i, 1).Value = "" Then Rows(i).Hidden = True End If Next i Application.ScreenUpdating = True Range("AA1").Select End Sub

Hallo Rainer,
in der ersten Zeile steht nicht "Option Explicit". Das seltsame ist, dass der gleiche Code in meinen anderen Projekten funtioniert! Mit der Zeile "Dim i As Integer" funktioniert es. Wie gesagt: warum, weiß ich nicht.
Mein zweites Problem:
Unser SystemAdmin hat ein Auftragsverwaltung in Access geschrieben. Hierzu werden meine Excel-Dateien herangezogen und in eben diese der folgende Code in einem Modul hinzugefügt:
' Fügen Sie folgende Zeile in den Deklarationsbereich
' des Moduls ein.
Dim appAccess As Access.Application


Sub Auto_close()
Dim wert As Double
ActiveWorkbook.Save
wert = Worksheets("Kundendaten").Range("F6").Value
wert = Format(wert, "##,##0.00")   ' Liefert "5.459,40".
'wert = Format(wert, "###0.00")  ' Liefert "334,90".
' Eine neue Instanz von Microsoft Access erstellen.
On Error Resume Next
Set appAccess = _
GetObject(, "Access.Application.8")
' Die Datenbank RunCode im Microsoft Access-Fenster öffnen.
'appAccess.OpenCurrentDatabase "C:\Eigene Dateien\RunCode.mdb", False
' Die Sub-Prozedur ausführen.
'AppActivate "Microsoft Access"
If Err.Number <> 0 Then
Application.Quit
Else
appAccess.Run "vonExcel", wert
'appAccess.Run "vonExcel", "Horst"
AppActivate "Microsoft Access"
End If
Set appAccess = Nothing
End Sub

Nun erhalte ich auf einmal die Fehlermeldung in folgender Zeile:
wert = Format(wert, "##,##0.00") ' Liefert "5.459,40".
wobei das Wort "Format" markiert wird.
Es fehlt der Verweis zu folgender Datei: "ActiveCAD ActiveX Control module"
Auf meinem 2000System ist diese vorhanden, auf dem XP-System nicht. Einfach ins "System32" Verzeichnis kopieren funktioniert nicht. (Ich denke, diese DLL, oder was immer das auch sein mag, muß registriert werden. Aber wie?)
Kannst Du damit etwas anfangen?
Besten Dank schon mal für Deine Hilfe.
Gruß
Dieter.K

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread