Hallo und Guten Morgen !
Ich habe folgende Frage an Euch:
Bei folgendem Script werden bei der Eingabe von Artikelnummern
in Zeile H im Blatt Rechnungen die Blätter Vorbereitung, Tabelle4 und
Tabelle3 nach dieser Artikelnummer durchsucht und dann in die
dazugehörige Zeile im Blatt Rechnungen eingefügt.
Hätte bei diesem Script vielleicht jemand eine Idee, dass bei der Suche
auch FETT gedruckte Schrift erkannt und auch so übernommen wird.
vielen Dank für Eure Mühe.
Sub Artikelsuchen()
Dim wks As Worksheet
Dim rng As Range
Dim iRowL As Integer, iRow As Integer
Dim tarWks As Worksheet
Set tarWks = Worksheets("Rechnung")
For Each wks In Sheets(Array("Vorbereitung", "Tabelle4", "Tabelle3"))
With wks
iRowL = tarWks.Cells(.Rows.Count, 8).End(xlUp).Row
For iRow = 8 To iRowL
If Not IsEmpty(tarWks.Cells(iRow, 8)) Then
Set rng = .Cells.Find(tarWks.Cells(iRow, 8), _
lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
tarWks.Cells(iRow, 2).Value = .Cells(rng.Row, 2).Value
tarWks.Cells(iRow, 3).Value = .Cells(rng.Row, 3).Value
tarWks.Cells(iRow, 4).Value = .Cells(rng.Row, 4).Value
End If
End If
Next iRow
End With
Gruß Nicole