Wenn Zelle belegt, dann Eintrag i.d. nächste Zelle
05.05.2008 14:29:00
Josef
Wenn ich in der Userform "SUBKAP" in der TextBox "subtxt10" einen Eintrag bestätige, so wird der Wert aus der "subtxt1" im Tabellenblatt wks2 unter "H2" eingetragen, wenn "H2" noch leer war.
Ist jedoch unter "H2" bereits ein Wert eingetragen, so soll der nächste Wert in die nächste freie Zelle in der Spalte H eingetragen werden.
Leider schaffe ich nur den ersten Teil. Beim 2. Teil habe ich im Code einen Fehler gemacht. Was habe ich hier bitte falsch gemacht?
Danke
Josef
Private Sub subtxt10_AfterUpdate()
Dim bereich As Range
Dim wks2 As Worksheet
Set wks2 = Workbooks("Masterfile.xls").Worksheets("Kapitel Neu (1)")
Set bereich = wks2.Range("H3:H2000")
With bereich
.Clear
End With
If wks2.Range("H2").Value = False Then
wks2.Range("H2") = SUBKAP.subtxt1.Text
Else
If wks2.Range("H2").Value = True Then
wks2.Range("h65536").End(xlUp).Offset(1, 0).Value = SUBKAP.subtxt1.Text
End If
End If
Call Speichern_SUBKAP
End Sub