Worksheet-Variable
04.06.2020 14:35:02
JonTom
ich habe eine Variable als Worksheet deklariert.
Ich möchte einem Range auf dem Worksheet Werte aus einer Array-Variblen zuweisen. Leider bekomme ich einen Fehlermeldung bei der Zuweisung, wenn ich nicht vorher das Worksheet aktiviere. Dies würde ich aber gerne vermeiden. Wo liegt mein Fehler?
Dim arWerte As Variant
Dim Datum As Date
Dim wsQuell As Worksheet
Dim wsZiel As Worksheet
Dim rngZelle As Range
Set wsQuell = ThisWorkbook.Worksheets("Eingabe")
Set wsZiel = ThisWorkbook.Worksheets("Daten")
Datum = wsQuell.Range("b5").Value
arWerte = wsQuell.Range("b6:b11").Value
Set rngZelle = wsZiel.Rows(3).Find(what:=Datum, lookat:=xlWhole)
'wsZiel.Activate
If Not (rngZelle Is Nothing) Then
wsZiel.Range(Cells(4, rngZelle.Column), Cells(9, rngZelle.Column)) = arWerte
End If
Beste Grüße
JonTom