Range in anderem Tabellenblatt
16.08.2014 09:04:55
Thomas
ich habe in einer Prozedur für Tabelle1(Tabelle1) unten stehenden - einfachen - code.
Ich möchte einen dynamischen Bereich (Range) aus Tabelle 2 erstellen. Wo der Laufzeitfehler 1004 auftritt habe ich im code markiert. Der Code ist nur eine vereinfachte Version um zur Problemlösung zu kommen. Ich danke für Ideen, Anregungen und Hilfestellungen.
Private Sub ComboBox1_Change()
Dim wb As Workbook
Dim wks_d As Worksheet, wks_v As Worksheet
Dim rng_bereich As Range
Dim lng_ezeile As Long, lng_lzeile As Long, lng_spalte As Long
Set rng_bereich = Nothing
lng_lzeile = 0
Set wb = Application.ActiveWorkbook
Set wks_d = wb.Sheets("Tabelle2")
Set wks_v = wb.Sheets("Tabelle1")
lng_ezeile = 3
lng_lzeile = 19
lng_spalte = 3
lng_lzeile = wks_d.Cells(Rows.Count, lng_spalte).End(xlUp).Row
'hier tritt der Laufzeitfehler 1004 auf
'offensichtlich kann man kein .Range auf ein anderes Tabellenblatt stellen
'Aktiv ist das Sheet Tabelle1.
'Ich möchte jedoch nicht Sheets(Tabelle2).Activate verwenden
'Da verschiedene Prozeduren mit Workbook_Activate() losgetreten werden
Set rng_bereich = wks_d.Range(Cells(lng_ezeile, lng_spalte), Cells(lng_lzeile, lng_spalte))
End Sub
LG thowe