Zeilen wegschalten ....

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Joachim!
Im Kommentar des Codes stand, das sich das Makro auf Spalte "A" bezieht!
Wenn in Spalte "A" kein Eintrag vorhanden ist, dann kann der Code nicht laufen!
Hier angepasst auf Spalte "G"!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
Dim blnShowRows As Boolean

Public Sub EinAusblenden()
Dim lngRow As Long, lngLast As Long
'Zeilen Aus-/Ein-blenden in Abhängigkeit eines Eintrages in Spalte "G"

With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .DisplayAlerts = False
  .Calculation = xlCalculationManual
  .Cursor = xlWait
End With

On Error GoTo EinAusblenden_Error

lngLast = Cells(Rows.Count, 7).End(xlUp).Row

If Not blnShowRows Then

  For lngRow = 2 To lngLast
    Rows(lngRow).Hidden = Cells(lngRow, 7) = ""
  Next

  blnShowRows = True

Else

  Rows("2:" & lngLast).Hidden = False

  blnShowRows = False

End If

On Error GoTo 0

EinAusblenden_Error:

If Err.Number > 0 Then
  MsgBox "Fehler:" & vbTab & Err.Number & " (" & Err.Description & ")" & Space(45) & vbLf & vbLf & _
    vbTab & "Prozedur:" & vbTab & vbTab & "EinAusblenden" & vbLf & _
    vbTab & "Modul:" & vbTab & vbTab & "Modul1", vbExclamation, "Fehler"
  Err.Clear
End If

With Application
  .ScreenUpdating = True
  .EnableEvents = True
  .DisplayAlerts = True
  .Calculation = xlCalculationAutomatic
  .Cursor = xlDefault
End With

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Hallo Sepp,
vielen Dank für den geänderten Code. Werde ihn morgen ausprobieren.
------
Habe in der Zwischenzeit die Funktion - Daten - Filter - Autofilter gefunden und ausprobiert.
Genau hier finde ich eigentlich schon das was ich möchte.
Mit einem kleinen Trick kann ich mir es so einstellen wie ich es mir gedacht habe.
(Ich habe neben meiner eigentlichen Tabelle Zellen nach meinem Belieben mit einer
Abfrage versehen und das Ergebnis "unsichtbar" gemacht. = weiße Schrift)
Die Zelle in der sich der "AbfrageButton" = Der Schalter für das PullDownMenü befindet
habe ich farbig hervorgehoben und beschriftet.
Nun habe ich noch zwei "Schönheitsopreationen" im Blick.
1.) Kann ich den Inhalt des PullDownMenüs editieren?
Die Einträge "leere - Top 10.. - Benutzerdefiniert.. - und auch das "Zellensymbol von mir (hier ist es ein X)" würde ich gerne aus dem Menü eleminieren.
Ich brauche nur "NICHT LEERE" und "ALLE". Dann wäre ich da wo ich sein möchte.
2.) Der "Knopf für das PullDownMenü ist sehr klein. Kann ich diesen vergrößern?
________________________________
Wenn ich damit arbeiten kann hat es - glaube ich den Vorteil, dass VB nicht installiert sein muss um zu funktionieren. Oder muss VB auch dafür installiert sein?
Ich hatte bis vor ein paar Tagen VB auch nicht installiert und konnte deshalb -natürlich- keine Tabellen mit VB-Code öffnen. Ausserdem wurde ich ständig gefragt ob ich Makros aktivieren möchte oder nicht.
Da ich die Tabelle auch anderen geben möchte und diese ggf. kein VB installiert haben würde es mit einem Makro nicht ans laufen kommen.
Nicht desto trotz werde ich Dein Makro morgen jedenfalls ausprobieren.
(Ich hatte die Spalte A angelegt und auch Einträge gemacht - nur es passierte nichts.)
Für heute reicht es - nochmals Danke - bis morgen
Gute nacht.
Joachim

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread