Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA für Zeile ausblenden

Forumthread: VBA für Zeile ausblenden

VBA für Zeile ausblenden
24.03.2019 17:19:15
Frank
Hallo Zusammen,
ich brauche einen VBA, der mir, wenn in Spalte J ein "j" steht, die Zeile entsprechend ausblendet.
Ich kenne die Möglichkeit dies über den Filter zu regeln, was bei einer Liste keine Mühe macht. Ich habe aber täglich 30 Listen, die in bestimmten Bereichen Schreibgeschützt sind und in denen sich auch nach bestimmten Regeln auch Zeilen automatisch sperren. Und das macht Mühe wenn ich eine Zeile ausblenden will.
Sonnigen Gruß
Frank
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA für Zeile ausblenden
24.03.2019 18:30:47
Sepp
Hallo Frank,
der Code bearbeitet immer das aktive Tabellenblatt!
Das Passwort musst du natürlich anpassen.
Modul Modul2 
Option Explicit 
 
Sub hideLines() 
  Dim rng As Range, varValues As Variant, lngIndex As Long, lngLast As Long 
 
On Error GoTo ErrorHandler 
  Application.ScreenUpdating = False 
  With ActiveSheet 
    .Unprotect "password" 
    lngLast = Application.Max(2, .Cells(.Rows.Count, 10).End(xlUp).Row) 
    If lngLast > 2 Then 
      varValues = .Range("J2:J" & lngLast) 
    Else 
      Redim varValues(1 To 1, 1 To 1): varValues(1, 1) = .Range("J2") 
    End If 
    .Range("J2:J" & lngLast).EntireRow.Hidden = False 
    For lngIndex = 1 To Ubound(varValues, 1) 
      If LCase(Trim(varValues(lngIndex, 1))) = "j" Then 
        If rng Is Nothing Then 
          Set rng = .Cells(lngIndex + 1, 1) 
        Else 
          Set rng = Union(rng, .Cells(lngIndex + 1, 1)) 
        End If 
      End If 
    Next 
    If Not rng Is Nothing Then rng.EntireRow.Hidden = True 
    .Protect "password" 
  End With 
   
ErrorHandler: 
  Application.ScreenUpdating = True 
  Set rng = Nothing 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA für Zeile ausblenden
24.03.2019 19:45:22
Frank
Hallo Sepp,
vielen Dank für die schnelle Antwort, dein Code funktioniert, in dem ich über "Entwicklertools" ... "Sub/UserForm ausführen" gehe, dann werden die Zeilen ausgeblendet.
Ich glaube ich habe in meinem Text wesentliche Wörter vergessen, der Code soll automatisch ausgeführt werden, wenn die Datei geöffnet wird. --Sorry--
Anzeige
AW: VBA für Zeile ausblenden
24.03.2019 19:55:01
cysu11
Hallo Frank,
du musst den Code unter "DieseArbeitsmappe" kopieren und
"Sub hideLines()"
mit
"Private Sub Workbook_Open()"
tauschen.
LG
Alexandra
AW: VBA für Zeile ausblenden
24.03.2019 20:11:19
Frank
Hallo Alexandra,
vielen lieben Dank für den Hinweis, es funktioniert.
allerdings nur, wenn 'Kalender' ...
24.03.2019 20:30:31
Sepp
... das aktive Blatt ist!
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA für Zeile ausblenden
24.03.2019 19:58:17
Sepp
Hallo Frank,
soll der Code in allen Blättern laufen? Habe alle Blätter das selbe Passwort?
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA für Zeile ausblenden
24.03.2019 20:16:21
Frank
Hallo Sepp,
es wird nur immer für das eine Tabellenblatt "Kalender" mit dem Passwort "dragon" benötigt.
AW: VBA für Zeile ausblenden
24.03.2019 20:29:32
Sepp
Hallo Frank,
in das Modul 'DieseArbeitsmappe'.
Microsoft Excel Objekt DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
  Dim rng As Range, varValues As Variant, lngIndex As Long, lngLast As Long 
 
  Const PASSWORD As String = "dragon" 
   
  On Error GoTo ErrorHandler 
  Application.ScreenUpdating = False 
    With Me.Worksheets("Kalender") 
      .Unprotect PASSWORD 
      .Range("J:J").EntireRow.Hidden = False 
      lngLast = Application.Max(2, .Cells(.Rows.Count, 10).End(xlUp).Row) 
      If lngLast > 2 Then 
        varValues = .Range("J2:J" & lngLast) 
      Else 
        Redim varValues(1 To 1, 1 To 1): varValues(1, 1) = .Range("J2") 
      End If 
      For lngIndex = 1 To Ubound(varValues, 1) 
        If LCase(Trim(varValues(lngIndex, 1))) = "j" Then 
          If rng Is Nothing Then 
            Set rng = .Cells(lngIndex + 1, 1) 
          Else 
            Set rng = Union(rng, .Cells(lngIndex + 1, 1)) 
          End If 
        End If 
      Next 
      If Not rng Is Nothing Then rng.EntireRow.Hidden = True 
      .Protect PASSWORD 
    End With 
   
ErrorHandler: 
  Application.ScreenUpdating = True 
  Set rng = Nothing 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA für Zeile ausblenden
24.03.2019 22:19:23
Frank
Super, vielen Dank das funktioniert.
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Zeilen Ausblenden per VBA
thomas

Hallo mal wieder
Über eine Suche wird mir die SpaltenNr mit dem Treffer ausgegeben und in ein Array geschrieben (ArrSpalte(i)).
Nun möchte ich im sheet("Tabelle1") alle Zeilen ausblenden in der kein Treffer ist.
Z.b.
Treffer
ArrSpalte(1)=8
ArrSpalte(2)=8 'Zweiter Treffer...
08.04.2009 13:08:33
Thread-ID: 1067708
2 Beiträge
Zeilen ausblenden ohne VBA
Ptonka

Hallo zusammen,
ich habe eine Tabelle mit 10 Spalten und 15 Zeilen.
In Spalte A wird mittels einer Formel je nach Eintrag in anderen Spalten ein "x" eingetragen.
Diese mit "x" gekennzeichneten Zeilen sollen ausgeblendet werden.
Dies soll aber weder mit einem Makro noch mit dem A...
20.05.2009 13:47:30
Thread-ID: 1076358
3 Beiträge
Anzeige
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 Beiträge
Anzeige
mit Drehfeld Zeilen ein und ausblenden per vba
Ulf

Moin, moin
die ersten Schritte mit vba/makro sind schwer und 2 Tage suchen hat leider nichts passendes ergeben
vielleicht ist mein Grundansatz auch falsch
folgendes Problem
ich habe ein Drehfeld (Formular) erstellt dessen Zellbezug h1 ist.
Wenn der Wert sich auf 1 erhöht sol...
11.04.2011 21:00:59
Thread-ID: 1209942
6 Beiträge
VBA Zeilen aus/einblenden
Christian

Hallo,
ich habe in den Zeilen (Mappe "Übersicht") B10-B35 die Einträge "Team Meier; Team Schulze; Team Müller; Team Krüger etc. In H10-H35 errechne ich einen Zielwert, nachdem der Datenbereich sortiert wird.
Die Teams gehören einzelnen Abtl, die ich per Button anzeigen lassen möchte. <...
08.07.2011 09:51:42
Thread-ID: 1221319
2 Beiträge
Anzeige
Makro Leere Zeilen ausblenden Office 2010
Maksiu

Servus Miteinander!
Vor längerer Zeit habe ich von Euch das folgende Makro bekommen, das mir in den Bereichen E13:E24 und E30:E109 und E122:E265 die Zeilen ausblendet, die in Spalte E einen Wert Leider funktioniert das Makro auf Office 2007 und Office 2010 nicht.
Wie muss das Makro für...
18.10.2011 17:08:26
Thread-ID: 1234374
6 Beiträge
Mit VBA Zeilen checken und ausblenden
Reiner

Hallo zusammen!
Ich bin neue hier im Forum und hoffe jemand kann mir weiterhelfen.
Folgendes Problem.
Ich möchte die ersten 100 Zeilen/Zellen einer Spalte per VBA checken.
Steht in der Zelle eine 0 soll die ganze Reihe ausgeblendet werden.
Steht in der Zelle eine 1 soll die...
02.12.2011 10:39:58
Thread-ID: 1240358
10 Beiträge
Anzeige
Makro Zeilen / Spalten ausblenden
Tom

Hallo Experten.
ich benötige ein Makro mit dem ich Zeilen und Spalten ausblenden kann, deren Zellen im Ergebnis Null sind.
D.h. alle Zeilen von Zeile 12 bis Zeile 774 sollen ausgeblendet werden wenn in Spalte C eine Null steht.
Zudem sollen danach alle Spalten ausgelendet werden im...
01.03.2012 12:01:59
Thread-ID: 1253073
3 Beiträge
Makro Zeilen ausblenden behindert Formeln
Debby

Hallo zusammen
Ich habe in einer Spalte Zahlen stehen, die auch mehrfach vorkommen können. Nun möchte ich gerne in einer anderen Spalte eine aufsteigende Auflistung aller Zahlen machen (jede soll nur einmal vorkommen).
Die Formeln dafür hab ich auch:
1. Zeile: {=INDEX(D1:D908;MIN(W...
01.05.2012 18:10:15
Thread-ID: 1261138
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige