SVerweis als VBA
12.08.2015 17:37:25
Ali
ich hoffe ich bin hier richtig. Die Anfrage wurde sicherlich schon 1000 gestellt, aber finde die für mich angepasste Lösung nicht.
ich möchte einen SVerweis als VBA programieren. Leider funktioniert es noch nicht 100 %.
Folgenden Code habe ich per Macroaufzeichnung gebastet.
Sub Makro5()
' Makro5 Makro
ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Test Datei.xlsx]Tabelle1'!C1:C2,2,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Test Datei.xlsx]Tabelle1'!C1:C2,2,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Test Datei.xlsx]Tabelle1'!C1:C2,2,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Test Datei.xlsx]Tabelle1'!C1:C2,2,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[1],'[Test Datei.xlsx]Tabelle1'!C1:C2,2,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8").Select
Application.CutCopyMode = False
End Sub
Jetzt möchte ich nicht für jede Zeile die Formel Neu schreiben sondern das immer die nächste Zeile genommen wird und zwar von C1 runter bis beispiel C500.
Könnt Ihr mir helfen, wie ich die Schleife dort reinbekomme?
Vielen Dank