Kopieren mit 2 Bedingungen
14.10.2020 21:14:15
Andre
Ich habe mal wieder ein Problem:( und zwar habe ich ein Code mit dem eine Zeile kopiert mit Bedingung wie muss ich den Code aendern das er zwei Bedingungen erfuellt und dem entsprechent kopiert.
Die erste Bedingung steht in Tabelle1 ab B29 und die zweite ab C29 gesucht werden sollen die Bedingungen in Tabelle 3 in Spalte D und Spalte E
Kopiert werden soll dann der Zellinhalt Tabelle1 ab F29
Eine Beispieldatei habe hochgeladen https://www.herber.de/bbs/user/140885.xlsx
Vielen Dank im voraus
Hier der Code:
Private Sub CommandButton1_Click()
Dim vntRow, c As Long
vntRow = Application.Match(Tabelle1.Range("B29"), Tabelle3.Columns(4), 0)
'Lieferschein 'Haupttabelle
If IsError(vntRow) Then
MsgBox "Nummer nicht vorhanden"
Else
With Tabelle3 'Haupttabelle
For c = 8 To 12
If .Cells(vntRow, c) = "" Then
.Cells(vntRow, c) = Tabelle1.Range("F29")
'Lieferschein
Exit For
End If
Next c
End With
End If
End Sub
Anzeige