CommandButton Userform
29.07.2020 00:57:25
Sleepyhead
für jedes gelöste problem tritt das nächste auf ^^
Heute habe ich folgendes Problem,
ich habe eine funtionierende Userform die mir aus einem seperaten Worksheet Daten filtern kann.
Nun möchte ich meine letzten 20 Suchen durch einen Click in der Userform speichern lassen und dabei jeweils die letzte Suche zuoberst in dem Worksheet auf dem auch die Userform aufgerufen wird angezeigt bekommen und falls bereits 20 Suchen vorhanden sind den letzten Eintrag löschen lassen.
Versucht habe ich dies folgendermaßen:
Private Sub CommandButton2_Click()
Dim s As Integer
For s = 27 To 8 Step -1
If ThisWorkbook.Worksheets("Matrix").Cells(8, 2).Value = "" Then
ThisWorkbook.Worksheets("Matrix").Cells(8, 2).Value = UserForm1.ComboBox1.Value
ThisWorkbook.Worksheets("Matrix").Cells(8, 4).Value = UserForm1.ComboBox2.Value
ThisWorkbook.Worksheets("Matrix").Cells(8, 6).Value = UserForm1.TextBox2.Value
ThisWorkbook.Worksheets("Matrix").Cells(8, 8).Value = UserForm1.TextBox1.Value
ThisWorkbook.Worksheets("Matrix").Cells(8, 12).Value = UserForm1.TextBox4.Value
ThisWorkbook.Worksheets("Matrix").Cells(8, 14).Value = UserForm1.TextBox3.Value
Exit Sub
ElseIf ThisWorkbook.Worksheets("Matrix").Cells(8, 2).Value "" Then
If ThisWorkbook.Worksheets("Matrix").Cells(s, 2).Value "" And s = 27 Then
ThisWorkbook.Worksheets("Matrix").Rows(s).Value = ThisWorkbook.Worksheets(" _
Matrix").Rows(s - 1, 2).Value
ThisWorkbook.Worksheets("Matrix").Rows(s - 1).Value = ""
ElseIf ThisWorkbook.Worksheets("Matrix").Cells(s, 2).Value "" And s _
8 Then
ThisWorkbook.Worksheets("Matrix").Rows(s).Value = ThisWorkbook.Worksheets(" _
Matrix").Rows(s - 1).Value
ThisWorkbook.Worksheets("Matrix").Rows(s - 1).Value = ""
End If
End If
Next s
End Sub
Wo liegt mein Denkfehler?
Vielen Dank für eure Mühe und liebe Grüße
Sleepyhead