Sub Verschieben2010()
Dim wks2 As Worksheet
Dim lgLetzte As Long
Dim intFrage As Integer
Set wks2 = Sheets("Erledigte Aufträge 2010")
intFrage = MsgBox("Ausgewählte Zeile wirklich in erledigte Aufträge 2010 verschieben?", vbYesNo, _
"Rückfrage")
If intFrage = 7 Then
Exit Sub
End If
lgLetzte = wks2.[a65536].End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Copy wks2.Cells(lgLetzte, 1)
wks2.Cells(lgLetzte, 9).Cut Destination:=wks2.Cells(lgLetzte, 9)
Rows(ActiveCell.Row).Delete
End Sub
Sub Verschieben2010()
Dim wks2 As Worksheet
Dim lgLetzte As Long
Dim intFrage As Integer
dim i as long
dim a as boolean
Set wks2 = Sheets("Erledigte Aufträge 2010")
intFrage = MsgBox("Ausgewählte Zeile wirklich in erledigte Aufträge 2010 verschieben?", vbYesNo, _
_
"Rückfrage")
If intFrage = 7 Then
Exit Sub
End If
lgLetzte = wks2.[a65536].End(xlUp).Row + 1
a=false
for i =3 to 9
if cells(activecell.row,i).value<>"" then a=true
if a=false then
MsgBox("Leere Zelle!")
exit sub
end if
next i
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Copy wks2.Cells(lgLetzte, 1)
wks2.Cells(lgLetzte, 9).Cut Destination:=wks2.Cells(lgLetzte, 9)
Rows(ActiveCell.Row).Delete
End Sub
GrußSub Verschieben2010()
Dim wks2 As Worksheet
Dim lgLetzte As Long
Dim intFrage As Integer
Set wks2 = Sheets("Erledigte Aufträge 2010")
intFrage = MsgBox("Ausgewählte Zeile wirklich in erledigte Aufträge 2010 verschieben?", _
vbYesNo, _
"Rückfrage")
If intFrage = 7 Then
Exit Sub
End If
If Application.CountA(Cells(ActiveCell.Row, 3).Resize(, 7)) < 7 Then
MsgBox "Nicht alles gefüllt"
Exit Sub
End If
lgLetzte = wks2.[a65536].End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Copy wks2.Cells(lgLetzte, 1)
wks2.Cells(lgLetzte, 9).Cut Destination:=wks2.Cells(lgLetzte, 9)
Rows(ActiveCell.Row).Delete
End Sub