Hallo alle zusammen.
Habe mal wieder ein Problem.
Da ich schon gesucht und nichts gefunden sowie Druck habe, dass das Ganze so schnell wie möglich funktioniert, wende ich mich hiermit an euch.
Habe eine Userform mit mehreren Combo- und Textboxen. Die Übergabe der ausgewählten bzw. eingegebenen Daten in Zellen klappt mittels eines Buttons ohne Probleme.
Nun zu meinem Problem.
Er soll den Zellinhalt von Zelle H5 (hier z.B. PA00002) vom Tabellenblatt „Verp.listen“ mit den Zellinhalten in Spalte C im Tabellenblatt „Paletten“ vergleichen (gleich aufgebaute Zellinhalte) und wenn er diesen Zellinhalt gefunden hat, soll er in der gleichen Zeile bleiben und nur in eine andere Spalte (hier F) gehen.
Wenn er in dieser Spalte ist, soll er vom Zellinhalt der Zelle Fx den Zellinhalt von Zelle H6 vom Tabellenblatt „Verp.listen“ subtrahieren.
Hoffe, ich habe mich verständlich genug ausgedrückt.
Danke schon mal im Voraus.
Gruß
Victoria
Er soll den Zellinhalt von Zelle H5 (hier z.B. PA00002) vom
Tabellenblatt „Verp.listen“ mit den Zellinhalten in Spalte C
im Tabellenblatt „Paletten“ vergleichen (gleich aufgebaute
Zellinhalte) und wenn er diesen Zellinhalt gefunden hat, soll
er in der gleichen Zeile bleiben und nur in eine andere Spalte
(hier F) gehen.
Wenn er in dieser Spalte ist, soll er vom Zellinhalt der Zelle
Fx den Zellinhalt von Zelle H6 vom Tabellenblatt „Verp.listen“
subtrahieren.
Hallo Victoria,
vielleicht so:
Sub tt()
Dim wks1 As Worksheet, wks2 As Worksheet, Gef As Range
Set wks1 = Worksheets("Tabelle1") 'Namen anpassen
Set wks2 = Worksheets("Tabelle2") 'Namen anpassen
With wks2
Set Gef = .Range("C:C").Find(wks1.Range("H5"))
If Not Gef Is Nothing Then
Gef.Offset(0, 3) = Gef.Offset(0, 3) - wks1.Range("H6")
End If
End With
End Sub
Gruß
Reinhard
Hallo Reinhard.
Danke für die Antwort.
Werde es gleich mal ausprobieren.
Geb dann Bescheid, ob es funktioniert.
Gruß,
Victoria
Hallo Reinhard,
ich gleich noch mal.
Funktioniert prima.
Vielen Dank.
Gruß,
Victoria