Falsche Stelle
18.08.2018 15:08:15
Claudia
ich habe folgenden Code:
Sub ZeileEinf?gen()
Dim Produktnummer As Long
Dim Produktname As String
Dim Menge As LongLong
Dim Verkaufspreis As Long
Dim Kosten As Long
Produktnummer = InputBox("Welche Produktnummer hat Ihr Produkt:")
Produktname = InputBox("Welche Produktname hat Ihr Produkt:")
Menge = InputBox("In welcher Menge (angegeben in 1000 Tonnen pro Jahr) wird das Produkt _
beschafft:")
Verkaufspreis = InputBox("Zu welchem St?ckpreis wird eingekauft/beschafft:")
Kosten = InputBox("Was sind die Kosten, die pro Produkt (pro Tonne) anfallen:")
Worksheets("ABC_Analyse").Cells(LetzteZeile + 1, 1) = Produktnummer
Worksheets("ABC_Analyse").Cells(LetzteZeile + 1, 2) = Produktname
Worksheets("ABC_Analyse").Cells(LetzteZeile + 1, 3) = Menge
Worksheets("ABC_Analyse").Cells(LetzteZeile + 1, 4) = Verkaufspreis
Worksheets("ABC_Analyse").Cells(LetzteZeile + 1, 5) = Kosten
End Sub
Leider wird bei mir an der falschen Stelle eingefügt und zwar in die aller erste Zeile eingefügt. Das löscht mir leider meine Überschrift.
Ich bin über JEDE Hilfe dankbar. Ich denke ich habe nur einen doofen Denkfehler.
LG CLaudia