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
Anzeige