Makro hängt sich manchmal auf?!
23.08.2017 11:06:22
Martin
ich habe ein Makro für eine geschützte Datei, bei der spezielle Datenbankformeln "wertkopiert" werden müssen. Es wird eine Kopie des Registerblattes erstellt und dort das PW aufgehoben und die Daten wertkopiert. Leider hängt sich das Makro bei einigen Kollegen auf - bei mir läuft es in wenigen Sekunden durch. Woran könnte es liegen bzw. welche Befehle können verbessert/optimiert werden? Danke euch im Voraus!
Sub Wertkopie_DBR_DBS()
ActiveSheet.Unprotect "PW"
Calculate
Dim Bereich As Range
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Endspalte = Selection.Columns(Selection.Columns.Count).Column
EndZeile = Selection.Rows(Selection.Rows.Count).Row
Startspalte = 1
Startzeile = 1
Set Bereich = Range(Cells(Startzeile, Startspalte), Cells(EndZeile, Endspalte))
For Each z In Bereich
On Error Resume Next
' Wertkopie für DBRn, DBSn, SUBNM, VIEW und DIMNM - Funktionen:
If InStr(z.Formula, "DBR") Or _
InStr(z.Formula, "DBS") Or _
InStr(z.Formula, "SUBNM") Or _
InStr(z.Formula, "VIEW") Or _
InStr(z.Formula, "DIMNM") Then
z.Value = z.Value
End If
Next z
Range("A1").Select
'Next AnzAB
Mldg = "TEXT"
MsgBox (Mldg)
Range("A1").Select
'ActiveSheet.Protect "PW"
End Sub