title image


Smiley Re: Dann poste doch mal den Code und das Fehlerstatement oT
Der fehler kommt bei dem ersten Range.





' SOLA-Eintrage aus "tabelle" extern neu"

Sub verglWS()

' Application.ScreenUpdating = False



Application.StatusBar = "Update SOLA + Bewertung"

Application.StatusBar = True

Dim ws(1), w(0) As Worksheet

Dim Suchwert As String

Dim Bestand As String

Dim ber, rn As Range

Set ws(0) = ActiveWorkbook.Worksheets("TeileAnl1")

Set ws(1) = Workbooks("tabelle.xls").Worksheets("tabelle")

ws(0).Cells(4, 36).Value = ws(0).Cells(4, 35).Value ' name old übernehmen

ws(0).Cells(4, 35).Value = ws(1).Cells(1, 1).Value 'NAme neu schreiben

ws(0).Cells(4, 41).Value = ws(1).Cells(1, 1).Value 'Datum letzte Übertragung

Range("ai7", "ai400").Select ' es wird ein Range mithilfe der Variablen Bereich erstellt

Selection.Copy ' dieses wird selectiert, und kopiert

Range("aj7").Select '

ActiveSheet.Paste



For Each rn In ws(0).[F7:F330]

Suchwert = rn.Value

Set ber = ws(1).[I6:I400].Find(Suchwert)

If ber Is Nothing Then

If ws(0).Cells(rn.Row, 35).Value = "" Then

Else

ws(0).Cells(rn.Row, 35).Value = "Teil nicht gefunden"

End If

Else

ws(0).Cells(rn.Row, 34).Value = ber.Offset(False, 8).Value 'Kum

ws(0).Cells(rn.Row, 35).Value = ber.Offset(False, 7).Value 'Gesamt



ws(0).Cells(rn.Row, 37).Value = ber.Offset(False, 9).Value 'Sperr

ws(0).Cells(rn.Row, 38).Value = ber.Offset(False, 10).Value 'Charge

ws(0).Cells(rn.Row, 39).Value = ber.Offset(False, 16).Value 'Letzt.WE

ws(0).Cells(rn.Row, 40).Value = ber.Offset(False, 17).Value 'Letzt.Menge

ws(0).Cells(rn.Row, 41).Value = ber.Offset(False, 6).Value 'Frei ws(0).Cells(c.Row, 5).Value = ber.Offset(False, 7).Value 'BestandMaß

ws(0).Cells(rn.Row, 95).Value = ber.Offset(False, 11).Value 'TEVON-Maß

ws(0).Cells(rn.Row, 92).Value = ber.Offset(False, 12).Value 'Labor

ws(0).Cells(rn.Row, 93).Value = ber.Offset(False, 13).Value 'Funktion

ws(0).Cells(rn.Row, 94).Value = ber.Offset(False, 14).Value 'Gesamt



End If



Next rn



Set ws(0) = Nothing

Set ws(1) = Nothing

Set rn = Nothing

Set Br = Nothing



Application.CutCopyMode = False



End Sub

---------------------------------------------------------------------------------------

Denke nicht, dass alles was du siehst, auch wirkllich da ist

http://www.onear.de ---------> Sound & Light Technik
http://www.brk-koesching.de -> Mein anderes Hobby

geschrieben von
Sanduar , Uhr , 29 mal gelesen


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: