Hilfe bei Code erweitern
06.02.2005 14:15:41
Lorenz
Würde gerne den Code um die Bereiche sBereich2, sbereich3, sBereich4 erweitern!
Schaffe es aber nicht. So wie der CODE geschrieben ist funktioniert er nur mit einem Bereich.
Sub AusGeschlossenerDateiLesen()
Dim sTxt As String, sBereich1 As String, sBereich2 As String, sBereich3 As String, sBereich4 As String, sAktuell As String
Dim rng As Range, rngCell As Range
sBereich1 = "a9:o9"
'sBereich2 = "c16:z62"
'sBereich3 = "a63:o84"
'sBereich4 = "w103:ak220"
sAktuell = Range("d1").Value 'Sheetname (ActiveSheet)
sTxt = "'" & Range("B1").Value ' Path
sTxt = sTxt & "[" & Range("B2").Value & "]" 'SheetName
sTxt = sTxt & sAktuell & "'!"
sTxt = sTxt & sBereich1
Set rng = Worksheets(sAktuell).Range(sBereich1)
rng.Cells(1).Formula = "=if(" & sTxt & "="""",""""," & sTxt & ")"
rng.Cells(1).Copy rng
rng.Value = rng.Value
rng.Columns.AutoFit
'rng.Parent.Select
End Sub
Danke im Voraus und Grüsse Lorenz