Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vorgegebene Zeilen ausblenden

Forumthread: Vorgegebene Zeilen ausblenden

Vorgegebene Zeilen ausblenden
Heinz

Hallo Leute
Ich möchte vorgegebene Zeilen ausblenden.
Leider bekomme ich bei unteren Makro die Fehlermeldung
"Typen unverträglich"
Könnte mir bitte jemand weiterhelfen.
Gruß
Heinz 
Option Explicit
'Ab Spalte 155 ausblenden
Sub Unten_Ausblenden()
Dim mySheets As Sheets
Application.ScreenUpdating = False
Set mySheets = Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember"))
Rows("155:156,175,185,206:999").Select
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
passt das so ?
05.12.2010 18:31:14
Matthias
Hallo Heinz
Wenn es nur diese 12 Blätter gibt dann könnntest Du das so lösen:
Sub ausblenden()
Dim mySheets As Sheets
Dim x As Long
For x = 1 To 12
Application.ScreenUpdating = False
Worksheets(x).Range("5:6,10:11,15:15,20:20,25:33").EntireRow.Hidden = True
Next
End Sub


Sub Einblenden()
Dim mySheets As Sheets
Dim x As Long
For x = 1 To 12
Application.ScreenUpdating = False
Worksheets(x).Range("5:6,10:11,15:15,20:20,25:33").EntireRow.Hidden = False
Next
End Sub
Beispiel mit 3 Blättern:
https://www.herber.de/bbs/user/72601.xls
Gruß Matthias
Anzeige
AW: passt das so ?
05.12.2010 18:36:41
Heinz
Hallo Matthias
Leider gibt es mehr als diese 12 Sheets.
Danke
Heinz
AW: Vorgegebene Zeilen ausblenden
05.12.2010 18:35:06
Tino
Hallo,
ich würde dies in etwa so angehen.
Sub Unten_Ausblenden()
Dim mySheets, oSH As Object

Set mySheets = Sheets(Array("Jänner", "Februar", "März", "April", _
                            "Mai", "Juni", "Juli", "August", _
                            "September", "Oktober", "November", "Dezember"))
    
For Each oSH In mySheets
 oSH.Range("155:156,175:175,185:185,206:999").EntireRow.Hidden = True
Next oSH

End Sub
Gruß Tino
Anzeige
AW: Vorgegebene Zeilen ausblenden
05.12.2010 18:40:08
Heinz
Hallo Tino
Jetzt kommt die Fehlermeldung
Userbild
Gruß
Heinz
AW: Bin so ein Tro....
05.12.2010 18:44:00
Heinz
Danke Matthias & Tino
Natürlich funktioniert es.
Muß nur vorher den Blattschutz aufheben.
Recht herzlichen Dank euch beiden.
Gruß
Heinz
Anzeige
;

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
MsgBox abfolge mit BlätterAusblenden
Eggi

Hallo Zusammen
Habe ein wenig mühe damit das Makro BlaetterAusblenden am richtigen Ort zu plazieren.
Es soll so ablaufen: Msgbox "Formulare zurücksetzen ja/nein. falls nein *BlaetterAusblenden* falls ja weiter zu msgbox "Wollen Sie wirklich... (diese Abfrage ist nur zur letzen nochmali...
15.08.2008 15:23:51
Thread-ID: 1002204
10 Beiträge
Spalten Ausblenden in freigegebener Arbeitsmappe
Marco

Hallo,
ich möchte gerne in einer freigegeben Arbeitsmappe bestimmte Spalten per Klick auf ein Symbol aus- und wieder einblenden können.
Mein Problem ist der Blattschutz in der freigegebenen Arbeitsmappe. Aufgrund meiner bescheidenen VBA-Kenntnisse, weiß ich nicht, an welcher Stelle des...
17.08.2008 22:56:20
Thread-ID: 1002488
3 Beiträge
Anzeige
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Einzelne Tabellen ausblenden
Peter

Hallo,
hab folgendes Problem. Ich habe eine Arbeitsmappe mit 15 Arbeitsblättern. Von diesen 15 AB sollen jedoch nur die Tabellen 1-10 sichtbar sein. Der Code, den ich mir gebastelt habe funktioniert leider nicht. Vielleicht stehe ich auch einfach nur auf dem Schlauch.
Hier der Code:
...
20.08.2008 22:33:32
Thread-ID: 1003334
7 Beiträge
Bei Ausdruck Leerzeilen ausblenden
Christian

Guuuuten Morgen zusammen,
ich suche seit einer knappen Stunde eine Lösung für folgendes, wohl sehr einfaches Problem, finde aber nur Spezial-Lösungen, die ich leider nicht entsprechend reduziert bekomme:
Habe eine Tabelle von A1 bis K59; Leerzeilen können im Bereich 8 bis 47 vorkommen;...
27.08.2008 09:08:00
Thread-ID: 1004971
15 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Anzeige
Ausblenden von Spalten abhängig vom Autofilter
Spalten

Ich möchte gerne bestimmte Spalten abhängig vom Wert des Autofilters in einer anderen Spalte ausblenden.
Beispiel: In Spalte A wähle ich im Autofilter "Dieter" und dann sollen die Spalten J bis R ausgeblendet werden. Wähle ich dann "Volker" sollen die Spalten M bis W ausgeblendet werden.
29.08.2008 15:45:36
Thread-ID: 1005878
2 Beiträge
#NV ausblenden
Bolo

Guten Morgen liebe Leute!
Ich sitz hier mal wieder an einer wunderschönen Exceltabelle und habe ein Problemchen. Ich habe hier per sverweis Verweise auf andere Tabellen erstellt die soweit auch ganz gut funktionieren. Allerdings ist meine Tabelle aktueller als die Tabellen auf die ich verwe...
01.09.2008 08:36:38
Thread-ID: 1006318
5 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Spalten ausblenden
Silke

Hallo,
habe ein kleines Problem ich habe eine Adressenliste geschrieben und möchte nun mir eine Geburtstagsliste und Telefonliste ausgeben lassen.
Dabei möchte ich nur auf eine bestimmte Zelle klicken, damit sie auf die Liste geht. Die Liste an sich ist ist sehr lang und ich möchte die...
02.09.2008 08:51:00
Thread-ID: 1006638
8 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige