AW: Makro mit ODER- Funktion
12.09.2010 19:20:03
Beverly
Hi,
versuche es auf diesem Weg (jedoch ungetestet):
Option Explicit
Sub Alex1()
' Funktioniert, aber anderslautende Tabellennamen müssen extra bestätigt werden.
' Dieses Makro liest aus den Dateien aus dem Tabellenblatt die genannten
' Zelldaten aus. Ich möchte gern haben, dass wenn dass Sheet mit den Namen "Test1" nicht _
gfunden
' wird, soll das Makro prüfen, ob es ein Sheet mit den Namen "Test2" und dafür dort die _
Daten
' auslesen. Das tut es jetzt auch, aber es muss immer erst manuell bestätigt werden. _
Bekommste
' das hin?
Dim strFile As String, lngIndex As Long, lngC As Long, lngCol As Long
Dim strRef As Variant
'# ANPASSEN #
Const cstrPath As String = "C:\Dokumente und Einstellungen\KralR\Eigene Dateien\Alexander\ _
Excel\Test Ordner" 'Verzeichnis
Const cstrTab As String = "Test1" 'Tabellenname
Const cstrTab2 As String = "Test2" 'Tabellenname
strRef = Array("a1", "b1", "c1", "d1") 'Zelladressen
For lngC = 0 To UBound(strRef)
lngIndex = 0
lngCol = lngCol + 1
Do
strFile = "1" & IIf(lngIndex > 0, " (" & CStr(lngIndex) & ")", "") & ".xls"
If Dir(cstrPath & IIf(Right(cstrPath, 1) "\", "\", "") & strFile) "" Then
Cells(lngIndex + 2, lngCol).Formula = "='" & cstrPath & IIf(Right(cstrPath, 1) "\", "\[", "[") & _
strFile & "]" & cstrTab & "'!" & strRef(lngC)
If IsError(Cells(lngIndex + 2, lngCol)) Then
Cells(lngIndex + 2, lngCol).Formula = "='" & cstrPath & IIf(Right(cstrPath, _
1) "\", "\[", "[") & _
strFile & "]" & cstrTab2 & "'!" & strRef(lngC)
End If
Else
Exit Do
End If
lngIndex = lngIndex + 1
Loop
Next
End Sub