problem mit End(xlUp).Row und set ActiveWorkbook
27.02.2007 08:25:49
chris b
ich bin am verzweifeln.
wäre der meinung gestern hätte der code noch funktioniert und heute geht nix mehr :(
Bekomme einen fehler bei dieser zeile.
lz = priotabelle.Worksheets("BaP").Cells(Rows.Count, 3).End(xlUp).Row
Weiß aber nicht warum ??
lasse ich das
"priotabelle.Worksheets("BaP")."
weg funktioniert es wieder.Aber warum ???
Danke für eure Hilfe gruß Chris
Type prios
nr As String
prio As Integer
End Type
Public Const priodatei = "\\NUEFIL09\IPN_NOZZLE\Zeichnungswesen\04.Prioritätenliste\Prioritätenliste.xls"
'Vorhandene Module
'Sub prio_proz_bap
'Sub prio_proz_rbtr
'Sub prio_proz_CtP
'Sub prio_proz_RzP
'Sub prio_proz_RBCD
'Sub prio_proz_JD
'Sub prio_proz_MICO
Sub prio_proz()
Dim lz As Integer
Dim i As Integer
Dim y As Integer
Dim x As Integer
Dim xx As Integer
Dim aktnr As String
Dim opendatei
Dim aktaenderbuch
Dim priotabelle As Workbook
Dim such As String
Dim test
Dim daten() As prios
Set aktaenderbuch = ActiveWorkbook
Application.EnableEvents = False
'bereits vorhandenen Prios löschen
Range("CK6:CK50000").ClearContents
Application.EnableEvents = True
'öffnen Datei mit Prios für BaP
Workbooks.Open (priodatei), True, True
Set priotabelle = ActiveWorkbook
'zeile letzte Änderungsnummer
lz = priotabelle.Worksheets("BaP").Cells(Rows.Count, 3).End(xlUp).Row