Objectvariable nicht festgelegt
11.11.2016 12:19:54
Oisse
folgenden Code habe ich geschrieben, der leider leider nicht funktioniert.
Es kommt immer wieder Objektvariable nicht festgelegt.
Vor lauter rumprobieren kenn ich mich jetzt schon gar nicht mehr aus.
Zum Hintergrund.
In der Tabelle Artikel sollen Einträge gefunden werden mit dem Eintrag in der Tabelle Rechnung in Zelle H16.
Alle Zeilen sollen in der Tabelle Artikel markiert werden, die diesen Eintrag haben.
Anschließend soll in den markierten Zeilen in Spalte 17 der Eintrag aus Zelle C9 aus der Tabelle Rechnung eingetragen werden.
Warum läuft der Code nicht? Was habe ich denn hier nicht festgelegt?
Kann bitte mal jemand drüberschauen
Option Explicit
Private Sub NamenEinfügen()
Dim wsSearch As Worksheet
Dim Tbl1 As Worksheet
Dim Tbl4 As Worksheet
Dim wkb As Workbook
Dim rng_Row As Range
Dim Finde As String
Dim c As Range
Dim firstAddress As String
wkb = ThisWorkbook
Tbl1 = "Rechnung"
Tbl4 = "Artikel"
Finde = ThisWorkbook.Sheets("Rechnung").Range("H16")
Set wsSearch = Sheets("Artikel")
With wsSearch.Range("X:X")
Set c = .Find(Finde, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Range(c.Address).Select 'Die Zeile in der der zu suchende Wert ist _
markieren
Do
Union(Selection, Range(c.Address)).Select 'alle Zeilen in denen der zu _
suchende Wert vorkommt markiere
'Finde den nächsten passenden Eintrag
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
For Each rng_Row In Selection.Row
Sheets("Artikel").Cells(rng_Row.Row, 17).Value = Sheets("Rechnung").Cells("C9").Value
Next
End Sub
Danke
Gruß Oisse