VBA - Zellinhalte vergleichen und in andere Spalte

Computer: Software & Programmierung Visual Basic
#1

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

#2

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

#3

Hallo Reinhard.

Danke für die Antwort.
Werde es gleich mal ausprobieren.

Geb dann Bescheid, ob es funktioniert.

Gruß,
Victoria

#4

Hallo Reinhard,

ich gleich noch mal.
Funktioniert prima.
Vielen Dank.

Gruß,
Victoria