zeile in andere datei kopieren danach löschen
08.03.2005 18:15:26
andreas
kann mir jemand helfen und mitteilen, was für einen code ich in den nachstehenden einfügen muss, damit die zu löschende zeile vorgängig in das Dokument "archiv.xls, Tagelle1" eingetragen wird. leider reichen meine vba-kenntnisse dafür nicht aus. der code befindet sich in einer userform
vielen dank
gruss andreas
Private Sub CommandButton5_Click()
Dim mldg, stil, titel, grc
mldg = "Eintrag wirklich löschen"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
Dim r&
If ComboBox1.ListIndex = -1 Then
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
r = ComboBox1.ListIndex + 2
End If
Worksheets("Personaldaten").Activate
Range(Cells(r, 1), Cells(r, 256)) = ""
'hier wird ds tabellenblatt auf leere Zeilen kontrolliert
'die dann gelöscht werden
Dim i%, Alle%
Application.ScreenUpdating = False
Worksheets("Personaldaten").Activate
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop
Next i
Call UserForm_Initialize
End Sub
Anzeige