Hallo,
ich habe ein Problem mit dem Befehl PasteSpecial.
Ich möchte den Inhalt mehrerer Zellen aus Tabellenblatt "Master" in eine bestimmte Zeile in Tabellenblatt "Daten" kopieren. Um die richtige Zeile zu finden verwende ich eine Index-Nr. die es nur einmal gibt. Im Prinzip soll das zur Aktualisierung eines Datensatzes dienen, ohne die Datenzeile in der Tabelle suchen zu müssen. Das funktioniert soweit auch ganz gut. Wähle ich jetzt aber die kopierten Zellen in dem Tabellenblatt "Master" wieder aus, um den Inhalt zu löschen, werden alle folgenden Zeilen ab der zuletzt kopierten und eingefügten Zeile im Tabellenblatt "Daten" ebenfalls gelöscht.
Nehme ich den Code zum Löschen der Zellen im Tabellenblatt "Master wieder heraus, funktioniert alles wieder und die restlichen Daten in der Tabelle "Daten" bleiben erhalten. Ich habe schon seit mehreren Tagen gebastelt, aber kann den Fehler nicht finden. Da ich absoluter Anfänger im Bereich VBA bin brauche ich etwas Hilfe.
Kann mir irgend jemand sagen, was ich falsch mache?
Hier den Code den ich dazu verwenden wollte:
Schon mal vielen Dank im Voraus
Sub Update()
Application.ScreenUpdating = False
Worksheets("Daten").Select
x = Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To x
If Cells(i, 1) = Worksheets("Master").Cells(3, 2) Then
Worksheets("Master").Select
Range("B3:J3").Select
Selection.Copy
Worksheets("Daten").Select
Cells(i, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Master").Select
Range("B3:J3").ClearContents
End If
Next
End Sub