Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ohne bestimmten Inhalt ausblenden

Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 12:22:59
Manfred
Hi,
ich habe relativ wenig VBA Kenntnisse, bräuchte aber ein Makro das in einer Exceltabelle (~600 Zeilen)in einer Spalte (Spalte: I) nach einem "x" sucht und alle dazugehörigen Zeilen ausgibt, dh. Alle Zeilen die in dieser Spalte kein "x" haben ausblendet. Die Zeilen von 1-5, und die letzten 20 sollen dabei nicht bearbeitet werden!
Kann mir jemand dabei helfen?
Vielen Dank im voraus,
Manfred Schreistetter

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 12:28:41
Jürgen
Hallo Manfred,
kopiere diesen Code in Deine Arbeitsmappe:

Sub Ausblenden()
For i = 6 To ActiveSheet.UsedRange.Rows.Count - 20
If LCase(Cells(i, 9).Value) = "x" Then
Cells(i, 9).EntireRow.Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub

ollte eigentlich funktionieren.
Gruß
Jürgen
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 14:16:00
Manfrd
Hi,
danke erstmal für die schnelle Antwort!
Das Makro funktioniert, aber quasi genau falsch herum: Zeilen die ein "x" enthalten werden ausgeblendet, ich bräuchte aber quasi nur die Zeilen wo in der Spalte das X steht, alle anderen sollen ausgeblendet werden.
Und wie kann ich die dann ausgeblendeten Zeilen per Makro wieder einblenden (Ich drücke auf einen Button, dann wird dieses Makro zum einblenden aktiviert)?
Und als Variante, wie könnte ich die Zeilen in denen ein "x" in der betreffenden Spalte steht in eine weitere Tabelle kopieren?
Fragen über Fragen, hoffentlich kann mir jemand helfen ;)
Viele Grüße
Anzeige
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 14:27:40
Rudi
Hallo,
Einblenden:

Private Sub CommandButton2_Click()
Rows.Hidden = False
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 14:18:34
Rudi
Hallo,
das ist falsch und zu lang.
Falsch, weil er die Zeilen mit dem x sehen und nicht ausblenden will.
Zu lang, weil das reicht:

Sub Ausblenden()
For i = 6 To ActiveSheet.UsedRange.Rows.Count - 20
Rows(i).Hidden = LCase(Cells(i, 9).Value) <> "x"
Next i
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 20:32:15
Beate
Hallo,
die UsedRange kann aber (wenn es keine saubere Tabelle ist) tiefer gehen und dann bleiben weniger als 20 oder keine Einträge mehr stehen. Sicherer mit CurrentRegion:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 6 To ActiveSheet.Range("I6").CurrentRegion.Rows.Count - 16
    '+ die Zeilen oberhalb = 20 bleiben stehen
    Rows(i).Hidden = LCase(Cells(i, 9).Value) <> "x"
Next i
End Sub
Guckst Du: CurrentRegion -Kontrolle über Listen
Gruß,
Beate
Anzeige
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 21:43:46
Manfred
Hi,
Also die Lösung von Rudi hat sehr gut funktioniert, danke dafür. Die von Beate leider nicht, der macht da gar nix...
Jetzt hab ich noch eine Verständnisfrage, wenn ich das Makro von Rudi für andere Spalten anwenden will müsste der Quellcode doch wie folgt aussehen (Spaltenname: k):

Sub Ausblenden_I3()
Dim k As Integer
For k = 6 To ActiveSheet.UsedRange.Rows.Count - 20
Rows(k).Hidden = LCase(Cells(k, 9).Value) <> "x"
Next k
End Sub

So dachte ich es mir, änderte das so, aber er macht das gleiche als wenn ich statt k i stehen hätte. Was mache ich falsch?
Viele Grüße, Gute Nacht und Vielen Dank
Manfred
Anzeige
AW: Zeilen ohne bestimmten Inhalt ausblenden
18.12.2006 23:31:27
Beate
Hallo Manfred,
verstehe zwar nicht, warum mein Code nicht bei dir läuft, hatte ihn getestet. Hast du den verlinkten Beitrag gelesen, um den Unterschied zwischen UsedRange und CurrentRegion zu verstehen?
Aber bleiben wir bei Rudis Code, da du ja damit zurecht kommst. Spalte K hat die Spaltennummer 11.

Sub Ausblenden_SpalteK()
Dim i As Integer
For i = 6 To ActiveSheet.UsedRange.Rows.Count - 20
Rows(i).Hidden = LCase(Cells(i, 11).Value) <> "x"
Next i
End Sub

Gruß,
Beate
AW: Zeilen ohne bestimmten Inhalt ausblenden
19.12.2006 09:19:41
Manfred
Hi Beate,
ah, ich wußte nicht dass Spalten mit Zahlen angesteuert werden! Danke für den Hinweis!
Viele Grüße
Manfred
Anzeige
AW: Zeilen ohne bestimmten Inhalt ausblenden
19.12.2006 01:46:37
Uwe
Hallo Jürgen,
was spricht denn dagegen, dafür den Autofilter zu bemühen!?
Gruß Uwe
AW: Zeilen ohne bestimmten Inhalt ausblenden
19.12.2006 09:15:34
Manfred
Hi,
im Prinzip nichts, aber ich wollte es mit VBA hinbekommen, da ich in Zukunft mehr damit machen möchte!
Viele Grüße
Manfred

310 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
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
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
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
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5