Bildschirmaktualisierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Galenzo
Hier ein wenig Code:
Hauptprozedur:


Private Sub cmdAllesLöschen_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Names("EinzelgewichtSendung").RefersToRange.Select
Select Case intSprache
Case 1
Title = "Löschen der Einträge"
msg = "Wollen Sie das Aufgabeverzeichnis vor dem Löschen ausdrucken?"
Case 2
Title = "Effacer les entrées"
msg = "Voulez-vous imprimer le bordereau de dépôt avant de l'effacer?"
Case 3
Title = "Cancellare registrazioni"
msg = "Desiderate stampare la distinta d'impostazione prima della cancellazione?"
Case Else
Title = "Löschen der Einträge"
msg = "Wollen Sie das Aufgabeverzeichnis vor dem Löschen ausdrucken?"
End Select
Reply = MsgBox(msg, vbYesNoCancel, Title)
If Reply = vbYes Then
cmdAufgabeverzeichnisD_Click
ElseIf Reply = vbCancel Then
Exit Sub
Else
intLöschung = 0
End If
If intLöschung = 0 Then
AllesLöschen
End If
Application.ScreenUpdating = True
End Sub

Untermodul "AllesLöschen":
Sub AllesLöschen()
Sheets("Sendung").Select
Sheets("Sendung").Unprotect (strSchutz)
ActiveWorkbook.Names("FormatR").RefersToRange.Select
ActiveCell.FormulaR1C1 = ""
ActiveWorkbook.Names("FormatN").RefersToRange.Select
ActiveCell.FormulaR1C1 = ""

Sheets("AVZ").Select
Sheets("AVZ").Unprotect (strSchutz)

ActiveWorkbook.Names("Barfrankatur").RefersToRange.Select
Selection.ClearContents
ActiveWorkbook.Names("FrankierungDritte").RefersToRange.Select
Selection.ClearContents
ActiveWorkbook.Names("Aufgabebestätigung").RefersToRange.Select
Selection.ClearContents

Sheets("AVZ").Protect (strSchutz)

Worksheets("Sendung").OLEObjects("cmbProgramm").Object.Value = ""

Sheets("Daten").Select
Sheets("Daten").Unprotect (strSchutz)
ActiveWorkbook.Names("WertzeichenJaNein").RefersToRange.Select
ActiveCell.FormulaR1C1 = "False"
ActiveWorkbook.Names("FrankierungJaNein").RefersToRange.Select
ActiveCell.FormulaR1C1 = "False"
Sheets("Daten").Protect (strSchutz)

Worksheets("Sendung").OLEObjects("chkWertzeichen").Enabled = False
Worksheets("Sendung").OLEObjects("chkBarWert").Enabled = False
Worksheets("Sendung").OLEObjects("chkPostkontoWert").Enabled = False

Sheets("Sendung").Unprotect (strSchutz)
ActiveWorkbook.Names("Frankierung").RefersToRange.Value = ""
ActiveWorkbook.Names("FrankierterGesamt").RefersToRange.Value = ""
ActiveWorkbook.Names("FrankAndereProdukte").RefersToRange.Value = ""

ActiveWorkbook.Names("AnzahlSendungen1").RefersToRange.Select
Sheets("Sendung").Select
ActiveWorkbook.Names("EinzelgewichtSendung").RefersToRange.Select
Sheets("Sendung").Protect (strSchutz)

End Sub

jep - daß hab' ich mir gedacht.
Ich denke, durch das Selektieren kommt es zu dem Problem.
Versuche mal, das Ganze OHNE Selektieren zu lösen.
Ich habe jetzt leider keine Zeit, deinen Code komplett zu überarbeiten, aber hier mal ein Beispiel, wie's geht:
Statt
Sheets("AVZ").Select
Sheets("AVZ").Unprotect (strSchutz)
ActiveWorkbook.Names("Barfrankatur").RefersToRange.Select
Selection.ClearContents
schreibst du:
Sheets("AVZ").Unprotect (strSchutz)
Sheets("AVZ").Range("Barfrankatur").ClearContents
Du sprichst also den Bereich "Barfrankatur" auf dem Blatt "AVZ" direkt an (un leerst ihn)
OHNE das er vorher erst ausgewählt wird.
Zum Löschen muß er ja nicht extra noch vorher noch ausgewählt werden. Das würde nur das Blatt umschalten und Flackern etc. erzeugen...
Und der Code läuft außerdem viel schneller.
Schau dir diese Vorgehensweise mal an und lern was draus :-)
Viel Erfolg dabei!
mfg

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread