Office: VBA Zeilen ausblenden

Helfe beim Thema VBA Zeilen ausblenden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe ein kleines Problem mit Excel und VBA. Grundsätzlich funktioniert unten angeführter Code, jedoch recht langsam. Nun ist meine Frage, ob... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von lto, 15. November 2015.

Seite 1 von 2

LTO

lto

VBA Zeilen ausblenden

Hallo,
ich habe ein kleines Problem mit Excel und VBA. Grundsätzlich funktioniert unten angeführter Code, jedoch recht langsam. Nun ist meine Frage, ob es an der Programmierung liegt - ich vermute, dass ich da als Laie zuviel des Guten gemacht habe.
Ich hoffe ich kann mich im Folgenden verständlich ausdrücken - wenn nicht bitte rückfragen.

Grundsätzlich 2 Tabellenblätter
Tabelle1: A3:AU3000 Daten, zeilenweise
Tabelle2: K11:K34 Auswahlkriterien zum Ein-/Ausblenden der Zeilen (WAHR oder FALSCH via Kontrollkästchen).

Tabelle1 beinhaltet in Spalte A Text mit folgendem Aufbau:
AG 01.001
AG 01.002
...
AG 02.001
...
AG 25.001

Die Hauptkategorien (Stellen 4&5 gehen von 01 bis 25)
Dazu gibt es auf Tabelle2 eine Liste, in K10:K34, welche für die jeweiligen Kategorien einen Schalter bietet (Wahr/Falsch).

Basierend auf der Einstellung auf Tabelle2 möchte ich nun die jeweiligen Datenzeilen aus-/einblenden mit folgendem Code:

Wie gesagt, der Code läuft, aber recht langsam...
Danke, Stefan

Code:

Sub Show_Hide_AGs_0()
Dim i As Integer 'Dimensionieren einer Zählvariablen
Dim j As Integer 'Dimensionieren einer Zählvariablen

Dim start As Integer
Dim ende As Integer

'Alle Zeilen anzeigen:
Worksheets("Tabelle1").Select
Rows("3:3000").Select
Selection.EntireRow.Hidden = False

start = 3 'erste Zeile zum Überprüfen
ende = 100 'letzte Zeile

If Worksheets("Tabelle2").Range("K10") = "Wahr" Then
BoolAG01 = 1
Else
BoolAG01 = 0
End If
If Worksheets("Tabelle2").Range("K11") = "Wahr" Then
BoolAG02 = 1
Else
BoolAG02 = 0
End If
If Worksheets("Tabelle2").Range("K12") = "Wahr" Then
BoolAG03 = 1
Else
BoolAG03 = 0
End If
If Worksheets("Tabelle2").Range("K13") = "Wahr" Then
BoolAG04 = 1
Else
BoolAG04 = 0
End If
If Worksheets("Tabelle2").Range("K14") = "Wahr" Then
BoolAG05 = 1
Else
BoolAG05 = 0
End If

Worksheets("Tabelle1").Select

For j = 3 To 100

AGselektor = Mid(Cells(j, 1), 4, 2)
If Cells(j, 1) = "" Then

'do nothing
Else:
If AGselektor = "01" Then
If BoolAG01 = 0 Then
Cells(j, 1).EntireRow.Hidden = True
End If

ElseIf AGselektor = "02" Then
If BoolAG02 = 0 Then
Cells(j, 1).EntireRow.Hidden = True
End If

ElseIf AGselektor = "03" Then
If BoolAG03 = 0 Then
Cells(j, 1).EntireRow.Hidden = True
End If
ElseIf AGselektor = "04" Then
If BoolAG04 = 0 Then
Cells(j, 1).EntireRow.Hidden = True
End If
ElseIf AGselektor = "05" Then
If BoolAG05 = 0 Then
Cells(j, 1).EntireRow.Hidden = True
End If

End If
End If

Next j

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

lto, 15. November 2015

#1
MAREK.S

Marek.S

So gut wie jeder Code wird schneller wenn du die Bildschirmaktualisierung ausschaltest.

Füge zu beginn deines Codes
Code:

Application.ScreenUpdating = False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und am Ende folgendes ein:

Code:

Application.ScreenUpdating = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe es läuft nun ein wenig schneller.

Marek.S, 17. November 2015

#2
LTO

lto

Hallo Marek,

danke für Deinen Hinweis.
Ich habe jetzt getestet (für die ersten 100 Zeilen)
Ohne Application.ScreenUpdating = False/True: 28 Sekunden
Mit Application.ScreenUpdating = False/True: 23 Sekunden

Also: ja, geht wirklich schneller, aber nicht so schnell wie ich mir das gedacht habe.

Zur Einordnung: es werden dann im Maximalfall 3.000 gefüllte Zeilen sein - wenn da 100 schon knapp ne Viertel-Minute brauchen ist das eindeutig zu langsam...

Ich glaube viel eher, dass ich mit meinen if-Abfragen viel mehr Rechenzeit verbrauche als nötig - wahrscheinlich gibt es da eine elegantere Lösung...

lg Stefan

lto, 17. November 2015

#3
MAREK.S

Marek.S

VBA Zeilen ausblenden

Also wenn ich es richtig verstanden habe, dann pruefst du ob die AG Kategorie in Tabellenblatt 2 auf "Wahr" oder "Falsch" steht und wenn "Falsch" da steht, dann willst du in Tabellenblatt 1 die Zeile ausblenden!?
Wenn das so stimmt muesste es mit diesem Code deutlich schneller sein:

Mein Code geht davon aus, dass in Tabellenblatt 2 in Zelle J10:J34 die Kategorie steht und in Zelle K10:K34 "Wahr" oder Falsch"

Code:

Sub Hide_AGs()

Dim i, j As Integer
Dim AG, AGonOFF As String

For i = 3 To 52
AG = Mid(Sheets(1).Range("A" & i), 4, 2) 'Welche Kategorie wird gerade ueberprueft

For j = 10 To 34 'Das ist fuer die Zellen 10 bis 34 in Tabelle2
If Sheets(2).Range("J" & j) = AG Then 'Wo steht die Kategorie
AGonOFF = Sheets(2).Range("K" & j).Value 'Ist es Wahr oder Falsch
Exit For
End If
Next

If AGonOFF = "Falsch" Then Sheets(1).Rows(i).Hidden = True 'Wenn Falsch dann ausblenden

Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marek.S, 17. November 2015

#4
LUSCHI

Luschi

Hallo Marek,

seit Excel 2003 ruft jeder Hidden-Befehl eine Neuberechnung der Tabelle aus, deshalb soll man erst alle Zellen in 1 Range-Objekt sammeln und dann in 1 Rutsch auf 'Hidden' setzen, so mache ich das: Code:

'sammelt alle Zellen, deren Zeilen auf 'Hiden' gesetzt werden sollen
Dim rgH As Range
Dim ok As Boolean
For j = 3 To 100
AGselektor = Mid(Cells(j, 1), 4, 2).Value
If Cells(j, 1).Value = "" Then
'do nothing
Else
'diese Funktion gibt Wahr oder Falsch zurück
ok = sollunsichtbar(AGselektor, BoolAG01, BoolAG02, _
BoolAG03, BoolAG04, _
BoolAG05)
If ok Then
If rgH Is Nothing Then
'falls rgH noch leer ist
Set rgH = Cells(j, 1)
Else
Set rgH = Application.Intersect(rgH, Cells(j, 1))
End If
End If
Next j
If Not (rgH Is Nothing) Then
'erst jetzt wird der entsprechende Bereich auf 'Hidden' gesetzt!!!
rgH.EntireRow.Hidden = True
End If
End Sub

Function sollunsichtbar(xAGselektor As String, xBoolAG01 As Integer, xBoolAG02 As Integer, _
xBoolAG03 As Integer, xBoolAG04 As Integer, _
xBoolAG05 As Integer) As Boolean
If xAGselektor = "01" Then
If xBoolAG01 = 0 Then
sollunsichtbar = True
Exit Function
End If

ElseIf xAGselektor = "02" Then
If xBoolAG02 = 0 Then
sollunsichtbar = True
Exit Function
End If

ElseIf xAGselektor = "03" Then
If xBoolAG03 = 0 Then
sollunsichtbar = True
Exit Function
End If
ElseIf xAGselektor = "04" Then
If xBoolAG04 = 0 Then
sollunsichtbar = True
Exit Function
End If
ElseIf xAGselektor = "05" Then
If xBoolAG05 = 0 Then
sollunsichtbar = True
Exit Function
End If
Else
sollunsichtbar = False
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Luschi, 17. November 2015

#5
LTO

lto

Hallo Marek,

danke für Deinen Code - sehr interessant zu sehen wie diese wenigen Zeilen das gleiche machen wie meine hundert Zeilen... ;-(

Ich habe den Code ausprobiert, funktioniert super - jedoch auf um die 25 Sekunden...
Also nicht wirklich besser geworden.

lto, 17. November 2015

#6
LTO

lto

Hallo Luschi,
sehr guter Hinweis mit hidden & Neuberechnung. Ich habe mir fast so etwas gedacht, war/bin aber nicht in der Lage, dass zu formulieren. Ich werde mal Deinen Code anpassen und ausprobieren.

lg Stefan

lto, 17. November 2015

#7
LTO

lto

VBA Zeilen ausblenden

Hallo Luschi,

sorry für mein blödes Nachfragen, bin nicht so bewandert in VBA:
Wenn ich es recht verstehe wird das bei meinem Code nach dem Abfragen der Wahr/Falsch-Werte und dem Setzen der Variablen BoolAGxx eingefügt werden... richtig? (also ab/statt for j = 3 to 100)

Beim Ausführen bekomme ich einen Fehler beim Kompilieren: Argumenttyp ByRef unverträglich;
markiert ist AGselektor bei
Code:

ok = sollunsichtbar(AGselektor, BoolAG01, BoolAG02, _
BoolAG03, BoolAG04, _
BoolAG05)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lg Stefan

lto, 17. November 2015

#8
LUSCHI

Luschi

Hallo Ito,

schreibe die Funktion so: Code:

ok = sollunsichtbar(ByVal AGselektor, BoolAG01, BoolAG02, _
BoolAG03, BoolAG04, _
BoolAG05)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kann sein, daß die anderen 5 Übergabeparamer auch diesen Zusatz brauchen.

Gruß von Luschi
aus klein-Paris

Luschi, 17. November 2015

#9
LTO

lto

Hallo Luschi,

ich habe jetzt
Code:

ok = sollunsichtbar(ByVal AGselektor, ByVal BoolAG01, ByVal BoolAG02, _
ByVal BoolAG03, ByVal BoolAG04, _
ByVal BoolAG05)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jedoch noch immer einen (aber anderen) Fehler:
Fehler beim Kompilieren: Typen unverträglich

lg Stefan

lto, 17. November 2015

#10
LUSCHI

Luschi

Hallo Ito,

Du mußt schon die Programmzeile posten, wo es klemmt und die entsprechende Fehlernummer dazu.

Gruß von Luschi
ais klein-Paris

PS: bin noch 'ne Weile online!

Luschi, 17. November 2015

#11
LTO

lto

Hallo,

sorry, der Fehler tritt weiterhin bei der ok = sollunsichtbar(...) auf, also an der gleichen Stelle.

Folgend jetzt der gesamte Code, welcher ausgeführt wird
(Hinweis: Tabelle1 = Potenziale, Tabelle2 = admin)

Code:

Sub makeinvisible()
'Application.ScreenUpdating = False

Dim i As Integer 'Dimensionieren einer Zählvariablen
Dim j As Integer 'Dimensionieren einer Zählvariablen

Dim start As Integer
Dim ende As Integer

'Alle Zeilen anzeigen:
Worksheets("Potenziale").Select
Rows("3:3000").Select
Selection.EntireRow.Hidden = False

start = 3 'erste Zeile zum Überprüfen
ende = 100 'letzte Zeile

If Worksheets("admin").Range("K10") = "Wahr" Then
BoolAG01 = 1
Else
BoolAG01 = 0
End If
If Worksheets("admin").Range("K11") = "Wahr" Then
BoolAG02 = 1
Else
BoolAG02 = 0
End If
If Worksheets("admin").Range("K12") = "Wahr" Then
BoolAG03 = 1
Else
BoolAG03 = 0
End If
If Worksheets("admin").Range("K13") = "Wahr" Then
BoolAG04 = 1
Else
BoolAG04 = 0
End If
If Worksheets("admin").Range("K14") = "Wahr" Then
BoolAG05 = 1
Else
BoolAG05 = 0
End If

Worksheets("Potenziale").Select
'sammelt alle Zellen, deren Zeilen auf 'Hiden' gesetzt werden sollen
Dim rgH As Range
Dim ok As Boolean
For j = 3 To 100
AGselektor = Mid(Cells(j, 1), 4, 2).Value
If Cells(j, 1).Value = "" Then
'do nothing
Else
'diese Funktion gibt Wahr oder Falsch zurück
ok = sollunsichtbar(ByVal AGselektor, ByVal BoolAG01, ByVal BoolAG02, _
ByVal BoolAG03, ByVal BoolAG04, _
ByVal BoolAG05)
If ok Then
If rgH Is Nothing Then
'falls rgH noch leer ist
Set rgH = Cells(j, 1)
Else
Set rgH = Application.Intersect(rgH, Cells(j, 1))
End If
End If
Next j
If Not (rgH Is Nothing) Then
'erst jetzt wird der entsprechende Bereich auf 'Hidden' gesetzt!!!
rgH.EntireRow.Hidden = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

PS: ich hoffe, ich bin nicht mehr lange online *grins

lto, 17. November 2015

#12
SCOREFUN

Scorefun

VBA Zeilen ausblenden

Ich schätze mal, bei der Funktion selber sollte byVal hinzugefügt werden

Code:

Function sollunsichtbar(ByVal xAGselektor As String, ByVal xBoolAG01 As Integer, ByVal xBoolAG02 As Integer, _
ByVal xBoolAG03 As Integer, ByVal xBoolAG04 As Integer, _
ByVal xBoolAG05 As Integer) As Boolean
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nicht bei dem Funktions-Aufruf...

Scorefun, 17. November 2015

#13
LUSCHI

Luschi

Hallo Ito,

um dem Fehler auf die Spur zu kommen mache Folgendes: Code:

- drücke 'Debuggen' wenn der Fehler kommt
- drücke die 'F8'-Taste und Schritt für Schritt den Vba-Code
weiter auszuführen
-so kommt man an die Stelle, wo der tatsächliche Fehler auftritt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Luschi, 17. November 2015

#14
LTO

lto

Hallo Scorefun & Luschi,

ich habe jetzt auch in der Function dies geändert wie von Scorefun beschrieben - dieser Fehler ist weg.

es hat dann noch einen Fehler gegeben - es hat ein End if gefehlt.

aber es wäre zu schön gewesen, jetzt gibt's Probleme gleich am Anfang der For j-Schleife
Zeile 56, Laufzeitfehler 424, Objekt erforderlich bei
Code:

AGselektor = Mid(Cells(j, 1), 4, 2).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sorry, dass ich so wenig produktiv beitragen kann... ;-(

lg Stefan

lto, 17. November 2015

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

VBA Zeilen ausblenden

Die Seite wird geladen...

VBA Zeilen ausblenden - Similar Threads - VBA Zeilen ausblenden
VBA Code für Zeilen ausblenden einblenden mit JA/Nein
in Microsoft Excel Hilfe
VBA Code für Zeilen ausblenden einblenden mit JA/Nein: Hallo, habe eine Exceltabelle, bei der ich bei einer Zelle eine Ja/Nein abfrage mache, wenn in der Zelle Nein steht, dann soll ein bestimmter Zeilenbereich, den ich definieren möchte, ausgeblendet...
Zeilen über Kontrollkästchen und abhängig von Zelleninhalt ausblenden
in Microsoft Excel Hilfe
Zeilen über Kontrollkästchen und abhängig von Zelleninhalt ausblenden: Hallo, ich habe eine Liste mit 30 Platzhaltern (=Zeilen 11:41) um Nutzer anzulegen. In Zelle C7 wird mir automatisch die Summe der Nutzer angezeigt, wenn die Nutzernamen in die Zeilen eingetragen...
Zeilen Ein-/Ausblenden über Dropdown mit Hilfe VBA
in Microsoft Excel Hilfe
Zeilen Ein-/Ausblenden über Dropdown mit Hilfe VBA: Hallo Leute, ich versuche gerade über eine Dropdown Zelle bei der Auswahl von "Ja" mehrere gefüllte Zeilen mit Inhalt unterhalb erscheinen zu lassen. Dies würde ich gerne über VBA...
Zeilen anhand von Benutzer ID ausblenden/löschen
in Microsoft Excel Hilfe
Zeilen anhand von Benutzer ID ausblenden/löschen: Schönen guten Tag zusammen! vorab, ich bin Excel-technisch nicht der aller "fitteste", demnach wende ich mich hiermit an euch. Es geht um folgendes... Ich habe ein Formular(Excel-Datei) in...
Zeilen und Spalten mit VBA ausblenden wenn Wert 0 in bestimmten Zellen
in Microsoft Excel Hilfe
Zeilen und Spalten mit VBA ausblenden wenn Wert 0 in bestimmten Zellen: Hallo Excel Kolleginnen und Kollegen, ich habe mehrere Excel-Tabellen mit gleichem Layout aber nicht immer die gleichen Spalten und Zeilen befüllt, möchte nun mit VBA und Makro mir die Zeilen...
VBA Zeilen ausblenden v. mehren akt. Arbeitsmappen m. best. Wert in Zelle, Laufzeit
in Microsoft Excel Hilfe
VBA Zeilen ausblenden v. mehren akt. Arbeitsmappen m. best. Wert in Zelle, Laufzeit: Liebes Office-Team, ich habe eine VBA-Formel hinterlegt die mir die Zeilen von 10 bis 59 ausbldenden soll bei einem Wert größer 0 in Spalte P und das in mehrer aktiven Arbeitsmappen...
VBA Makro - Zeilen je nach Listeneintrag ausblenden
in Microsoft Excel Hilfe
VBA Makro - Zeilen je nach Listeneintrag ausblenden: Hi, ich habe eine kurze Frage, da ich ein totaler Anfänger mit Makros bin. Für die Arbeit habe ich eine Excel Sheet mit Dropdown Auswahllisten erstellt. Je nach Auswahl sollen andere Zeilen...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden