Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Value in spalte suchen& dann gesamte zeile löschen

Value in spalte suchen& dann gesamte zeile löschen
19.12.2005 09:23:20
niko
Hallo
Könnt ihr mir helfen ich kriege schon wieder was nicht hin.
Ich will mit VBA ein bestimmte Spalte(I) durchsuchen. Dazu stelle ich mit einer funktion fest wie viele einträge diese spalte enthält ( Anzahl = Sheets("YYY").Range("I65536").End(xlUp).Row )
danach will ich die spalte nach einer ComboboxValue durchsuchen.
Wenn dieses Value gefunden wurde soll die gesamte zeile gelöscht werden und bis zum ende der spalte(I)(bis zur Variablen Anzahl) weitergesucht werden und wenn der wert wieder gefunden wurde soll wieder die gesamte zeile geloscht werden.
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Value in spalte suchen& dann gesamte zeile löschen
19.12.2005 10:08:12
u_
Hallo,
mal als Ansatz:

Sub loeschen()
Dim strFind As String
Dim rngfind As Range
strFind = "testwert"
Do
Set rngfind = Sheets(1).Columns(9).Find(strFind)
If Not rngfind Is Nothing Then rngfind.EntireRow.Delete
Loop Until rngfind Is Nothing
End Sub

Gruß
Geist ist geil!
AW: Value in spalte suchen& dann gesamte zeile löschen
19.12.2005 12:24:42
niko
danke das geht jetzt so wie ich es wollte:-)
will aber noch ein bisschen mehr.
in der spalte daneben (8) habe ich noch ein datum zu stehen. ich will die zeile nur löschen wenn das datum in der spalte (8) vor dem eingegebenen datum liegt.
also wenn in der spalte (9) der wert "002" steht soll die gesamte zeile gelöscht werden aber nur wenn das datum in der geichen zeile und in der Spalte (8) vor dem eingegebenen datum ist.
Anzeige
AW: Value in spalte suchen& dann gesamte zeile lös
21.12.2005 02:57:20
Reinhard
Hi niko,
ungetstet als Ansatz: 

Option Explicit
Sub tt()
Dim n As Long, strSuch As String, datDatum As Date
strSuch = "testwert"
With Sheets("YYY")
For n = .Range("I65536").End(xlUp).Row To 1 Step -1
If .Cells(n, 9) = strSuch Then
If CDate(.Cells(n, 8)) > CDate(datDatum) Then .Cells(n, 9).EntireRow.Delete
End If
Next n
End With
End Sub
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
AW: Value in spalte suchen& dann gesamte zeile lös
21.12.2005 03:06:21
PeterW
Hallo Reinhard,
nur aus Interesse eine Frage: warum der Umweg über eine Zelle
Cells(n, 9).EntireRow.Delete
wenn sich das auch per
Rows(n).Delete
lösen ließe?
Gruß
Peter
Anzeige
O.T Value in spalte suchen& dann gesamte zeile lös
21.12.2005 04:00:24
Reinhard
Moin Peter,
ohne Hintergrund, ich habe das schnell runtergeschrieben ohne viel zu denken :-)
Gruß
Reinhard
AW: Value in spalte suchen& dann gesamte zeile lös
21.12.2005 11:00:28
niko
danke hab das in der zwischen zeit mit andere hilfe so gelöst
Public 

Sub test()
Dim strAddress As String
Dim objCell As Range, objRange As Range
With Worksheets(sitepat)
Set objCell = .Columns(9).Find(patnummer)
If Not objCell Is Nothing Then
strAddress = objCell.Address
Do
If .Cells(objCell.Row, 4).Value > CDate(datumex) Then
If objRange Is Nothing Then
Set objRange = .Rows(objCell.Row)
Else
Set objRange = Union(objRange, .Rows(objCell.Row))
End If
End If
Set objCell = .Columns(9).FindNext(objCell)
Loop While Not objCell Is Nothing And objCell.Address <> strAddress
If Not objRange Is Nothing Then objRange.Delete
Else
MsgBox "Nix gefunden"
End If
End With
End Sub

danke
Anzeige

300 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

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