ich habe eine User-Form erstellt, welche Chargen-Nummer. aus alten Excelberichten ausliest und in entsprechende Textboxen schreibt.
Nun soll der Anwender diesen Text editieren und simultan sollen diese Eingaben in die Exceltabelle geschrieben werden.
Das Problem dabei ist auch, dass die Chargennummern und deren Bezeichnungen irgendwo in Spalte A unn B stehen können
Ich habe dazu den folgenden Zeilen verwendet, aber es läuft im Schneckentempo.
Kann mir bitte jemand helfen.
Private Sub UserForm_Activate()
Do Until temp2 = veränderbare_Werte_Zähler
'Label& temp.Visible = True
temp2 = temp2 + 1
If Label1.Visible = False And temp2 = 1 Then
Label1.Visible = True
Label1.Caption = veränderbare_Werte(temp2)
TextBox1.Visible = True
With ActiveSheet.Columns(1).Range("A1:A16")
Set c = .Find(veränderbare_Werte(temp2), LookIn:=xlValues)
End With
c.Activate
ActiveCell.Offset(0, 1).Select
veränderbare_Werte_Adresse1 = ActiveWindow.RangeSelection.Address
TextBox1.Text = ActiveCell.Value
End If
If Label2.Visible = False And temp2 = 2 Then
Label2.Visible = True
Label2.Caption = veränderbare_Werte(temp2)
TextBox2.Visible = True
With ActiveSheet.Columns(1).Range("A1:A16")
Set c = .Find(veränderbare_Werte(temp2), LookIn:=xlValues)
End With
c.Activate
ActiveCell.Offset(0, 1).Select
veränderbare_Werte_Adresse2 = ActiveWindow.RangeSelection.Address
TextBox2.Text = ActiveCell.Value
End If
If Label3.Visible = False And temp2 = 3 Then
Label3.Visible = True
Label3.Caption = veränderbare_Werte(temp2)
TextBox3.Visible = True
With ActiveSheet.Columns(1).Range("A1:A16")
Set c = .Find(veränderbare_Werte(temp2), LookIn:=xlValues)
End With
c.Activate
ActiveCell.Offset(0, 1).Activate
veränderbare_Werte_Adresse3 = ActiveWindow.RangeSelection.Address
TextBox3.Text = ActiveCell.Value
End If
If Label4.Visible = False And temp2 = 4 Then
Label4.Visible = True
Label4.Caption = veränderbare_Werte(temp2)
TextBox4.Visible = True
With ActiveSheet.Columns(1).Range("A1:A16")
Set c = .Find(veränderbare_Werte(temp2), LookIn:=xlValues)
End With
c.Activate
ActiveCell.Offset(0, 1).Activate
veränderbare_Werte_Adresse4 = ActiveWindow.RangeSelection.Address
TextBox4.Text = ActiveCell.Value
End If
Loop
Blattzähler = 1
frmChargen.Caption = "Chargen aktualisieren für " & Sheets(1).Name
End Sub
Private Sub cmdNext_Click()
Blattzähler = Blattzähler + 1
If Blattzähler
Private Sub TextBox1_Change()
ActiveSheet.Range(veränderbare_Werte_Adresse1).Value = TextBox1.Text
End Sub
Private Sub TextBox1_Enter()
ActiveSheet.Range(veränderbare_Werte_Adresse1).Select
TextBox1.Text = ActiveSheet.Range(veränderbare_Werte_Adresse1).Value
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
ActiveSheet.Range(veränderbare_Werte_Adresse1).Value = TextBox1.Text
End Sub