Zusatzeintrag
06.12.2017 09:32:37
Marcus
ich fülle über meine VBA Zeilen welche auch zeitgleich nummeriert werden. JEtzt möchte ich zu einer bestimmten Zeile einen Zusatzeintrag machen. Die UserForm habe ich schon dafür mit einem Texteld für die Nummer und einem Button zur Bestätigung.
Ich habe da schon was programiert aber das geht nicht... vielleicht habt ihr ne Idee..
Private Sub TextBox1_Change()
letzteZeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).row
Eintrag = "A" & letzteZeile
If TextBox1.Value Like "#" Or TextBox1.Value Like "##" Or TextBox1.Value Like "###" Then
EintragNr = CInt(TextBox1.Value)
FalseCount = 0
ElseIf TextBox1.Value "" Then
FalseCount = FalseCount + 1
If FalseCount Range(Eintrag)) And EintragNr Empty Then
MsgBox ("Es existiert kein Eintrag mit dieser Nummer")
TextBox1.Value = ""
FalseCount = 0
End If
commandButtonCheck
End Sub