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

Alle Zeilen markieren, wenn...

Forumthread: Alle Zeilen markieren, wenn...

Alle Zeilen markieren, wenn...
10.08.2004 15:55:21
Martin
Hallo liebe Leute,
wie kann ich es erreichen, dass alle Zeilen markiert werden, in denen in der Zelle in Spalte B ein "x" steht? Ist dies möglich? Hab es schon mit einer Schleife probiert, aber bisher immer erfolglos. Wahrscheinlich habe ich auch den falschen Ansatz. Kann mir jemand auf die Sprünge helfen?
Vielen Dank!!!
Gruss,
Martin
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zeilen markieren, wenn...
Bert
Zu welchem Zweck sollen die markiert werden? Das ist doch nicht das eigentliche Ziel, oder? Was also soll mit den Zellen passieren?
Gruß Bert
AW: Alle Zeilen markieren, wenn...
10.08.2004 16:03:41
Martin
Hallo Bert,
recht hast Du, das ist nicht das eigentliche Ziel. Im nachhinein sollen einige wenige Ereignisse mit den Spalten passieren. Zum einen möchte ich aber über jede markierte Zeile eine neue Zeile einfügen. Klingt vielleicht blöde dies auf diesem Wege realisieren zu wollen, allerdings bin ich an einer Schleife, die ich zuvor geschrieben habe gescheitert. Sie funktionierte zwar bis zu einem gewissen Punkt einwandfrei, über diesen hinaus jedoch richtete sie an meiner Datei eher Schaden an, als zu helfen. ;-)
Hast Du eine Idee, wie man dieses Problem mit dem Markieren lösen kann?
Gruss,
Martin
Anzeige
AW: Alle Zeilen markieren, wenn...
10.08.2004 16:15:41
Vitor
Hallo Martin,
Benutzt mal das "Conditional formating" auf allen zelllen, mit folgenden formeln:
="x".
Das wars oder ?
Mfg aus Lissabon.
Vitor

AW: Alle Zeilen markieren, wenn...
10.08.2004 16:23:07
Martin
Hallo Vitor,
leider funktioniert auch das nicht. Hast Du vielleicht noch eine andere Idee?
Gruss,
Martin
AW: Alle Zeilen markieren, wenn...
10.08.2004 16:11:05
MRP
Hallo Martin,
hört sich so an, als ob du ein Makro brauchst. Damit kann ich leider nicht dienen, aber Zeichne dir mal folgendes mit dem Makrorecorder auf:
Markier die Spalte B und setzte den Autofilter, filtere nach "x", markier alle x, Bearbeiten/Gehezu/Inhalte Häkchen bei nur sichbare Zellen ( gibts auch als Icon für die Symbolleiste ), den Autofilter wegnehmen und wie gewohnt Zeile einfügen.
Hoffe es hilft dir weiter.
Ciao
Manuele Rocco Parrino
Anzeige
AW: Alle Zeilen markieren, wenn...
10.08.2004 16:20:56
Martin
Hallo Manuele,
leider nein. Hab es ausprobiert. Läuft bis zu dem Punkt gut, wo Excel sagt, dass ein "Insert" nicht möglich ist. Hab trotzdem vielen Dank für Deine Hilfe.
Gruss,
Martin
P.S.: Toller Name übrigens! :-)
AW: Alle Zeilen markieren, wenn...
10.08.2004 16:33:41
MRP
Hi Martin,
dass macht er doch nur, wenn er beim Zeilen einfügen irgendwelche Zellen über die 65536igste Zeile hinausschieben würde. Überprüf doch mal ob das der Fall wäre. Vielleicht hilfts auch vorher mal Leerzeilen rauszulöschen.
Ciao
Manu
P.S.: Danke, haben meine Eltern gut gemacht ;-)
Anzeige
AW: Alle Zeilen markieren, wenn...
10.08.2004 16:40:21
Martin
Hallo Manu,
nöö, ist beides nicht der Fall. Hab in der Datei ca. 1500 Datensätze und zwischen den Datensätzen keine Leerzeilen. Excel mokelt rum mit folgender Fehlermeldung:
"Insert-Methode des Range-Objekts konnte nicht ausgeführt werden."
Ich hab ja versucht den aufgezeichneten Code zu ändern, aber...nix zu machen! :-(
Es lassen sich keine Zeilen einfügen.
Gruss,
Martin
Anzeige
AW: Alle Zeilen markieren, wenn...
10.08.2004 17:07:54
MRP
Hallo Martin,
ich meinte einfach bevor dein Makro startet alle Zeilen unterhalb der 1500 Datensätze alle Zeilen löschen. Dann müsste ja auch nix mehr da sein, was er ins Nirvana schieben würde.
Ciao
Manu
Problem gelöst.
11.08.2004 08:15:16
Martin
Guten Morgen Manu,
das Problem ist endlich gelöst. Habe folgenden Code genommen:

Sub Test()
Dim LeRei, a As Long, r1, MyRange As Range
LeRei = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = LeRei To 1 Step -1
If ActiveSheet.Cells(i, 2).Value = "X" Then
Rows(i).Select
Selection.Insert Shift:=xlDown
End If
Next i
End Sub

Vorher war das Problem entweder, dass er die Zeilen nicht direkt ausgewählt hat, oder es wurde das "Insert" nicht unterstützt. Keine Ahnung woran es genau gelegen hat, aber hauptsache es funzt jetzt.
Hab vielen Dank für Deine Mühe und Hilfe.
Lieben Gruss,
Martin
Anzeige
AW: Alle Zeilen markieren, wenn...
harry
hi martin,
probier das mal:

Sub markieren()
Dim LeRei, a As Long, r1, MyRange As Range
LeRei = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To LeRei
If ActiveSheet.Cells(i, 2).Value = "x" Then
a = a + 1
If a = 1 Then
Set MyRange = ActiveSheet.Rows(i)
Else:   Set r1 = ActiveSheet.Rows(i)
Set MyRange = Union(MyRange, r1)
End If
End If
Next i
MyRange.Select
End Sub

liebe grüße,
harry
Anzeige
ergänzung
harry
das wäre dann der befehl zum zeilen einfügen:
MyRange.Select
Selection.Insert Shift:=xlDown
Leider nein!!!
10.08.2004 16:48:13
Martin
Hallo Harry,
der Code ist klasse. Es werden genau die Zeilen markiert, die ich haben will. Allerdings sagt Excel auch hier, dass kein Insert möglich ist.
Fehlermeldung:
"Insert-Methode des Range-Objekts konnte nicht ausgeführt werden."
Hast Du vielleicht eine Idee, woran das liegen könnte?
Liebe Grüße,
Martin
Anzeige
AW: Leider nein!!!
harry
nimm den insert befehl wieder raus, lass das makro alle zeilen markieren. dann wechselst du in die arbeitsmappe und zeichnest den befehl zeilen einfügen mit dem recorder auf. versuch dann, ob es mit dem code vom rekorder klappt.
AW: Leider nein!!!
10.08.2004 16:52:24
Martin
Nein, auch nicht. Der Code des Recorders ist der gleiche, den ich auch verwende.
"Selection.Insert Shift:=xlDown"
Anzeige
AW: Leider nein!!!
harry
dann fällt mir nur noch das ein:
Dim LeRei, a As Long, r1, MyRange As Range
LeRei = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = LeRei To 1 Step -1
If ActiveSheet.Cells(i, 2).Value = "x" Then
Rows(i).Select
Selection.Insert Shift:=xlDown
End If
Next i
muss jetzt leider weg (grillen und bier trinken!!!)
liebe grüße,
harry
Anzeige
:-)
10.08.2004 17:02:07
Martin
Hey Harry,
danke für den zweiten Code. Ich teste ihn gleich mal aus.
Ich wünsch Dir einen guten Appetit und trink bitte mal 'n Pils für mich mit!!!
Lieben Gruss,
Martin
;

Forumthreads zu verwandten Themen

Alle Zellen mit Kommentaren farblich markieren
Ralph P.

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:Sub mark()laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column
For col = 1 To laCol For Row = 1 To laRow
Cell...
29.04.2002 11:46:36
Thread-ID: 117105
4 Beiträge
Zeichen in alle Zellen einer Spalte
johndoe243

Hallo zusammen und einen schönen wochenstart,
gibt es einen einfachen Weg (ohne VBA) in eine Spalte ein Zeichen einzufügen. In A1-A65000 soll z.B.
in jeder Zelle ein " eingefügt werden. Ich weiß, dass man durch das Kreuzchen unten rechts an jeder zelle "runterziehen" kann, aber das nim...
20.09.2010 14:59:08
Thread-ID: 1178575
3 Beiträge
Alle Zellen einer Spalte direkt befüllen
Thomas

Moin,
ich hätte eine kurze Frage - gibt es einen schnelleren Weg um alle Zellen einer Spalte mit einem Teil einer Anderen zu befüllen?
In VBA!
Ich habe folgenden Code, aber das dauuuuuert ;) - da gibt es doch bestimmt einen Trick das schneller zu machen, oder?
Columns(6).Inse...
08.11.2013 11:40:47
Thread-ID: 1337699
4 Beiträge
Anzeige
Alle nicht leeren Zellen der Spalte C markieren
Marco

Hallo,
in der Spalte C befinden sich unter einander weg Zahlenwerte. ich möchte nun alle Zellen dieser Spalte markieren, die nicht leer sind.
Kann mir Jemand helfen?
Vielen Dank im Voraus.
LG Marco
31.07.2014 08:02:24
Thread-ID: 1373282
4 Beiträge
alle gefüllten Zellen einer Spalte ergänzen
stormlamp
Hallo Zusammen,
mit einem Makro möchte ich alle gefüllten Zellen einer Spalte ab (inklusive) Cursorposition am Ende durch irgendeinen String ergänzen, den ich auch im Makro definiere.
Beispiel:
Einer Variablen innerhalb des Makros weise ich den Wert "xyz" zu.
Mein Cursor steht in Ze...
10.08.2014 09:34:58
Thread-ID: 1375454
8 Beiträge
Excel Makro auf alle Zellen einer Spalte wiederhol
Keine

Guten Morgen,
ich hoffe jemand von euch kann mir helfen..
Ich habe mir jetzt ein Makro irgendwie zusammen gebastelt:
Momentan vergleicht er mir immer eine Zelle (A3) aus Tabelle 1, mit der kompletten Spalte A aus Tabelle zwei. Ist der Wert dort vorhanden, kopiert er mir die komplet...
19.01.2015 10:06:13
Thread-ID: 1403592
20 Beiträge
Alle Zeilen mit Eintrag markieren (ab Zeile 10)
Schulle

Hallo Leute,
ich hoffe, ihr könnt mir helfen. Gibt es eine Möglichkeit ab Zeile 10 alle Zeilen zu markieren, bei denen in Spalte 1 ein Eintrag enthalten ist. Währe mir wichtig um diese Zeilen manuell schnell in in ein anderes Tabellenblatt kopieren zu können. Ist nämlich manchmal ganz schön...
25.05.2015 12:23:18
Thread-ID: 1427638
3 Beiträge
VBA Zellen in einer Spalte farblich markieren
Dietz

Hallo zusammen,
ich würde gerne mittels VBA mir gewisse Zellen in verschiedenen Spalten farblich markieren. Geschaut werden soll ab Spalte F bis NV, Zeile 6 ob "Sat" oder "Sun" in der Zelle steht. Wenn ja sollen die Zeilen 8 bis 53 farblich markiert werden (RGB 255/242/209). Ich hab einen ä...
24.09.2015 09:28:05
Thread-ID: 1449093
6 Beiträge
Alle zwei Zeilen grau markieren, VBA makro
karin

Guten Tag,
ich benötige in Makro, dass mir alle zwei Zellen die komplette Zeile grau hinterlegt.
Mit der bedingten Formatierung
=REST(ZEILE();2)=0
hat das super funktioniert. Allerdings ist der Bereich variabel, betroffen sind zwar immer die Spalten A:H, aber die Zeilen sind unt...
11.11.2015 11:19:51
Thread-ID: 1457597
11 Beiträge
VBA - Alle Zellen einer Spalte auslesen
Andy


Hallo,
gerade habe ich mich etwas in VBA und Excel eingearbeitet.
Ich möchte mit einer Schleife alle Zellen einer Spalte auslesen und mit einer anderen Zelle vergleichen. Dabei stoße ich auf das folgende Problem:
Wenn ich eine fixe Zelle angebe, wird mir der korrekte Wert zurüc...
31.08.2016 18:05:40
Thread-ID: 1512252
4 Beiträge
VBA alle gefundenen Zellen markieren
Andreas

Hallo Excelfreunde,
Ich bin hier schon des Öfteren gut geholfen worden.
Ich benötige mal wieder professionelle Hilfe.
folgendes Problem:
In diesem Makro wird in Tabelle 1 ab Zeile 10 nach dem gefundenen Wert in Tabell1!A1 (frei definiert) gesucht. Alle gefundenen Werte werden da...
08.11.2016 08:33:06
Thread-ID: 1523614
6 Beiträge
Alle (nur) Zellen mit Inhalt markieren
Daniel Köchler

Hallo,ich brauche ein Makro, mit dem ich alle Zellen, die einen Inhalt haben, markieren!Daniel
05.11.2002 18:10:01
Thread-ID: 177523
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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