Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle suchen und ganze Zeile Markieren

Zelle suchen und ganze Zeile Markieren
27.01.2004 16:28:00
nighman
Kann mir jemand Helfen ?
Kenne mich nur einwenig im Excel / Makro's aus.
Ich möchte gerne in einer Tabelle nach einem Bestimmten Wert suchen.
z.b. wert5
Wenn dieser Wert gefunden wird, so sollte die ganze Zeile markiert werden und gelöscht werden. Dies sollte solange wiederholt werden, bis dieser Wert in der Tabelle nicht mehr existiert.
Ist das mit einem Makro machbar.
Für eure Hilfe jetzt schon Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle suchen und ganze Zeile Markieren
27.01.2004 16:51:24
Fabian
Hallo,
also ich glaube um ein Makro kommst Du da nicht herum. Vielleicht hilft Dir das hier weiter:

Sub Zeile_loeschen()
dim i,j as integer
'Jede Zeile durchlaufen
for i = 1 to 65536
'Jede Spalte durchlaufen
for j = 1 to 256
if cells(i,j)= wert5 then
'Zeile markieren
Rows(i & ":" & i).Select
'Zeile löschen
Selection.Delete Shift:=xlUp
'Schleife für diese Zeile abbrechen
exit for
endif
next j
next i
End Sub


Kriegst Du dieses Makro in Deinem Projekt plaziert? Ach ja, es wird lange dauern bis es komplett durchgelaufen ist. Andere Lösungen sind meiner Meinung nach für den Anfang zu komplex... hier steigst Du vielleicht selber noch durch.
Viel Erfolg
Fabian
Anzeige
AW: Zelle suchen und ganze Zeile Markieren
27.01.2004 23:40:05
nightman
Danke Fabian,
ja bei diesem Makro schaue ich noch durch.
Ich muss ja nich alles durchsuchen lassen.
Mir genüg es, wenn folgende Zelle/Spalten durchsuch werden.
for i = 1 to 650
'Jede Spalte durchlaufen
for j = 1 to 20
Aber wie soll ich nach einmen Zelleninhalt suchen.
Z.b- in der Zell steht BC 3034. Ich müsste allso nach "BC 3034" suchen.
Was muss ich änder, das dies so funktioniert.
Vorerst schon einmal
Danke
AW: Zelle suchen und ganze Zeile Markieren
29.01.2004 09:59:58
Fabian
Du musst einfach hier den Vergleich ändern.
von:
if cells(i,j)= wert5 then
in:
if cells(i,j)= "BC 3034" then
oder aber, du weist den gesuchten wert vorher einer String-Variable zu und vergleichst dann damit:
dim Suchbegriff as string
Suchbegriff = "BC 3034"
if cells(i,j)= Suchbegriff then

... alles klar?
Viele Grüsse
Fabian
Anzeige
AW: Zelle suchen und ganze Zeile Markieren
29.01.2004 12:04:55
nighman
Danke Fabian.
Habe mich ein bisschen schlauer gemacht. Dank an das Internet.
Jetz habe ich folgendes Makro erstellt.

Sub test()
Dim Ziel As Range
Dim Wert As String
Wert = "BC 0122"
Set Ziel = Sheets("test").Columns(2).Find(Wert, LookAt:=xlPart)
Range(Range(Ziel.Address).Offset(0, -1), Range(Ziel.Address).Offset(0, 5)).Cut
Sheets("Tabelle2").Select
Range("B1").Select
ActiveSheet.Paste
End Sub

Ich Suche in der Tabele "test" in der Spalte 2 nach dem Wert "BC 0122"
Wird dieser gefunden, so wird eine Zelle nach link und 5 Zellen nach rechts ausgeschnitten und in der Tabelle "Tabelle2" "B1" eingefügt.
Wenn dieser Wert nich gefunden wurde, erhalte ich eine Fehlermeldung:
"Obiektvariable oder With-Blockvariable nicht fetgelegt"
Wie kann ich diese Fhlermeldung vermeiden`?
Ich möchte auch, da jede Zeile die ausgeschnittten und eingefügt wird in einer eingenen Zeile in der Tabelle2 eingefügt wird.
Ist es auch möglich das ich dies gleich mit 3 verschiedene Werten machen kann.
Hoffentlich verlange ich nicht zuviel.
Oder soll ich für diese Frage eine neue Anfrager erstellen ?
Auf jeden fall Danke
Anzeige

35 Forumthreads zu ähnlichen Themen

wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
VBA Text suchen > Zeile durch Zelle markieren
Steffen

Hi Zusammen,
ich habe ein Tabellenblatt in dem in den Spalten A bis X jede einzelne Zelle nach einem bestimmten Begriff
durchsucht werden soll. Wenn der Begriff (Text) in einer Zeile vorhanden ist soll in Spalte Y in der entsprechenden Zeile ein "x" gesetzt werden.
Soweit bin ich...
24.09.2009 15:26:22
Thread-ID: 1105312
3 Beiträge
VBA Aktive Zeile markieren
Dirk

Hallo Forum,
wie kann ich in VBA eine aktuelle Zeile selektieren?
Ich habe eine Schleife, in der ich in einer Spalte Zellen mit Inhalt 0 suche - wenn ich eine Zelle gefunden habe, dann soll die entsprechende Zeile markiert werden damit ich sie dann löschen kann.
Vielen Dank!
Gru...
08.10.2010 10:52:07
Thread-ID: 1181416
10 Beiträge
Anzeige
VBA ganzes Tabellenblatt markieren außer Zeile 1
rieckmann

Hallo,
kann mir jemand den Code nennen wie man das komplette Tabellenblatt ohne Zeile 1 (Überschrift) markiert ?
Gruß
Fred
12.01.2014 09:43:36
Thread-ID: 1344910
3 Beiträge
per Doppelklick ganze Zeile markieren
Franz

Hallo Fachleute,
ich steh glaub ich grad auf der Leitung und komm nicht drauf. Oder ist es doch knifflig? Ich möchte auf Doppelklick in irgendeine Zelle der Spalte A die gesamte Zeile markieren/selektieren. Ich bitte um Eure Hilfe.
Danke schonmal und grüße
Franz
28.05.2014 19:24:03
Thread-ID: 1363870
3 Beiträge
Wenn...dann..."ganze Zeile kursiv markieren"
Lisa

Hallo liebe Leute,
Möchte eine Überprüfung machen und bin auf der Suche nach dem VBA Makro dafür:
"Wenn in Zelle K2 ein Datum steht, dann markiere A2:Q2 in Calibri 11 kursiv".
Viele Grüße
Lisa
30.06.2014 15:41:19
Thread-ID: 1368211
11 Beiträge
Kopfzeile auf ganzer Breite unterstreichen mit VBA
Jens König

Hallo,gibt es eine Möglichkeit, eine Kopfzeile über die gesamte Seitenbreite durchgehend zu unterstreichen, auch wenn evtl. kein Text vorhanden ist?Beispiel:
gegebene Kopfzeile:
LeftHeader="bla"
CenterHeader=""
RightHeader="Seite &P"Diese Kopfzeile soll nun durchgehend vom linken bi...
24.07.2002 15:50:52
Thread-ID: 140035
8 Beiträge
VBA: Leere Zelle finden und ganze Zeilen einfügen
Juliane

Hallo,
ich möchte gern 7 Zeile an einer anderen Stelle einfügen. Diese andere Stelle befindet sich am Ende der Liste (gleicher Reiter), dort wo Spalte A das erste mal leer ist.
So weit ich weiß, ist das mehr oder weniger "Standard" in VBA. Trotzdem komme ich mit meiner Recherche im Inte...
10.06.2016 14:24:10
Thread-ID: 1498232
5 Beiträge

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
10
4
2
9
4
2
2
10
7
4
7
2
7
4
6
2
9
24
2
3
2
2
2
1
1