Ich versuche mich aktuell an einer Tabelle mit VBA.
Ich möchte über einen Button Zeilen in das "Tabellenblatt 2" kopieren, wenn in Spalte F "Widervorlage" steht.
Soweit sogut. Das Programm dafür habe ich auch schon erfolgreich hinbekommen. Jetzt fügt es mir aber immer wenn ich auf den Button klicke alle Datensätze neu ein und es erfolgt kein Abgleich, ob die Daten schon vorhanden sind. Könnte mir da jemand weiterhelfen.
Mein aktuelles Programm sieht wie folgt aus:
Sub Schaltfläche2_Klicken()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Tabelle1")
Set tarWks = Worksheets("Tabelle2")
With srcWks
For i = 1 To .Cells(.Rows.Count, 6).End(xlUp).Row
If .Cells(i, 6).Value = "Widervorlage" Then
tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 6)).Value =
srcWks.Range(srcWks.Cells(i, 1), srcWks.Cells(i, 6)).Value
End With
End If
Next i
End With
End Sub
Ich hoffe jemand kann mir helfen.
LG Nadine