Daten überschreiben!
17.02.2009 16:22:00
lisa
Ich habe in der Recherche nichts passendes gefunden und wende mich deshalb wieder an Euch.
Ich kopiere hier Daten von Tabelle1 nach Tabelle2!
Wenn ich einen Datensatz in Tabelle2 schon einmal vorliegen habe, breche ich den Vorgang ab und informiere per MsgBox.
Hierzu prüfe ich die Eingabe in Celle c1 der Eingabe Tabelle und die Spalte A:A der Ziel Tabelle.
Ich möchte nun aber den gefundenen vorhandenen Datensatz der Zieltabelle überschreiben, mit der Hinweis MsgBox wirklich überschreiben J/N.
Wie stelle ich das an? Kann mir heirbei jemand helfen?
Ich füge hier das Macro bei, wenn ich eine Bsp.-Tabelle zur besseren Verständlichkeit hochladen soll, sagt bitte bescheid.
Private Sub CommandButton1_Click()
If Not Application.CountIf(Sheets("Datenbank").[A:A], [C1]) > 0 Then
Dim wsT As Worksheet
Dim i As Integer
i = Sheets("Datenbank").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i 0 Then
Sheets("Datenbank").Cells(i, 1) = Sheets("Dateneingabe").Cells(1, 3)
Sheets("Datenbank").Cells(i, 2) = Sheets("Dateneingabe").Cells(2, 2)
Sheets("Datenbank").Cells(i, 3) = Sheets("Dateneingabe").Cells(2, 3)
Range("i1") = Range("i1") + 1
End If
Else
MsgBox [C1].Text & " schon vorhanden!"
End If
End Sub
Mfg Lisa