Letzten Wert vor freier Zelle anzeigen
07.07.2020 09:26:45
ErikSnase
ich hab einen Code, der die letzte freie Zelle in dem Bereich H17 bis H41 sucht und dann die Einträge der TextBoxen in die Excel- Tabelle einfügt, wenn man auf den CommandButton10 klickt.
Hier der Code:
Private Sub CommandButton10_Click()
Dim Loletzte As Long, RnG As Range
Dim bol_geschrieben As Boolean
bol_geschrieben = False
With Worksheets("Tabelle1")
For Each RnG In .Range("H17:H41")
If RnG = "" Then ..
.Cells(RnG.Row, 8) = Me.TextBox22
.Cells(RnG.Row, 13) = Me.TextBox25
.Cells(RnG.Row, 14) = Me.ComboBox9
.Cells(RnG.Row, 30) = CDbl(Me.TextBox10)
.Cells(RnG.Row, 31) = Me.ComboBox4
.Cells(RnG.Row, 43) = CDbl(Me.TextBox29)
.Cells(RnG.Row, 44) = CDbl(Me.TextBox30)
.Cells(RnG.Row, 45) = CDbl(Me.TextBox31)
Else
bol_geschrieben = True
Exit For
End If
Next
End With
End Sub
Jetzt meine Frage, ich wollte jetzt, dass wenn man auf einen weiteren CommandButton klickt, die letzten eingebenen Werte in die jeweilgen TextBoxen etc. anzeigt werden. So hätte ich gedacht, dass es vielleicht funktionieren könnte:
Private Sub CommandButton12_Click()
Dim Loletzte As Long, RnG As Range
Dim bol_geschrieben As Boolean
'If CLng(Label44) + 1 Unter TextBox22 würden natürlich auch noch die ganzen anderen Elemente kommen, aber so hat es auf jeden Fall nicht geklappt.
Kann mir da jemand helfen? Ich hoffe ich hab mein Problem verständlich erklären können
Vielen Dank
Gruß
Erik