Dynamisch Bezug auf Zellen in einer Formel unter Verwendung von VBA

Question

Ich versuche, ein Makro zu schreiben, das Spalte H mit der Verkettung der Spalten B und C füllt, aber nicht herausfinden kann, wie auf die Zellen in Spalten B und C verwiesen wird. Das Problem ist mit:

Selection.Formula = "=CONCATENATE(Range("B" & i) & Range("C" & i))" 

Jede Hilfe wäre willkommen. Hier ist der ganze Code.

Sub Macro() 

Dim iLastRow As Integer 
Dim i As Integer 
    iLastRow = Worksheets("Sheet1").Range("g10000").End(xlUp).Row 
    For i = 3 To iLastRow 
     Worksheets("Sheet1").Range("H" & i).Select 
     Selection.Formula = "=CONCATENATE(Range("B" & i) & Range("C" & i))" 
    Next 
End Sub 

Answer 1

Dieser Code funktioniert.

Sub Macro() 

Dim iLastRow As Integer 
Dim i As Integer 
iLastRow = Worksheets("Sheet1").Range("g10000").End(xlUp).Row 
For i = 3 To iLastRow 
    With Worksheets("Sheet1") 
     .Cells(i, 8).Value = .Cells(i, 2).Value & " " & .Cells(i, 3).Value 
    End With 
Next i 
End Sub