Verkettung
18.11.2003 09:05:37
Klaus
Im folgenden Macro funktioniert die Verkettung von A1 & B1 nicht.
Ich habe auf C: einen Ordner "Test" erstellt.
In diesen Ordner liegen xls Dateien. (1.xls; 2.xls; 3.xls usw.)
Ich wollte das Excel alle dort abgelegten Dateien durchsucht und mir die Verkettung von z.B. A1 & B1 ausgibt.
Durchsuchen und Auflistung klappt aber die Verkettung nicht.
Kann jemand von Euch helfen?
Sub Komprimieren()
Dim FName$, FCount%, z%
Dim FileArray()
Dim strPath As String
FName = Dir(C:\Test\*.xls")
Do While FName <> ""
FCount = FCount + 1
ReDim Preserve FileArray(1 To FCount)
FileArray(FCount) = FName
FName = Dir()
Loop
For z = 1 To FCount
With ActiveSheet
.Cells(z, 1) = FileArray(z)
'Externe Verknüpfung herstellen
.Cells(z, 2).Formula = "='" & ThisWorkbook.Path & "\[" & FileArray(z) & "]Tabelle1'!A1"
'Funktioniert ohne Fehler
.Cells(z, 2).Formula = "='" & ThisWorkbook.Path & "\[" & FileArray(z) & "]Tabelle1'!A1&B1"
'aber das nicht
End With
Next
With ActiveSheet
'eingelesene Dateien sortieren
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End With
End Sub
Danke, Klaus