Hi,
so, gelöst:
lösche das Makro Textbox1_Exit
Verwende stattdessen
Update (versuche mal zu verstehen, wsa ich gemacht habe!):
so, gelöst:
lösche das Makro Textbox1_Exit
Verwende stattdessen
Private Sub cdm_New_Click()
'VSP
Dim i As Long
Dim rng As Range
Dim lr As Long
Dim Such As String
Dim Zähler As Long
lr = Sheets("Stammdaten").Cells(Rows.Count, "A").End(xlUp).Row
Such = TextBox1.Value
Zähler = 0
Set rng = Sheets("Stammdaten").Range("A5:A" & lr).Find(Such, LookIn:=xlValues, LookAt:=xlWhole)
For i = 1 To lr
If Not rng Is Nothing Then
Zähler = Zähler + 1
End If
Next i
If Zähler <> 0 Then
MsgBox ("Artikelnummer schon vorhanden!" & vbCrLf & "Bitte eine andere eingeben!")
TextBox1.Value = ""
TextBox1.SetFocus
End If
With Worksheets("Stammdaten")
With .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) '.Range("A50000").End(xlUp).Offset(1, 0)
For i = 1 To 5
.Cells(1, i).Value = Me.Controls("Textbox" & i).Value
Next i
If CheckBox1.Value = True Then
.Cells(1, 6).Value = "ja"
Else
.Cells(1, 6).Value = "nein"
End If
.Cells(1, 7).Value = ComboBox1.Value
End With
End With
Call Controls_Urzustand
End Sub
Update (versuche mal zu verstehen, wsa ich gemacht habe!):
Private Sub cmd_Update_Click() Dim i As Long With Worksheets("Stammdaten") For i = 2 To 5 Suchergebnis.Offset(0, i - 1).Value = Me.Controls("Textbox" & i).Value Next i If CheckBox1.Value = True Then Suchergebnis.Offset(0, 5).Value = "ja" Else Suchergebnis.Offset(0, 5).Value = "nein" End If Suchergebnis.Offset(0, 7).Value = ComboBox1.Value End With Call Controls_Urzustand End SubVielleicht findest und behebst Du den Fehler, den ich im Update-Makro eingebaut habe?