UF TxtBox werte nicht überschreiben
25.11.2019 13:40:13
Dennis
Ich habe folgendes Problem.
Ich habe eine Exeltabelle, wo ich daten per UF eingeben will/muss. Das klappt auch ganz gut, jedoch möchte ich nicht immer automatisch die nächste freie zeile nehmen, sondern eine Art Matrix bzw. feste Spalten und dann fortlaufend nach unten.
TextBox1 soll in spalte D85 anfangen und bei der nächsten Eingabe D86 nehmen. Textbox2 E85 und dann E86 usw
Habe schon gesucht aber irgendwie nicht vernünftig fündig geworden.
Zur Ansicht mal meine bis dato zusammen gesammelte Codierung.
Private Sub Übernehmen_Click()
'Passwort aufheben
ActiveSheet.Unprotect Password:="Dennis"
'Einträge übernehmen
Dim lngC As Long
With Worksheets("Schichtübergabe")
lngC = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
If lngC