Hallo,
ich bin wahrscheinlich zu blöd um die anderen Beiträge hier im Forum und bei google umzumünzen für mein Problem.
So nun aber erstmal was sache ist.
Ich habe eine UserForm mit einer textbox und 2 buttons. Ich möchte nun ein Wert in der Textbox eingeben und mit einem klick auf Button1 soll dieser Wert in ein Array gespeichert werden und die Textbox gesäubert werden. Und das für eine beliebige anzahl an werten (Hier hänge ich irgendwie, den so wie ich das in einer WPF anwendung machen würde, klappt es nicht). Wenn ich dann alle Werte eingegeben habe klicke ich auf Button2 und nun soll eine Spalte (Range B:B) nach den Werten durchsucht werden.
Das Suchen und alles was danach passieren soll, bekomme ich hin. Ich schaffe es nur nicht das Array zu programmieren mit dem Button1.
ich bin wahrscheinlich zu blöd um die anderen Beiträge hier im Forum und bei google umzumünzen für mein Problem.
So nun aber erstmal was sache ist.
Ich habe eine UserForm mit einer textbox und 2 buttons. Ich möchte nun ein Wert in der Textbox eingeben und mit einem klick auf Button1 soll dieser Wert in ein Array gespeichert werden und die Textbox gesäubert werden. Und das für eine beliebige anzahl an werten (Hier hänge ich irgendwie, den so wie ich das in einer WPF anwendung machen würde, klappt es nicht). Wenn ich dann alle Werte eingegeben habe klicke ich auf Button2 und nun soll eine Spalte (Range B:B) nach den Werten durchsucht werden.
Das Suchen und alles was danach passieren soll, bekomme ich hin. Ich schaffe es nur nicht das Array zu programmieren mit dem Button1.
VB.NET-Quellcode
- Dim i As Integer
- i = 1
- Dim Aufträge(1 To 19) As String
- Dim wbMappe1 As Workbook
- Set wbMappe1 = Application.Workbooks("Beobachten.xlsm")
- Dim wsAuftragsliste As Worksheet
- Set wsBeosys = wbMappe1.Worksheets("Auftragsliste")
- Dim wsBeobachten As Worksheet
- Set wsAirSupply = wbMappe1.Worksheets("Beobachten")
- Private Sub bnFertig_Click()
- Dim j As Integer
- j = i
- Dim rng As Range
- For i = 1 To j
- Set rng = wsAuftragsliste.Range("B:B").Find(Aufträge(i)) 'Zähler der Reihe in Aufträgen inkl. Suchen
- If rng Is Nothing Then
- 'Nicht vorhanden = Ende der If-Schleife
- Else
- 'Hat was gefunden
- rng.EntireRow.Copy 'Zeile aus der Auftragsliste kopieren
- wsBeobachten.Cells(Rows.Count, "A").End(xlUp) _
- .Offset(1, 0).PasteSpecial Paste:=xlPasteAll 'und einfügen
- End If
- Next i 'Nächste Zeile abfragen
- End Sub
- Private Sub bnNächster_Click()
- Aufträge(i) = TB.Text
- TB.Text = ""
- i = i + 1
- End Sub