Ich habe ein Problem mit einem Code.
Habe auch schon hier im Forum mit Daniel gepostet aber habe, dennoch einen Fehler drin
Der Code ist:
Private Sub CommandButton1_Click()
Dim i%, y%
Dim TXT$
Dim LB As New Collection
LB.Add TextBox1
LB.Add TextBox2
LB.Add TextBox3
LB.Add TextBox4
LB.Add TextBox5
LB.Add TextBox6
LB.Add TextBox7
LB.Add TextBox8
LB.Add TextBox9
LB.Add TextBox10
Set c = Worksheets("Kontrolle").Columns(1).Find(TextBox1.Text)
For i = 2 To 10
BUp(i) = Worksheets("Kontrolle").Cells(c.Row, i)
c.Offset(0, i - 1) = LB(i)
With frmkdbest.ListBox1
.List(.ListIndex, i - 1) = LB(i)
End With
Next i
CommandButton2.Enabled = True
End Sub
Der Code hält an der Stelle
Set c = Worksheets("Kontrolle").Columns(1).Find(TextBox1.Text)
Bleibt der Code stehen und sagt Variable nicht definiert (wobei das meiner Meinung nach die Defifnition ist)
Hier der Link zur Mappe
https://www.herber.de/bbs/user/48403.xls
Bitte helft mir
Besten Dank im Vorraus
Martin