Hallo zusammen,
Ich habe eine Eingabemaske für die Schützen im Verein. Jeder Schütze trägt seine Daten ein und hämmert auf "Eingabe". Danach werden die Daten in ein weiteres Tabellenblatt geschrieben. Bis dahin funktioniert alles. Nach der ersten Eingabe steht in Zelle B12 und den rechts daneben die Daten aus der Eingabemaske.
Will sich nun ein weiterer Schütze eintragen bekomme ich einen Fehler. Anscheinend springt es nicht automatisch in die nächste Zeile.
Ich habe euch im Code markiert, an welcher Stelle der Debugger stehen bleibt, ich habe aber keine Ahnung, wie ich da weiterspringe. Ich habe wenig Ahnung von VBA und Makro und habe mir den Code selbst aus sämtlichen Internet Seiten zusammengeschrieben, habt also Nachsicht, falls es einfacher gegangen wäre.
Das ist der Code:
Sub RechteckabgerundeteEcken6_Klicken()
Dim Vorname As String, Nachname As String, Datum As String, BSV_ID As String, Hersteller As String, Modell As String, Seriennummer As String, Kaliber As String
Worksheets("Eingabeformular").Select
Vorname = Range("H16")
Nachname = Range("H18")
Datum = Range("H20")
BSV_ID = Range("H22")
Hersteller = Range("L16")
Modell = Range("L18")
Seriennummer = Range("L20")
Kaliber = Range("L22")
Worksheets("Datenbank").Select
Worksheets("Datenbank").Range("B12").Select
If Worksheets("Datenbank").Range("B12").Offset(1, 0) > "" Then
Worksheets("Datenbank").Range("B12").End(x1Down).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Vorname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Nachname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Datum
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = BSV_ID
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Hersteller
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Modell
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Seriennummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kaliber
End Sub
Danke schonmal!