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

Zeilen ausblenden bei bestimmter Bedingung

Forumthread: Zeilen ausblenden bei bestimmter Bedingung

Zeilen ausblenden bei bestimmter Bedingung
16.01.2008 19:32:00
Thomas
Hallo Excelaner,
ein Optionsfeld soll mir sagen, dass die Zeilen ausgeblendet werden sollen, in denen (z.B.) eine "1" steht.
Bin leider kein VBA-Kenner, sorry. Bekommt man so etwas leicht hin?
Viele Grüße, Thomas

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden bei bestimmter Bedingung
16.01.2008 20:57:49
Thorsten
Hallo Thomas,

Private Sub OptionButton1_Click() 'optionbutton Name mußt du evt. anpassen
Dim i As Integer
For i = 2 To 5000 'Dieser Teil durchsucht Spalte A von Zeile 2 bis Zeile 5000 nach dem wert 1
If Sheets("Tabelle1").Cells(i, 1) = 1 Then
Range("A" & i).Select 'Dieser Teil blendet be gefundenem Wert die entsprechende Zeile aus
Selection.EntireRow.Hidden = True
End If
Next i
End Sub


füge dieses Makro in ein Standardmodul ein.
zum einblenden nimmst du am besten einen zweiten optionsbutton und weist ihm diesen code zu:


Private Sub OptionButton2_Click()
Rows("2:5000").Select
Selection.EntireRow.Hidden = False
End Sub


Rückmeldung wäre nett
Gruß´
Thorsten

Anzeige
Thorsten_Z wars... nicht Thorsten O.T.
16.01.2008 20:59:00
Thorsten_Z

AW: Zeilen ausblenden bei bestimmter Bedingung
16.01.2008 22:11:00
Thomas
Danke Thorsten_Z ! Funktioniert

AW: Zeilen ausblenden bei bestimmter Bedingung
17.01.2008 09:38:00
Erich
Hallo Thomas und Thorsten,
so viele Selects müssen nicht sein: 

Private Sub OptionButton1_Click() 'optionbutton Name mußt du evt. anpassen
Dim i As Integer
For i = 2 To 5000
If Me.Cells(i, 1) = 1 Then Rows(i).Hidden = True
Next i
End Sub
Private Sub OptionButton2_Click()
Rows.Hidden = False
End Sub


Hier noch eine Alternative mit einer CheckBox und Find:


Option Explicit
Private Sub CheckBox1_Click()
Dim rngF As Range
If CheckBox1 Then
With Cells
Set rngF = .Find(What:=1, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rngF Is Nothing Then
Do
Rows(rngF.Row).Hidden = True
Set rngF = .FindNext(Cells(rngF.Row, .Columns.Count))
Loop While Not rngF Is Nothing
End If
End With
Else
Rows.Hidden = False
End If
End Sub

und eine Beispielmappe:
https://www.herber.de/bbs/user/49087.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilen ausblenden bei bestimmter Bedingung
17.01.2008 09:53:04
Thorsten_Z
Moin Erich,

so viele Selects müssen nicht sein

. Ich weis, aber da bin ich mir noch unsicher. Nun bin ich aber wieder ein Stück weiter... Danke für deinen Input :-)
Gruß
Thorsten

AW: Zeilen ausblenden bei bestimmter Bedingung
18.01.2008 08:18:27
Thomas
Hallo Erich,
funktioniert alles bestens, ich danke sehr für Deine Hilfe!!!
Thomas
Anzeige

Forumthreads zu verwandten Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Anzeige
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Per Makro zu einer Zelle springen
TomTom

Hi,
ich habe ein Formular , auf dem sitzt eine textbox. Duch irgend ein Vorgang wird eine bestimmte Zelle ermittelt, zum Beispiel "AD250". In dieser Textbox würde dann bei mir drin stehen "$AD$250"
Kann ich nun per Makro zu dieser Zellen springen, sprich, dass diese dann im Sichtbaren b...
20.01.2009 07:59:00
Thread-ID: 1041709
3 Beiträge
Nach links oben springen - im Makro
miss18

Hallo,
ich hätte eine Frage und ich hoffe Ihr könnt mir weiterhelfen.
Mit Hilfe dieses Super-Forums (ins. mit Hilfe von Josef Ehrensberger) habe ich das folgende Makro auf meine Wünsche umgestellt und es funktioniert prima.
Jetzt würde ich gerne die Funktion einbauen wenn ich beim K...
03.03.2009 14:38:16
Thread-ID: 1055984
6 Beiträge
Alle Zeilen mit bestimmtem Inhalt löschen
Lutz

Hallo Excel-Profis,
ich habe eine Tabelle die "Liste" heisst und in der Buchungen per Makro eingefügt werden.
Jetzt möchte ich per Makro einen Vorgang der aus mehreren Zeilen bestehen kann löschen.
D.h. ich möchte per Box fragen welcher Beleg (steht in Spalte "E") gelöscht werden so...
13.03.2009 18:53:36
Thread-ID: 1059979
3 Beiträge
Inhaltsverzeichnis aus bestimmten Zeilen erstellen
Steffen

Hallo zusammen,
ich möchte gern ein Inhaltsverzeichnis aus bestimmten Zeilen erstellen.
Bis jetzt habe ich diese Funktion nur für mehrere Sheets gefunden, gibt es das auch
für bestimmte zeilen die man zb entsprechend formatiert hat?
Vielen Dank!
20.03.2009 14:01:39
Thread-ID: 1062195
2 Beiträge
Anzeige
Inhaltsverzeichnis aus bestimmten Zeilen erstellen
Steffen

Hallo zusammen,
ich möchte gern ein Inhaltsverzeichnis aus bestimmten Zeilen erstellen.
Bis jetzt habe ich diese Funktion nur für mehrere Sheets gefunden, gibt es das auch
für bestimmte zeilen die man zb entsprechend formatiert hat?
Vielen Dank!
20.03.2009 14:12:54
Thread-ID: 1062203
2 Beiträge
Anzeige
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
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
letzte Zeile mit bestimmten wert finden
steffen

Hallo Ex(cel)perten,
Ich habe eine Tablle mit über 30.000 Zeilen.
Wie stelle ich es mittels VBA an, die letzte Zeile eines Wertes zu bestimmen, wenn in einer Spalte dieser Wert mehrmals vorkommt?
Gibt es eine Funktion ohne eine zeitaufwendige Schleife nutzen zu müssen?
Gruß Stef...
10.07.2009 10:42:10
Thread-ID: 1087617
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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