Wert von einer Text, Combobox in zelle einfügen
Hallo zusammen,
ich hab schon nen code gefunden der passt.... da ich VBA Newbie bin begreif ich leider nicht wie ich die Zelladressierung änder....
Was zum Geier bedeutet J65536?
bitte um Hilfe.....
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
If Range("J65536").End(xlUp).Offset(1, 0).Row < 6 Then
Cells(6, 10) = Me.TextBox1
Me.TextBox1 = ""
Else
Cells(Range("J65536").End(xlUp).Offset(1, 0).Row, 10) = Me.TextBox1
Me.TextBox1 = ""
End If
End If
End Sub
Antwort schreiben
Antwort 1 von Hajo_Zi vom 03.07.2020, 10:13 Options
Hallo Jaenes,
mit dem Teil wird die letzte belegte Zelle in der Spalte ermittelt. Der Code ist für eine Version vor 2007.
Gruß hajo
Antwort 2 von Jaenes vom 03.07.2020, 16:23 Options
??
Bedeutet das es Zeile65536 ist?
oder ist das irgendein vordefinierter code?und J bezeichnet nur die Spalte?