Kann mir bitte noch einmal jemand helfen
ich möchte aus Tab1 daten in Tab2 speichern, das mache ich mit folgendem code:
Dim i As Integer
i = Sheets("Tabelle2").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i < 4 Then i = 4
Sheets("Tabelle2").Cells(i, 1) = Sheets("Tabelle1").Cells(4, 2)
End With
wbZiel.Close savechanges:=True
End Sub
Wenn der Datensatz aber schon vorhanden ist sollte er nich ein zweites mal gespeichert werden. gehtso etwas zu realisieren?
Vieleicht mit einen Fehelemeldung?
mfG Lisa