|
Ich habe ein einfaches Formular (also eine einfache Excel Tabelle) erstellt. In diesem werden unterschiedliche Werte (Zahlen, Wörter, Datum) eingetragen.
Jeweils im Tabellenblatt „Vorlage“ in entsprechende Zellen.
Diese eingegebenen Daten sollen dann fortlaufend in ein weiteres Tabellenblatt „Rechnungen“ per Schaltfläche übertragen werden, sodass dort eine fortlaufende Liste entsteht. Das "Formular" wird jeweils zur Übergabe ausgedruckt. Die „Ausgabeliste“ dient der Übersicht und normaler Recherche.
Ich kenne mich in VBA nicht (gar nicht) gut aus und habe hiermit
Sub transfer_werte()
Dim Rechnungsnr As String, Kundennr As String, Rechnungsdatum As String, Rechnungsbetrag As String
Worksheets("Vorlage").Select
Rechnungsnr = Range("B17")
Kundennr = Range("E17")
Rechnungsdatum = Range("G17")
Bezeichnung = Range("A20")
Rechnungsbetrag = Range("G21")
Worksheets("Rechnungen").Select
Worksheets("Rechnungen").Range("A3").Select
If Worksheets("Rechnungen").Range("A3").Offset(1, 0) <> "" Then
Worksheets("Rechnungen").Range("A3").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Rechnungsnr
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kundennr
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Rechnungsdatum
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Rechnungsbetrag
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Bezeichnung
End Sub
ein halbwegs Ergebnis erzielt. Das Problem:
Die ersten eingegebenen Daten werden über das „Anklicken“ des Button übertragen. Die zweiten eingegeben Daten ebenfalls in eine neue Zeile.
Alle weiteren eingegebenen „Werte“ werden immer in die 2. Zeile eingetragen und somit wird die vorhergehende Zeile überschrieben. Und nicht wie erhofft in die 3. Zeile u.s.w.. Was stimmt hier nicht? Kann ich Hilfe bekommen? Danke im Voraus! Achso…Und, was passiert, wenn man im Nachgang Zeilen und oder Spalten in das Tabellenblatt „Vorlage“ einfügt, zerreißt es da den VBA Code?
|