Hallo zusammen,
ich probiere erstmalig eine Exceltabelle mit Hilfe von VBA zu füllen.
Ich habe ein Tabellenblatt in dem Lageraufträge eingegeben und automatisch gedruckt werden sollen.
Soweit auch alles kein Problem.
Meine Problematik sieht jetzt wie folgt aus:
Jetzt möchte ich die einzelnen Aufträge aber auf einem gesonderten Tabellenblatt "Übersicht_Lageraufträge" nacheinander auflisten.
Sobald ich auf den Button "Übernehmen" klicke sollen die Daten in der Tabelle gelistet werden. Dies funktioniert auch einmalig.
Sobald ich neue Daten übertragen möchte, die in der Tabelle dann als nächstes gelistet werdn sollen, bekomme ich ein Fehler.
Kann mir einer Tipps geben wo der Fehler liegt:
Sub Daten_Übertragen_Makro_1()
Dim Nummer As String
Dim Priorität As String
Dim Baugruppe As String
Dim Kostenstelle As String
Dim Serialnummer As String
Dim Auftrag As String
Dim Aufragsposition As String
Dim Zusatz As String
Dim Kommissionieren As String
Dim Vorkommissionieren As String
Dim Vorkommissioniert As String
Dim Liefern As String
Dim Fehlteile As String
Dim Bemerkung As String
Worksheets("Lagerauftrag").Select
Nummer = Range("C2")
Priorität = Range("C3")
Baugruppe = Range("C5")
Kostenstelle = Range("C7")
Serialnummer = Range("C9")
Auftrag = Range("C11")
Auftragsposition = Range("C13")
Zusatz = Range("C15")
Kommissionieren = Range("C16")
Vorkommissionieren = Range("C17")
Vorkommissioniert = Range("C18")
Liefern = Range("C19")
Fehlteile = Range("C20")
Bemerkung = Range("C22")
Worksheets("Übersicht_Lageraufträge").Select
Worksheets("Übersicht_Lageraufträge").Range("A1").Select
If Worksheets("Übersicht_Lageraufträge").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Übersicht_Lageraufträge").Range("A1").End(x1Down).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Nummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Auftrag
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Auftragsposition
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Baugruppe
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kostenstelle
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Serialnummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kommissionieren
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorkommissioniert
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorkommissionieren
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Liefern
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Fehlteile
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Bemerkung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Priorität
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zusatz
End Sub
|