Variablenfehler
19.05.2020 14:25:29
RobinK
ich könnte etwas Hilfe gebrauchen, da ich bis jetzt einfach nicht dahinter komme was falsch läuft.
Folgenden Code habe ich bisher gebastelt:
Sub DataLookupGA()
Dim sRes As Integer
Dim table As ListObject
Set table = shData.ListObjects("Nr_1.1") ' hier meldet sich der Fehlerteufel
Dim ValueOrt As Variant
Dim ValueAPT As Variant
Dim SucheZeile As Range
With Worksheets("Blatt C - GA")
Set ValueOrt = .Range("D3")
Set ValueAPT = .Range("D5")
Set SucheZeile = .Range("B10:B100").Find(what:="Nr 1.1", LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not SucheZeile Is Nothing Then
sRes = Application.VLookup( _
Worksheets("Blatt C - GA").Range("B10"), table.Range, 4)
End If
End With
End Sub
Da meldet sich immer der Fehler "Variable nicht definiert" und hinterlegt in der 3ten Zeile das shData.
Wäre jemand mal so nett mir Licht ans Fahrrad zu machen, wo ich da falsch denke.