|
Guten Tag
Ich habe mein erstes Makro geschrieben/ zusammenkopiert. Es ist wahrscheinlich sehr hässlich aufgebaut.
Eigentlich erfüllt der Makro seine Hauptaufgabe. Allerdings dauert es sehr lange, bis der Makro die 28000 Zeile abgearbeitet hat. Kann man den Code anders schreiben, damit der Makro schnell durchlauft. Ausserdem sollte der Makro auch laufen, wenn AgruBox1 leer bleibt. KontoTextBox wird eigentlich immer gefüllt.
Private Sub AgruBox1_Change()
End Sub
Private Sub UserForm_Initialize()
KontoTextBox.Value = ""
AgruBox1.Value = ""
End Sub
Private Sub OKButton_Click()
Application.ScreenUpdating = False
Dim ZuPrüfen As String
ZuPrüfen = KontoTextBox.Value
Dim i As Integer
For i = 2 To 28000
Rows(i).Hidden = Cells(i, 6).Value <> ZuPrüfen And Cells(i, 7).Value <> ZuPrüfen And Cells(i, 8).Value <> ZuPrüfen And Cells(i, 9).Value <> ZuPrüfen And Cells(i, 10).Value <> ZuPrüfen And Cells(i, 11).Value <> ZuPrüfen And Cells(i, 12).Value <> ZuPrüfen And Cells(i, 13).Value <> ZuPrüfen And Cells(i, 14).Value <> ZuPrüfen And Cells(i, 15).Value <> ZuPrüfen And Cells(i, 16).Value <> ZuPrüfen And Cells(i, 17).Value <> ZuPrüfen And Cells(i, 18).Value <> ZuPrüfen
Next i
Dim Agru As String
Agru = AgruBox1.Value
For i = 2 To 28000
If Rows(i).Hidden = False Then
Rows(i).Hidden = Cells(i, 2).Value <> Agru
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
Unload Me
End Sub
Private Sub CanelButton_Click()
Unload Me
End Sub
Besten Dank Im Voraus für alle Bemühungen.
Beste Grüsse
Yoso
|