Thema Datum  Von Nutzer Rating
Antwort
Rot Makro effizienter schreiben
 27.05.2014 10:40:33 Yoso
NotSolved

Ansicht des Beitrags:
Von:
Yoso		 Datum:
27.05.2014 10:40:33		 Views:
1324		 Rating:
     
Antwort:
  Ja
Thema:
Makro effizienter schreiben

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. 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro effizienter schreiben
 27.05.2014 10:40:33 Yoso
NotSolved