Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

@FranzW

@FranzW
15.09.2003 22:45:17
Ramses
Hallo Franz,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @FranzW
19.09.2003 08:31:11
t

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige