Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen selektieren nach Zellinhalt

Zeilen selektieren nach Zellinhalt
18.04.2008 14:07:00
Heinrich
Hallo,
Ich möchte gerne in einer sortierten Tabelle alle Zeilen markieren und automatisch gruppieren lassen, in denen sich ein Bestimmter Wert in der letzten Spalte steht. Wie ist das mit VBA möglich?
Beispiel:
Spalte A Spalte B
Überschrift "AT 1"
Fegen AT 1
Wischen AT 1
Überschrift "AT 2"
Bürsten AT 2
Waschen AT 2
Jetzt möchte ich mittels VBA gerne die Zeilen automatisch Gruppieren lassen. Gruppiere alles mit AT 1 und Gruppiere alles mit AT 2, wobei die Anzahl der AT variabel sein sollte (AT 1, AT 2, ... AT x). Geht das?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen selektieren nach Zellinhalt
19.04.2008 12:07:00
Daniel
Hi
unter folgenden Voraussetzungen könnte dieses Makro helfen:
1. die Daten sind sortiert
2. in den Überschriftenzeilen ist die Zelle in der Spalte B leer
3. die Kennung AT x ist ein Konstantwert und wird nicht über Formel erzeugt

Sub Gruppieren()
Dim Bereich As Range
Dim  i As Long
Set Bereich = Columns(2).SpecialCells(xlCellTypeConstants, 23)
For i = 1 To Bereich.Areas.Count
Bereich.Areas(i).Rows.Group
Next
End Sub


Gruß, Daniel

AW: Zeilen selektieren nach Zellinhalt
21.04.2008 12:30:00
Heinrich
Hallo Daniel,
vielen Dank für Deine Antowrt. Das Problem habe ich mittlerweile folgendermaßen gelöst:

Dim i As String
i = UserForm1.ComboBoxFunctions.Value
Sheets("Drehbuch_CM").Visible = True
Sheets("Drehbuch_CM").Select
Range("O2").Select
Selection.AutoFilter
If UserForm1.CheckBox1Gruppen.Value = True Then
ActiveSheet.Range("$B$2:$Y$500").AutoFilter Field:=15, Criteria1:="*" & i & "*"  _
_
, Operator:=xlOr, Criteria2:="=*Ebene*"
Else: ActiveSheet.Range("$B$2:$Y$500").AutoFilter Field:=15, Criteria1:="" & i & _
"", Operator:=xlOr, Criteria2:="=*Ebene*"
End If


Gruß,
Heinrich

Anzeige

305 Forumthreads zu ähnlichen Themen

Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Anzeige
Daten ab bestimmter Anzahl Zeile abschneiden
Joachim

Hi,
ich kopiere auf mein Sheet Daten in eine Textbox und wenn die Informationen zu lange sind, schneide ich sie:
If Len(TextBox7.Value) GRÖSSER 300 Then TextBox7.Value = Left(TextBox7.Value, 300) & "... (mehr Informationen finden Sie online !)"
Nun meine Frage: geht so was auch...
02.09.2008 13:37:00
Thread-ID: 1006769
6 Beiträge
Spalten statt Zeilen filtern
Steffen

Hallo Forum,
den Autofilter kenne ich, aber ich brauche einen Filter der Spalten anstatt der Zeilen und von VBA habe ich leider keine Ahnung.
ich habe eine Tabelle mit Namen in A2:A10. Im Bereich B2:X10 steht in verschiedenen Zellen entweder ein "x" oder die Zellen sind leer.
Nun hä...
29.10.2008 16:41:00
Thread-ID: 1020355
13 Beiträge
Anzeige
Code soll erst ab bestimmter Zeile funktionieren
Joachim

Hi,
wie kann ich denn erreichen, dass der nachfolgende Code erst ab der 10. Zeile überprüft.
Zeilen 1-9 sollen unbeachtet bleiben:
Sub Kopieren() Dim lngRow As Long lngRow = Cells(Rows.Count, "B").End(xlUp).Row MsgBox lngRow End Sub
Danke mal
Joachim
04.12.2008 11:54:00
Thread-ID: 1030126
3 Beiträge
SelectFilter erst ab Zeile4
Josef

Guten Morgen!
Wenn ich bei der nachstehenden Musterdatei zuerst das Makro "Filter_setzen" und danach das Makro "Select_Filter-Terst" starte, so erfolgt in der Tabelle1 die Markeirung erst ab der Zeile 4 und nicht wie gwünscht ab der Zeile 3. Wo und wie müßte ich bitte hier den Code veränder...
13.01.2009 07:52:48
Thread-ID: 1039077
6 Beiträge
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
erste Zeile des Autofilters per VBA erkennen
Ptonka

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennumme...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Spaltenbreite nach Filtern anpassen
urs

Guten Abend
Über Filter werden die gesuchten Werte einer grossen Tabelle eingegrenzt.
Wie kann ich nun die Spaltenbreite automatisch der benötigten Breite der SICHTBAREN Zeilen anpassen.
Lässt sich diese benötigte Breite ermitteln? Makro gesucht!
Vielen Dank für Eure Hilfe
G...
26.01.2010 15:51:16
Thread-ID: 1133117
6 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CheckBox

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
1
7
5
12
6
2
5
6
4
5
4
1
2
2
1
2
6
10
7
2
7
3
8
2
6