mit u.a. Makro ermittele ich in einem Worksheet Zeilen, die ich löschen will (Zeile wird leer gemacht, wenn da in der betreffenden Spalte ein Wert aus dem Array "BekannteGr()" drin steht).
Ich muss aber zu Kontrollzwecken alles, was ich lösche, in einem anderen Worksheet wegspeichern.
Das macht das Makro auch.
Aber: Durch das "Sheets().Select" flimmert der Bildschirm sich tot und es geht viel Zeit verloren.
Gibt es einen Weg, dass der Wert einfach auf dem Sheet "3_Check" weggespeichert wird, ohne dass die Anzeige umspringt?
Danke vorab für jeden Tip,
Volker
'*** 00B025 Defaultmäßig vergebene Gruppen und Gruppentypen löschen ***
'*** Definition in 000002 ***
Sheets("2_Statistik").Select
For ZeilenZ1 = 2 To LetzteZ1
For GrZ = 0 To MaxBekGrZ
AuswertGr = Cells(ZeilenZ1, GroupnameSpalte)
If InStr(UCase(AuswertGr), UCase(BekannteGr(GrZ))) > 0 Then
Range("A" & ZeilenZ1 & ":Z" & ZeilenZ1).Select '*** betreffende Zellen markieren
Selection.Copy '*** kopieren
Sheets("3_Check").Select '*** auf Sheet "3_Check" wechseln
Range("A" & CheckZ1 & ":A" & CheckZ1).Select '*** nächste freie Zeile anwählen
ActiveSheet.Paste '*** dort einfügen
CheckZ1 = CheckZ1 + 1 '*** Index für nächste freie Zeile erhöhen
Sheets("2_Statistik").Select '*** zurück auf Sheet "2_Statistik"
Range("A" & ZeilenZ1 & ":Z" & ZeilenZ1).Select '*** nochmal zu löschende Zellen markieren
Selection.ClearContents *** Markierte Zellen löschen
End If
Next
Next