Sverweis via VBA

Sub Test()
Dim ko1 As Long
Dim ko2 As Long
Dim ko1h As String
Dim ko2h As String
Dim az As Long
Dim lz2 As Long
Dim lz3 As Long
Dim az2 As Long
Dim koordinate As String
Dim koordinate1 As String
Dim Koordinate2 As String
ko1 = 18
ko2 = 19
Sheets(1).Select
Cells(1, 79).Value = "Hilfsko_alt"
Cells(1, 80).Value = "Hilfsko_neu"
az = 2
lz2 = Cells(Rows.Count, 1).End(xlUp).Row
Do Until az > lz2
ko1h = Format(Cells(az, ko1).Value, "00")
ko2h = Format(Cells(az, ko2).Value, "00")
Cells(az, 79).Value = ko1h & "-" & ko2h
Cells(az, 80).Value = WorksheetFunction.VLookup(Cells(az, 79).Value, Worksheets("Fachklassen"). _
Range("A1:H2619"), 5)
az = az + 1
Loop
lz3 = Cells(Rows.Count, 1).End(xlUp).Row
az2 = 2
Do Until az2 > lz3
koordinate = Cells(az2, 80).Value
koordinate1 = Left(koordinate, 2)
Koordinate2 = Right(koordinate, 2)
Cells(az2, ko1).Value = koordinate1
Cells(az2, ko2).Value = Koordinate2
az2 = az2 + 1
Loop
End Sub