Wert in TextBox zurückschreiben
01.02.2009 08:50:00
Heinz
Im unteren Code wird mir bei UF Start von der ComboBox2 der eingetragene Name in die UF "Eingabe" in die TextBox110 UND in den Sheets "Speicherung" in der ersten leeren Zeile in Spalte B eingetragen.
Nur wenn ich die UF "Eingabe" schliesse und wieder öffne ist der Wert in der TextBox100 verschwunden.
Ich würde gerne sobald ich die UF "Eingabe" aufrufe, das mir in TextBox100 der Wert vom Sheets "Speicherung" letzte Wert der Spalte B eingetragen wird.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
Private Sub namen_eintragen()
Application.ScreenUpdating = False
Dim TB As Variant
Sheets("Start").Activate
ActiveWindow.SmallScroll Down:=-48
Range("C7").Select
Sheets("Speicherung").Unprotect Password:="vetro"
Dim lastRow As Long
With Sheets("Speicherung")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Me.TextBox100.Value = .Cells(lastRow + 1, 2)
End With
Sheets("Speicherung").Protect Password:="vetro"
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
Dim i As Long
Dim rngReadIn As Range, rngCell As Range
Set rngReadIn = Sheets("Umbauplan").Range("A4:A11,A15:A21")
For Each rngCell In rngReadIn
With Me.ComboBox1
.AddItem Format(rngCell, "DDD. DD MMMM YY")
.List(.ListCount - 1, 1) = rngCell.Row
End With
Next
Me.ComboBox1.Value = Format(Date, "DDD. DD MMMM YY")
ComboBox1.SetFocus
Call namen_eintragen
End Sub
Anzeige