Grüß Dich.
Es ist natürlich schwer etwas nachzubauen, wenn keine Vorgabe da ist.
Einige Dinge werden benötigt:
1. In welche Spalte kommt welche Angabe?
2. Wie heißen die Tabellen?
3. Welche Nummer ist derzeit schon vergeben?
Es ist für einen Externen ohne Tabelle schwer dies nachzuvollziehen. Du könnest theoretisch die Datei auf einer Seite hochladen und hier verlinken.
So sage ich mal, dass es schwer ist, die nachzubauen. Vor allem, werden die Daten in Textboxen oder per Fenster eingegeben, etc.
Einfach gesagt, wenn Du ne Tabelle hast, die Tabelle 1 heißt könnte hier ein Ansatz sein.
1. Öffne Deinen VBA Editor.
2. Erstelle ein Formular
3. Lege Dir Textboxen an (jede Textbox wird eine fortlaufende Nummer seitens Excel bekommen)
4. Lege ein Commandbutton unter den Textboxen an
5. Klicke auf den Commandbutton mit der rechten Maustaste und wähle "Code anzeigen"
6. Füge jetzt unter der Sub-Zeile folgenden Code ein:
Dim ersteZelle As Range
'erste freie Zelle in Spalte A
Set ersteZelle = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1)
With ersteZelle
.Value = TextBox8.Value
.Offset(0, 1).Value = TextBox1.Value
.Offset(0, 2).Value = TextBox2.Value
.Offset(0, 3).Value = TextBox3.Value
.Offset(0, 4).Value = TextBox4.Value
.Offset(0, 5).Value = TextBox5.Value
.Offset(0, 6).Value = TextBox6.Value
.Offset(0, 7).Value = TextBox7.Value
.Offset(0, 8).Value = TextBox8.Value
End With
Sind insgesamt 8 Textboxen. Tabelle 1 in Spalte A wird der Wert aus Textbox 1 eingefügt, Spalte B = Textbox 2 usw.
So würdest Du schonmal befüllen. Aber Du befüllst nicht Deine eigene Tabelle. Irgendwie benötige ich natürlich Deine Tabelle um den Code anzupassen.
Dann ist auch die fortlaufende Nummer möglich.
Gruß
|