|
Hallo zusammen,
Ich bin gerade etwas überfragt. Ich habe eine Maske mit der ich bestimmte Daten erfasse, die dann in eine seperate Liste AUSGABE ausgelesen und dort auch gespeichert werden. In der Hauptmaske gibt es den Punkt, "DATEN ÜBERTRAGEN UND LÖSCHEN". Durch Klick auf diesen Button möchte ich die KOMPLETTE Liste in eine weitere Liste AUSWERTUNG übertragen lassen und dort speichern, während Alle Daten in AUSGABE gelöscht werden. Aktuell überträgt er mir nur die Daten aus ZEILE 1 und löscht diese dann aus der AUSGABE. Somit fehlen die restlichen Daten.
Ich verwende für das Vorgehen folgenden Code:
> das Makro liegt auf den Button "DATEN ÜBERRAGEN UND LÖSCHEN"
Sub Auswertung()
Dim PartNumber As String
Dim Parts As String
Dim Quantity As String
Dim CertificateNumber As String
Dim CurrentTime As String
Dim CurrentUser As String
Worksheets("Ausgabe").Select
PartNumber = Range("B2")
Parts = Range("C2")
Quantity = Range("D2")
CertificateNumber = Range("E2")
CurrentTime = Range("F2")
CurrentUser = Range("G2")
Worksheets("Auswertung").Select
Worksheets("Auswertung").Range("B1").Select
If Worksheets("Auswertung").Range("B1").Offset(1, 0) <> "" Then
Worksheets("Auswertung").Range("B1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = PartNumber
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Parts
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Quantity
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CertificateNumber
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CurrentTime
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = CurrentUser
Sheets("PartNumber").Select
ActiveWorkbook.Save
End Sub
Jemand eine Idee wo das Problem liegen könnte?
Vielen Dank schon einmal :)
|