Makro startet nicht
10.09.2008 23:19:36
Peter
Ich habe hier im Forum einen Code entdeckt der genau das bewirkt was ich brauche. Nur leider startet das Makro nicht. Eine Fehlermeldung "Fehler beim Kompilieren. Außerhalb einer Prozedur ungültig" beendet den Vorgang noch bevor er wirklich gestartet wurde.
Ich habe versucht, den Code ins Modul zu kopieren, in das Tabellenblatt und auch in die Arbeitsmappe. Es hat nichts gebracht. Der Code stammt hier von Herber aus den online FAQ, sollte also richtig sein.
Wer kann mir helfen? Ich weiß nicht was ich noch probieren kann! DANKE!
Viele Grüße
Peter
StandardModule: Modul1
Sub CopyValues()
Dim vFile As Variant
Dim iRow As Integer
Dim sPath As String, sFormula As String, sMem As String, sRange As String
sPath = "c:\temp"
sMem = CurDir
ChDrive Left(sPath, 1)
ChDir sPath
vFile = Application.GetOpenFilename("Excel-Arbeitsmappen (*.xls), *.xls")
If vFile = False Then Exit Sub
sFormula = "='" & sPath & "\[" & Dir(vFile) & "]Tabelle1'!" & Range("A1").Value
With Worksheets("Import")
.Range(Range("A1").Value).FormulaLocal = sFormula
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
If iRow = 2 Then
sRange = Cells(iRow, 1).Value
Else
sRange = sRange & "," & Cells(iRow, 1).Value
End If
iRow = iRow + 1
Loop
.Range(Range("A1").Value).Copy .Range(sRange)
.UsedRange.Value = .UsedRange.Value
Application.CutCopyMode = False
End With
ChDrive Left(sMem, 1)
ChDir sMem
MsgBox "Job erledigt!"
End Sub