Nachfolgenden Code habe ich in der Tabelle "Import". Er wird ausgeführt, wenn ich die Tabelle verlasse und funktioniert.
Wenn ich nun den gleichen Code in einem Modul habe, hat er ein Problem bei "Set Bereich" (anwendungs/objektdefinierter Fehler)
Weshalb?
Danke für ein Hinweis.
Peter
Sub worksheet_deactivate() 'Code in Tabelle funktioniert
Sub ausModul() 'Code in Modul funktioniert nicht
Application.StatusBar = ""
Dim lngSpa As Long, lngAnf As Long, lngEnd As Long, i As Long, lngSpalte, lZeile As Long, c As _
Range
Dim Bereich As Range
lngAnf = [iStart].Row
lngSpa = [iStart].Column
lngEnd = Sheets("Import").Cells(65536, lngSpa).End(xlUp).Row
Set Bereich = Worksheets("Import").Range(Cells(lngAnf, [soh].Column), Cells(lngEnd, [soh]. _
Column))
ActiveWorkbook.Names.Add _
Name:="SOLLHABEN", _
RefersTo:=Bereich, Visible:=True
End Sub