@FranzW
15.09.2003 22:45:17
Ramses
Habe mir dein Makro nochmal angesehen.
Damit geht es auf jeden Fall
Sub Importieren()
Dim rng As Range
Dim sFormula As String, sPath As String
Dim sWkb As String, sWks As String
sPath = ThisWorkbook.Path
sWkb = "Ablesungen" & Range("A1").Value - 1 & ".xls"
If Dir(sPath & "\" & sWkb) = "" Then
Beep
MsgBox "Datei " & sWkb & " wurde nicht gefunden!"
Exit Sub
End If
sWks = "2002"
sFormula = "='" & sPath & "\"
sFormula = sFormula & "[" & sWkb & "]"
sFormula = sFormula & sWks & "'!"
For Each rng In Selection.Cells
rng.Formula = sFormula & rng.Offset(0, -2).Address
Next rng
For Each rng In Selection.Cells
rng.Value = rng.Value
Next rng
End Sub
Ich vermute Mal dass da EXCEL ein Problem hat, eigentlich müsste es funktionieren :-(
With Selection
.Value = .Value
End With
Aber EXCEL füllt in alle nicht zusammenhängend selektierten Zellen den Wert der ersten Zelle in der Selection ein.
Warum auch immer :-))
Gruss Rainer
Anzeige