Hy,
wieso bleibt meine Schleife stehen.
in der ersten Tabelle funktioniert alles, nur die schleife soll alle Tabellen ca. 200 durchlaufen und die Formeln eingeben:
Dim raBereich As Range
Dim ws As Worksheet
Dim lngZ As Long
Dim strFileName
Dim strFilter As String
'** Dateifilter definieren
strFilter = "Excel-Dateien(*.xl*), *.xl*"
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll
ChDrive "C"
ChDir "C:\"
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strFilter)
'** Prüfen, ob eine gültige Datei ausgewählt wurde
If strFileName = False Then Exit Sub
'** Gewählte Datei öffnen
Set wb = Workbooks.Open(strFileName)
'** Hinweis ausgeben
For Each ws In wb.Worksheets
With ws
Set raBereich = .UsedRange
For Each raZelle In raBereich
If raZelle.MergeCells = True Then
raZelle.UnMerge
End If
Next raZelle
ActiveSheet.Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3],[Bussines_Marker.xlsb]Comp_SCV!C1:C3,3,FALSE)"
ActiveSheet.Range("E4").AutoFill Destination:=ActiveSheet.Range("E4:E204")
End With
Next ws
End Sub
|