vor Makro = Abfrage

Hallo Leute.
Ich habe zwei Makro's ("drucken" u. "löschen") und möchte gerne eine Abfrage vor die Ausführung des Makro's "löschen" ablaufen lassen. Dazu bräuchte ich aber noch ein Makro "sichern" in dem die Werte die gelöscht werden sollen, in ein zweites Tabellenblatt (ab C3)kopiert werden sollen (gleiche Datei).
Tabellenblatt ist geschützt (ohne Passwort).
Abfrage bevor löschen: "Liste schon gedruckt?"
Nein = drucken
Ja = "Werte werden gesichert in TB2" sichern
"Werte werden gelöscht"
Ja = löschen
Nein = nichts


Sub löschen()
For i = 8 To 56
If Cells(i, 7).Value = 12 Then
Range(Cells(i, 2), Cells(i, 8)) = ""
End If
Next
End Sub


Sub Drucker()
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Soll die Liste gleich gedruckt werden?", vbYesNo + vbQuestion, SicherungsDatei) = vbYes Then
ActiveSheet.PrintOut
End If
End Sub

Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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("Sichern") '<<<<<<<<<<< Tabellename ändern r = .Cells(65536, 3).End(xlUp).Row + 1 '<<<<<< hier war der Fehler '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

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread