Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Schleife, Zeilen automatisch ausblenden

Mit Schleife, Zeilen automatisch ausblenden
17.02.2005 20:15:02
Harald
Hallo VBA-Spezialisten,
kann mir bitte jemand den Code (Schleife) für folgendes Problem mitteilen:
Ich habe eine sehr große Datei, die von anderen Benutzern gefüllt wird und deshalb sehr unübersichtlich ist. Der besseren Übersicht halber möchte ich einen Automatismus einbauen.
Wenn alle 5 Zellen in Spalte D bis H mit Werten gefüllt wurden (also ungleich leer sind), soll die entsprechende Zeile ausgeblendet werden. Diese Prüfung soll zwischen Zeile 10 und 500 stattfinden, ab Zeile 501 nicht mehr.
(Achtung, der eingegebene Wert kann auch 0 sein.)
Eventeull möchte ich eine separate 2.Schleife nach dem selben Prinzip erstellen, welches dann die Eingabe-Zelle in Spalte D-H sperrt.
Ich hoffe, mir kann jemand den Code für diese 2 Schleifen vorgeben.
Vielen Dank im voraus.
Gruß, Harald.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Schleife, Zeilen automatisch ausblenden
17.02.2005 20:23:51
Josef
Hallo Harald!
Hier mal beides kompiniert, kannst du ja trennen wenn du willst!

Sub AusblendenUndSperren()
Dim lRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
For lRow = 10 To 500
If Application.CountA(Range(Cells(lRow, 4), Cells(lRow, 8))) = 5 Then
Range(Cells(lRow, 4), Cells(lRow, 8)).Locked = True
Rows(lRow).Hidden = True
End If
Next
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Replace("kompiniert", "p", "b") ;-)) o.T.
17.02.2005 20:28:32
Josef
;-))
AW: Mit Schleife, Zeilen automatisch ausblenden
17.02.2005 20:42:01
Harald
Hallo Sepp,
Du bist der Größte !!!
Vielen Dank.
Habe mir noch Text eingebaut, damit ich ähnliche Schleifen künftig vielleicht selber codieren kann.
Gruß, Harald aus Köln

Sub AusblendenUndSperren()
Dim lRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
For lRow = 10 To 500
If Application.CountA(Range(Cells(lRow, 4), Cells(lRow, 8))) = 5 Then 'Wenn alle 5 Zellen in Spalte D bis H ungleich leer sind, dann:
Range(Cells(lRow, 4), Cells(lRow, 8)).Locked = True 'Zellen in dieser Zeile sperren
Rows(lRow).Hidden = True 'Zeile ausblenden
End If
Next
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

Anzeige

304 Forumthreads zu ähnlichen Themen

in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Anzeige
Diagramm - leere Zeilen ignorieren
Sascha

Hallöchen, ich mal wieder ;)
Ganz einfach Sache, mir ist nur gerade entfallen wies geht *gg*
Ein 2D-Säulendiagramm, Quelldaten A4-B100, ca. 70 Zellen ausgefüllt, der Rest leer.
Um das Diagramm bei der Bearbeitung der Listen aktuell zu halten möchte ich gerne, dass die nicht ausgefül...
13.11.2008 13:38:19
Thread-ID: 1024186
7 Beiträge
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Anzeige
leere Zellen ausblenden
Christoph

Habe folgendes Problem, dass ich mit einem neuen Makro lösen will:
Aus einem Eingabebereich kopiere ich über Verlinkungen die Zelleninhalte in einen Ausgabebereich, der mir 200 Zeilen Platz für die Daten läßt. Damit ich optisch einen schönen Ausgabebereich habe, sollen nun mittels eines Mar...
27.01.2009 13:10:00
Thread-ID: 1044202
4 Beiträge
Restliche Zeilen/Spalten ausblenden
eliewsam

Hallo Excel-Experten,
leider konnte ich bislang folgendes Problem nicht lösen: Ich würde gerne alle Zeilen ab einer bestimmten Zeile ausblenden. Nach unten sollten dann keine weiteren Zeilen mehr sichtbar sein. Gruß Elie
12.02.2009 17:51:00
Thread-ID: 1050190
3 Beiträge
Alle komplett leeren ZEILEN löschen
Tobias

Hallo allesamt,
ich würde gerne alle Zeilen Löschen, wenn nichts in den zellen steht
habs hiermit versucht:
Sub LeereZeilenLöschen() Dim tmp Dim x Application.ScreenUpdating = False ActiveSheet.Unprotect Password:=passw tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row For...
14.03.2009 00:09:37
Thread-ID: 1060081
8 Beiträge
Lösche Zeilen ohne bestimmten Inhalt
Fabio

Hallo zusammen,
dank der Forums-Hilfe kann ich nun "mein" Verzeichnis sehr gut auslesen. Nun habe ich relativ lange "Zahlenkolonnen" - die ich gerne etwas "komprimiert hätte"
Folgendes will ich erreichen (per Makro?):
Lösche alle Zeilen in denen in der Spalte B "NICHT" die Buchstabe...
18.04.2009 18:02:56
Thread-ID: 1069520
8 Beiträge
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
6
11
3
3
2
7
7
5
2
7
4
7
8
4
3
1
2
13
6
4
1
7
2