Zakres VBA z String
To trochę głupie, ale utknąłem na chwilę w tym prostym stwierdzeniu:
<code> Dim range1 as Range Dim mysheet as String Dim myrange as String mysheet = "Sheet1" range = "A1:A10" range1 = Worksheets(mysheet).Range(myrange) </code>
Na przykład testowałem wszystkie rozwiązania, które znalazłem w Internecieto, to ito, ale nic.
Przez cały czas pojawiają się błędy: 1004 „Błąd zdefiniowany przez aplikację” lub „zmienna obiektowa lub bez ustawienia”.
Próbowałem:
<code>range1 = ThisWorkbook.Worksheets(mysheet).Range(myrange) range1 = ActiveWorkbook.Worksheets(mysheet).Range(myrange) range1 = Sheets(mysheet).Range(myrange) (and the combinations above) range1 = Worksheets(mysheet).Range(Cells(1,1), Cells(1,10)) (and the combinations with This/Active workbook) </code>
i
<code>with This/ActiveWorkbook range1 = .Worksheets(mysheet).Range(myrange) end with </code>
Nikt nie pracował.
To NAPRAWDĘ głupia rzecz, ale utknąłem na chwilę
Czy ktoś może mi pomóc?
Naprawdę z góry dzięki.
Z poważaniem,