Anwendungs- / Objektfehler während des Einfügevorgangs

350
LifeisWild

Ich arbeite jetzt seit einer Woche in diesem Code, ich bin ein bisschen neu in VBA und bin kurz davor, das zu tun, wozu ich es brauche, aber ich bekomme immer einen "Anwendungsdefinierten oder objektdefinierten Fehler" im letzte Linie. Mein Code ist ziemlich simpel, er fordert 3 Imputs auf Sheet1-Positionen an, an denen sie angeordnet sein müssen, und kopiert jede Information in die erste Zeile von Sheet2 in den entsprechenden Zellen. Dann sucht sie nach dem Wert der ersten Eingabe oder nach dem Wert von Die erste Zelle namens last4 (die noch daran arbeitet) fügt eine Zeile rechts oberhalb der Position in Sheet2 hinzu und kopiert dann die erste Zeile in diese neue leere Zeile. Wenn ich jetzt diesen Fehler einfach loswerden und richtig nach der Zelle suchen könnte, sollte alles reibungslos laufen. Jede Hilfe wäre dankbar.

Sub CommandButton1_Click()  Dim Last4 As Variant Dim SerialNum As Variant Dim ExpDate As Variant Dim addaul As Worksheet  Do  Last4 = InputBox("Insert the last 4 numbers on the NSN for the Hazmat", "RECEIVED HAZMAT") Range("D" & Rows.Count).End(xlUp).Offset(1).Value = Last4 Sheets("AUL").Range("A1").Value = Last4  If Last4 = Blank Then Exit Sub  SerialNum = InputBox("Scan the Serial Number of the Hazmat", "RECEIVED HAZMAT") Range("E" & Rows.Count).End(xlUp).Offset(1).Value = SerialNum Sheets("AUL").Range("H1").Value = SerialNum  If SerialNum = Blank Then Exit Sub  ExpDate = InputBox("Insert the expiration date for the Hazmat", "RECEIVED HAZMAT") Range("F" & Rows.Count).End(xlUp).Offset(1).Value = ExpDate Sheets("AUL").Range("I1").Value = ExpDate  If ExpDate = Blank Then Exit Sub  Sheets("AUL").Select Sheets("AUL").Range("A1").Select Application.CutCopyMode = False Selection.Copy Sheets("AUL").Cells.Find(What:="Last4", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Application.CutCopyMode = False Selection.EntireRow.Insert  Sheets("AUL").Range("A1:O1").Copy Sheets("AUL").Range("A1:O1" & Rows.Count).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues <------ ERROR LINE IS THIS ONE  Loop Until Last4 = Blank End Sub 
1

0 Antworten auf die Frage