Daten aus Blatt - ohne Activate?
07.05.2020 14:43:10
STeve
Muss aus zwei Blättern - Werte (Spalte A bis F) in Variable packen.
Leider muss ich dazu immer das Blatt aktivieren.
Denke das macht meinen Code seeehr langsam.
Wie müsste ich referenzieren um das "Activate" zu umgehen?
Besten Dank für eure Tipps............lg STeve
Anbei auch eine Musterdatei
https:\/\/www.herber.de/bbs/user/137348.xls
Sub vergleich()
Dim Werte_neu_gesamt As Variant
Dim Werte_alt_gesamt As Variant
Dim Blatt1 As Object, Blatt2 As Object
Set Blatt1 = Worksheets("Tabelle1")
Set Blatt2 = Worksheets("Tabelle2")
weiter:
Blatt1.Activate
With Blatt1
Werte_alt_gesamt = .Range(Cells(1, 1), Cells(1, 6)).Value
End With
Debug.Print Werte_alt_gesamt(1, 1)
Blatt2.Activate
With Blatt2
Werte_neu_gesamt = .Range(Cells(1, 1), Cells(1, 6)).Value
End With
Debug.Print Werte_neu_gesamt(1, 1)
GoTo weiter
End Sub