Code erbeten!
06.07.2004 16:28:23
Lorenz
Habe folgendes Problem:
mit diesem selbstgeschnitzten Code wird mittels Formel aus gleichem Bereich der tabelle ausgelesen!
Da der Ordner "Juli" u. die Datei "test" u. das Arbeitsblatt "Tag1" flexibel sind (sein sollten) ist dieser Code in dieser Art unbrauchbar.
Private Sub Import()
Dim c, c1 As Range
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
For Each c1 In Range("B42:AT61")
c1.FormulaR1C1 = "='D:\Temp\diverses\aktuell\Juli\[test.XLS]Tag1'!RC"
Next c1
For Each c In Range("B42:AT61")
If c.Value > 0 Then
c.Value = c.Value
ElseIf c.Value = 0 Then
c.Value = ""
End If
Next c
Application.ScreenUpdating = True
End Sub
Wie sollte der CODE ausschauen?
INFO:
Im jeweiligen Arbeitsblatt (im Tag1, Tag2 ect.) steht in Zelle
A2 der monat (Juli)
B2 der Dateiname (test.xls)
C2 der Arbeitsblattname (Tag1)
Danke für die Mühe u. Grüsse
Lorenz
Anzeige