Makro hilfe
13.02.2004 08:24:42
Strutz
funktioniert leider nicht richtig, die Werte werden nicht in ein neues Tabellenblatt kopiert.
Vieleicht wäre es besser mann benennt das TB mit "sichern". Außerdem wird leider nur eine Zeile kopiert, es sollten aber alle Zeilen die geleert werden vorher in die nächste freie Zeile in TB "sichern" kopiert werden. Ich wäre euch dankbar wenn ihr mir helfen könntet das Problem zu lösen.
Strutz
Sub löschen()
Ant = MsgBox("Liste schon gedruckt?", vbYesNoCancel + vbInformation)
If Ant = vbCancel Then Exit Sub
If Ant = vbNo Then
Drucker
Ant = MsgBox("Liste schon gedruckt?", vbYesNoCancel + vbInformation)
If Ant = vbCancel Then Exit Sub
End If
If Ant = vbYes Then
For i = 8 To 56
If Cells(i, 7).Value = 12 Then
With Sheets(2)
r = .Cells(65536, 2).End(xlUp).Row
'If r < 3 Then r = 3
Range(Cells(i, 2), Cells(i, 8)).Copy Destination:=.Cells(r, 3)
Range(Cells(i, 2), Cells(i, 8)) = ""
End With
End If
Next i
End If
End Sub