Wert aus Private Sub Textbox an Makro
04.06.2020 07:06:06
Daniel
ich habe eine User Form mit Eingabefeld erstellt
Private Sub CommandButtonOK_click()
Zeilennummer = TextBox1
MsgBox Zeilennummer
Call orderszeile
' ist auf den Fertig Button gelegt
' Exit window
' Unload Me
End Sub
Mit dem Call rufe ich mein Makro auf, in dem die Eingabe verarbeitet werden soll.
Das Makro schaut in Zelle 1 nach dem Wert und kopiert dann die Zeile in ein anderes _ Tabellenblatt
Sub orderszeile()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("orders")
Set tarWks = Worksheets("Tabelle3")
With srcWks
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1).Value = Zeilennummer Then
tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 20)).Value = srcWks.Range(srcWks.Cells(i, 1), _
_
_
_
srcWks.Cells(i, 20)).Value
End With
End If
Next i
End With
End Sub
Nun habe ich das Problem, dass der Wert aus der TextBox nicht in das Makro übernommen wird.
Frage 1 : Wie bekomme ich den Wert in mein Makro ; da muss es doch eine Möglichkeit geben das zu definieren.
Frage 2: Anstelle des "Call" habe ich auch probiert, das Makro innerhalb der Private Sub laufen zu lassen;
allerdings führt das auch nicht zum Erfolg.
Die Messagebox gibt mir den Wert aus, aber das Makro wird nicht ausgeführt.
Kann mnir da bitte jemand einen Denkanstoß geben. Lieben Dank