Anwendungs- / Objektfehler während des Einfügevorgangs
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
0 Antworten auf die Frage
Verwandte Probleme
-
3
Meine Datei ist in Excel 2007 gesperrt. Was ist los?
-
2
Gibt es eine Möglichkeit, Excel 2007 automatisch zu speichern, wie dies bei MS Word der Fall ist?
-
1
Excel Word Wrap + verschwindet Text
-
1
Einfaches Zusammenführen / Löschen mit Excel
-
7
Wie können Sie Microsoft Excel mit voller Geschwindigkeit laufen lassen, auch wenn der Fensterfokus...
-
2
Warum können Sie Bilder nicht in Excel kopieren / einfügen, aber Screenshots funktionieren?
-
3
So synchronisieren Sie Excel mit der Google Docs-Tabelle
-
9
Wie teilen Sie einen Namen auf, um Vorname und Nachname zu erhalten?
-
1
Links in Excel haben sich nach einem Absturz geändert
-
1
Was ist der beste Weg, ein Excel-Makro auf mehreren Computern gemeinsam zu nutzen?