Hallo zusammen,
Ich hoffe hier kann mir nochmals geholfen werden.
ich habe ein makro welches mir nach eingabe einer Zahlenkombination in Tabelle1 entsprechend die Zeile in Tabelle2 ausliest und die gesamte Zeile in die Tabelle3 kopiert.
Nun möchte ich aber auch erreichen, dass eine bestimmte Zelle aus dem Tabellenblatt1 (deren inhalt sich immer wieder ändert) ebenfalls mit kopiert wird und an das Ende der jeweiligen Zeile im Tabellenblatt3 eingefügt wird.
hier soweit mein code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim lngZiel As Long
Dim varSuche As Variant
If Not Intersect(Target, Range("D7")) Is Nothing Then
With Sheets("Ergebnisse")
lngZiel = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
End With
varSuche = Range("D7").Value
With Sheets("BerechneteTeile")
Set c = .Columns(32).Find(varSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
.Rows(c.Row).Copy Sheets("Ergebnisse").Cells(lngZiel, 1)
MsgBox "Bauteil wurde in die Stückliste aufgenommen"
Call Limitierung
Call Legogesicht
Else
MsgBox "Bauteil wurde nicht gefunden, bitte erneut scannen!"
End If
End With
End If
Vielen Lieben Dank !!!
|