Datenimport - äußerst merkwürdiges Problem
11.09.2003 22:10:13
Franz W.
ich habe ein äußerst seltsames Phänomen beim Import von Daten aus einer anderen Datei, ich habe die Zieldatei mit Beschreibungen mal hochgeladen:
Die Datei https://www.herber.de/bbs/user/1000.xls wurde aus Datenschutzgründen gelöscht
Der Code:
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 = "Ablesungen"
sFormula = "='" & sPath & "\"
sFormula = sFormula & "[" & sWkb & "]"
sFormula = sFormula & sWks & "'!"
For Each rng In Selection.Cells
rng.Formula = sFormula & rng.Offset(0, -2).Address
Next rng
With Selection
.Value = .Value
End With
End Sub
Mit diesem Code wird in selektierte Zellen ein Wert aus einer anderen Datei geholt (in meiner Beispieldatei in die Zellen C6-C15)
Das Problem:
- Wähle ich eine einzelne Zelle in diesem Bereich aus, klappts. Egal ob C6 oder C9 oder welche auch immer.
- Wähle ich mehrere ZUSAMMENHÄNGENDE Zellen aus, klappt auch alles. Egal ob es alle 10 Zellen sind oder weniger, Hauptsache sie hängen zusammen.
- Wähle ich mit der Strg-Taste einzelne NICHT-ZUSAMMENHÄNGENDE Zellen aus
*** dann klappts nur, wenn ich die Zeile .Value = .Value auskommentiere, also schreibe
' .Value = .Value. Wenn ich also die Formeln hinter den Zellen stehen lasse (was nicht sein sollte!)
*** dann klappts nicht, wenn ich die Formeln durch die Werte ersetzen will. DANN schreibt er in ALLE selektierten Zellen den Wert DER ERSTEN dieser selektierten Zellen.
Kann mir das jemand erklären? Gibt's da eine Lösung dafür?
Ich hoffe ich konnte mich so ausdrücken, dass Ihr mich verstehen könnt.
Vielen Dank schon mal im Voraus und hoffnungsfrohe Grüße
Franz