Zeile ausschneiden und in anderem Sheet einfügen

Hallo zusammen,
ich möchte über ein Userform eine bestimmte Zeile anhand eines Referenzwertes ausschneiden und in ein anderes Tabellenblatt einfügen. Mein aktueller Code funktioniert zwar, jedoch nicht so wie ich es möchte.
Im dargestellten Code wird die markierte Zeile ausgeschnitten, es bleibt eine Leerzeile. Es sollen jedoch die darunterliegenden Zeilen entsprechend "hochrutschen"
Weiter wird im zweiten Blatt die ausgeschnittene Zeile in Zeile 1 eingefügt. Diese soll jedoch unten in die erste mögliche freie Zeile eingefügt werden.
Hier der Code:

Private Sub delete_mistake_Click()
'MsgBox "This Button will be working soon. It is already planned to delete invalid data records. _
Dim x As Range
R_RMA = lbl_RMA.Caption
Set x = Sheets("B&O Issue Log").Columns(2).Find(What:=R_RMA, LookAt:=xlWhole)
If Not x Is Nothing Then
x.EntireRow.Select
Selection.Cut
Sheets("Error Log").Rows.Insert Shift:=xlDown
End If
End Sub

Vielen Dank vorab
Viele Grüße
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub delete_mistake_Click() 'MsgBox "This Button will be working soon. It is already planned to delete invalid data records. _ _ Dim x As Range R_RMA = lbl_RMA.Caption Set x = Sheets("B&O Issue Log").Columns(2).Find(What:=R_RMA, LookAt:=xlWhole) If Not x Is Nothing Then x.EntireRow.Cut Sheets("Error Log").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row x.EntireRow.Delete shift:=xlUp End If End Sub

Private Sub delete_mistake_Click() 'MsgBox "This Button will be working soon. It is already planned to delete invalid data records. _ In the meantime ask the Excel-Support for reworking mistakes" Dim x As Range R_RMA = lbl_RMA.Caption Set x = Sheets("B&O Issue Log").Columns(2).Find(What:=R_RMA, LookAt:=xlWhole) If Not x Is Nothing Then x.EntireRow.Cut Sheets("Error Log").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row x.EntireRow.Delete shift:=xlUp End If End Sub

Guten Morgen Matthias,
sorry, PW lautet Papaya.
ich habe das jetzt nochmal getestet:
Nehme ich im zu bereinigenden Sheet die erste Datenzeile nach der Überschriftenzeile, wird diese korrekt ausgeschnitten, in das zweite Sheet eingefügt und die Leerzeile gelöscht.
Nehme ich eine Zeile mitten drin z. B. Zeile 4, wird die Zeile 4 ausgeschnitten und in die zweite Tabelle eingefügt, Zeile 4 bleibt als Leerzeile, dafür wird Zeile 3 komplett gelöscht. Wiederhole ich das (nachdem ich die Leerzeile manuell entfernt habe wieder mitten in den Zeilen, wird eben wieder nur eine Zeile ausgeschnitten, Leerzeile bleibt stehen dafür wird eine andere gelöscht.
Hoffe das ist nichts grosses, aber ich komme nicht drauf.
VG
Uwe

Private Sub delete_mistake_Click() 'MsgBox "This Button will be working soon. It is already planned to delete invalid data records. _ In the meantime ask the Excel-Support for reworking mistakes" Dim x As Range, y As Long R_RMA = lbl_RMA.Caption Set x = Sheets("B&O Issue Log").Columns(2).Find(What:=R_RMA, LookAt:=xlWhole) Dim y As Long If Not x Is Nothing Then y = x.Row x.EntireRow.Cut Sheets("Error Log").Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow Sheets("B&O Issue Log").Rows(y).Delete End If End Sub

Beliebteste Forumthreads (12 Monate)

Zeile ausschneiden und in anderem Sheet einfügen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

235 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile ausschneiden und in anderem Sheet einfügen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

235 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread