Nicht verschieben wenn
22.11.2002 17:49:02
Alexander W
Mit diesem Makro verschiebe ich Zeilen in andere Arbeitsblätter und sortiere Spalte A.
In Spalte A sollen immer Zahlenwerte stehen.
Falls dort Text steht, soll dieser , nach einer Meldung, nicht verschoben werden.
Wie kann ich das hinkriegen?
Bitte um eure Hilfe
Sub ZeileVerschiebenLöten()
Worksheets("Löten").Range("A1").Sort _
Key1:=Worksheets("Löten").Columns("A"), _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim wks9 As Worksheet
Dim lgLetzte As Long
Set wks9 = Sheets("Löten")
intFrage = MsgBox("Wollen Sie das wirklich tun?", vbYesNo, "Rückfrage")
If intFrage = 7 Then
Exit Sub
End If
lgLetzte = wks9.[a65536].End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Copy wks9.Cells(lgLetzte, 1)
wks9.Cells(lgLetzte, 7).Cut Destination:=wks9.Cells(lgLetzte, 7)
Rows(ActiveCell.Row).Delete
End Sub