|
Schön Guten Tag.
Ich habe heute leider folgendes Problem, ich habe 2 Tabellen mit Produkt ID und ich möchte in beiden Tabellen neben der gesuchten ID den Wert in meiner Userform eintragen.
Ich hab es zwar geschafft den wert in der ausgewählten Tabelle einzutragen aber leider nicht in der Zweiten die nicht ausgewählt ist.
Wen mir jemand dabei helfen könnte das ich das selbe auch in die 2 Tabelle Eintragen könnte wäre ich dafür sehr dankbar
Mein Code:
'Erste Tabelle
Dim rfund As Range
'Zweite Tabelle
Dim Zelle As Range
With ActiveWorkbook.Worksheets("Lagerbestand")
Set rfund = .Range("C9:C1008").Find(what:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
End With
With Worksheets("NurZumAblesen")
Set Zelle = .Range("C9:C1008").Find(what:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
End With
If rfund = EGeräteNr Then
rfund.Select
End If
If Not rfund Is Nothing Then
rfund.Offset(, 1).Value = EBez
rfund.Offset(, 2).Value = EAuftrag
If Zelle Is Nothing Then
Zelle.Offset(, 1).Value = EBez
Zelle.Offset(, 2).Value = EAuftrag
Zelle.Offset(, 3).Value = EStatus
Zelle.Offset(, 4).Value = ERaum
|