AW: Projekt: Tauschteile-Verwaltung
09.07.2019 10:19:13
Sami
Hallo nochmal,
anscheinend hat man mich falsch verstanden, daher ein neuer Versuch.
Ich habe zum Beispiel folgenden Code mit dem man neue Einträge erstellt.
Jedoch wird immer eine Zeile angesprochen. Sobald ich speichere, wird die einzige vorhandene Zeile überschrieben.
Was auch merkwürdig ist, wenn ich die Zeile lösche, dann springt er eine Zeile weiter, erstellt ein Eintrag und überschreibt dann die "neue" Zeile.
Private Sub add_close_Click()
'Auswahl des Dokuments mit entsprechender Auswahl des Tabellenblatts.
ActiveWorkbook.Sheets("Übersicht").Activate
Dim iRow%
With Sheets(1)
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If iRow = 3 Then iRow = 5
.Range(.Cells(iRow, 1), .Cells(iRow + 4, 15)).Copy Destination:=.Range(.Cells(iRow + 6, 1), _
.Cells(iRow + 10, 15))
Cells(iRow, 1).Value = addtl.oe_nummer
Cells(iRow, 2).Value = addtl.eps_nummer
Cells(iRow, 3).Value = addtl.eg_nummer
Cells(iRow, 4).Value = addtl.turbolader_typ
Cells(iRow, 5).Value = addtl.motor_typ
Cells(iRow, 6).Value = addtl.bestand_eps
Cells(iRow, 7).Value = addtl.bestand_eg
Cells(iRow, 8).Value = addtl.bestand_rep
Cells(iRow, 9).Value = addtl.bestand_kd
'speichern und schließen des Dokuments; Hinweis, dass der Eintrag erstellt worden ist.
'Workbooks("Materialscheinverfolgung.xlsx").Close SaveChanges:=True
MsgBox "Ihr Eintrag wurde erstellt.", vbInformation, "Vielen Dank"
End With
ActiveWorkbook.Sheets("Start").Activate
addtl.Hide
End Sub
BEISPIEL:
Ich erstelle eine neue Zeile (A2 bis F2) generiere einen Eintrag
Zeile B1 bis B10 wird aufgefüllt.
Erstelle ich einen neuen Eintrag mittels Formular wird erneut A2:F2 genommen.
Lösche ich nun die Zeile 2, erstellt er den Eintrag in Zeile 3 und ich weiß nicht warum.
Wo ist der Fehler?