Excel-Textboxwerte in die Tabelle schreiben!
27.06.2017 15:56:28
Hadi
ich habe wieder mal folgendes Problem:
Ich habe mehrere Textfelder (TextBox) und möchte die Werte in das aktivierte Tabellenblatt eintragen! Die Werte der einzelne Textfelder soll in die nächste freie Zeile eingetragen werden. Oftmals kommt es aber vor, dass Spalten Frei bleiben, weil gewisse Werte fehlen. Trotzdem soll bei der nächsten Eingabe die nächste frei Zeile angesprochen werden. Mein Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
Worksheets(werk.Value).Activate ' Durch Combobox Tabellenblatt aktivieren
Dim WkSh As Worksheet
Dim endzeile As Long
Set WkSh = Worksheets(werk.Value) 'Zuordnung der Adressen-Tabelle
endzeile = WkSh.UsedRange.Rows.Count ' findet die letzte verwendete Zelle.
WkSh.Cells(endzeile + 1, 1) = datum.Text
WkSh.Cells(endzeile + 1, 2) = auftragsnummer.Text
WkSh.Cells(endzeile + 1, 3) = Zeit.Text
WkSh.Cells(endzeile + 1, 4) = Beutelgriff_länge.Text
End Sub
Mein Problem:
Ich habe 32 Eingaben getätigt. Das bedeutet eine weitere Eingabe wird in der Zeile 33 niedergeschrieben. So wenn ich nun alle Eingaben lösche und wieder von der ersten Zeile beginnen will funktioniert die Eingabe nicht, denn die Eingabe erfolgt trotzdem in der Zeile 33. Obwohl ich die Daten der vorherigen Zeile alle gelöscht habe.
Leider kann ich nicht wirklich erkennen wo ich einen Fehler gemacht habe?!
Ich bedanke mich schonmal!
Viele Grüße
Hadi
Anzeige