Debug Typen unverträglich
02.01.2019 14:34:26
Tom
warum laufen die Codes nicht nacheinander, wenn ich ausführe?
Sub Formel_Land()
Dim Land As String, i As Long
With ActiveSheet
Land = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 7657 To Land
If .Cells(i, 4) = "" Then
.Cells(i, 4).FormulaR1C1 = _
"=VLOOKUP(RC[4],eBOSS_Angebote!R1C2:R59035C26,7,FALSE)"
End If
Next i
End With
End Sub
Sub Formel_Unit()
Dim Unit As Long, i As Long
With ActiveSheet
Unit = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 7657 To Unit
If .Cells(i, 7) = "" Then
.Cells(i, 7).FormulaR1C1 = _
"=VLOOKUP(RC[1],eBOSS_Angebote!R1C2:R59035C26,25,FALSE)"
End If
Next i
End With
End Sub
Gruß Tom