Activate weglassen
27.03.2021 13:44:30
Christian
Für euch ist folgendes bestimmt wieder eine Kleinigkeit
Ist es möglich in diesem Makro auf das aktivieren der
Arbeitsblätter zu verzichten
wenn Ja was muss ich tun
Sub Änderung()
Call getMoreSpeed(True)
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim ez As Integer, lz As Integer, lsb As Integer
Dim i As Range
Dim a As Variant
Dim Bereich As Range
Set ws1 = ThisWorkbook.Worksheets(Tabelle1.Name)
Set ws2 = ThisWorkbook.Worksheets(Tabelle2.Name)
Set ws3 = ThisWorkbook.Worksheets(Tabelle5.Name)
ez = 5
lsb = ws1.Cells(4, 256).End(xlToRight).Column
lz = ws1.Cells(Rows.Count, 2).End(xlUp).Row
ws3.Activate
ws3.Range(Cells(ez, 1), Cells(lz, lsb)).Delete
ws1.Activate
Set Bereich = ws1.Range(Cells(ez, 1), Cells(lz, lsb))
For Each i In Bereich
a = i.Address
If i.Value ws2.Range(a).Value Then
ws3.Range(a).Value = i.Value
ws3.Range(a).Interior.ColorIndex = 3
Else
'tue nix
End If
Next i
ws3.Activate
Set Bereich = Nothing
Set ws1 = Nothing
Set ws2 = Nothing
Set ws3 = Nothing
Call getMoreSpeed(False)
End Sub
Gruß Christian