Office: Ergebnisse und Positionen in eine seperate Tabelle schreiben

Guten Abend.

Ich verwende Office 2007 und habe eine Problemstellung zu Excel.

Konkret geht es um die Berechnung von Fensterpreisen. Diese werden unter Berücksichtigung von mehreren Rabatt und Zuschlagsfaktoren berechnet (Siehe angehängter Datei). Die Eingangsdaten sind Fenstergröße und -breite, der Basispreis und die Rabatt-/Zuschlagssätze. Ergebnis ist anschließend der Fensterpreis.

Da ich einige Fensterpreise zu berechnen habe, fände ich es sinnvoll, dass nach jeder Berechnung (die Rabattsätze bleiben gleich, nur der Basispreis und die Fensterabmessungen ändern sich) das Ergebnis mit zugehöriger Positionsnummer in eine seperate Tabelle geschrieben wird. Anschließend gebe ich einen neuen Basispreis und Abmessungen ein, die dann an zweiter Stelle in der seperaten Tabelle geschrieben werden.

An der Erstellung dieser seperaten Tabelle scheitere ich kläglich. Über eure Hilfe würde ich mich sehr freuen.

Vielen Dank im Voraus.

 

Hallo!

Da Excel von Haus aus leider kein Gedächtnis mitbringt, lässt sich dein Vorhaben nur per VBA-Code erledigen, d.h.:
Erstelle einen Button und weise ihm z.B. diesen Code zu:

Code:

Private Sub CommandButton1_Click()
    Dim Letzte As Long
    Letzte = Cells(Rows.Count, 5).End(xlUp).Row
    Cells(Letzte + 1, 4) = Range("B5")
    Cells(Letzte + 1, 5) = Range("B29")
End Sub

 

Guten Morgen.

Erstmal vielen Dank für die schnelle Hilfe. Der Button funktioniert perfekt.

Nun habe ich noch eine Ergänzung. Wie muss ich den Code ergänzen, damit zusätzlich zu Position und Preis noch die Breite udn Höhe in die Tabelle eingetragen werden?

Nochmals vielen Dank für eine Antwort!

 

Hallo!

Cells(Letzte + 1, 4) = Range("B5")

schreibt den Wert aus B5 in die Zelle mit den Koordinaten
Zeile: Letzte + 1
Spalte: 4

 

N'Abend.

Vielen Dank für deine Hilfe. Nach ein wenig Tüftelei klappt es alles super.