Range mit Variabler befüllen
19.09.2016 14:38:22
Maik
ich versuche eine Excel Datei anhand einer anderen zu befüllen. leider funktioniert die variable innerhalb des "range" befehls nicht. Weiß jemand eine lösung?
Vielen Dank!
Code bisher:
Sub S()
Dim rng As Range, rng2 As Range, cell As Range, cell2 As Range
Set List = Range("A1:R6")
Set List2 = Range("B1:B5")
Workbooks.Open "D:\w.xls"
Workbooks.Open "C:\w2.xls"
For Each cell In List
For Each cell2 In List2
If Workbooks("w.xls").Worksheets("F").Range(cell) = 0 _
Then
Workbooks("w2.xls").Worksheets("F").Range("cell2") = 0
ElseIf Workbooks("w.xls").Worksheets("F").Range(cell) = _
1 Then
Workbooks("w2.xls").Worksheets("F").Range("cell2") = 1
ElseIf Workbooks("w.xls").Worksheets("F").Range("cell") _
= "n.r." Then
Workbooks("w2.xls").Worksheets("F").Range("cell2") = 0
Else
Workbooks("w2.xls").Worksheets("F").Range("cell2") = "Fehler"
End If
Next cell, cell2
End Sub