Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA -Kriterium in Tabelle suchen und Zeile löschen

VBA -Kriterium in Tabelle suchen und Zeile löschen
21.05.2015 14:43:50
Michael
Hallo zusammen,
ich möchte in einer Tabelle mittels VBA innerhalb einer Spalte nach einem Wert suchen(Spaltenüberschrift lautet Name) und dieses mitsamt der ganzen Zeile löschen (gesuchter Wert Schmitz).
Am Beispiel erklärt:
Das Makro soll in der gesamten Tabelle innerhalb der Spalte "Name" nach dem Wert "Schmitz" suchen. Kommt dieser in einer Zeile vor so soll dann die komplette Zeile gelöscht werden.
Kann mir jemand hierzu einige Tipps geben?
Danke im voraus!
Gruß
Michael

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

Betreff
Datum
Anwender
Anzeige
VBA -Kriterium in Tabelle suchen und Zeile löschen
21.05.2015 15:19:53
Nepumuk
Hallo,
soll das Makro selber nach der Spalte suchen oder ist die fest? Was wenn z.B. Schmitz-Maier in einer Zelle steht soll es dann trotzdem den Eintrag als gefunden ansehen? Was wenn es 2 oder 3 Schmitz gibt?
Gruß
Nepumuk

AW: VBA -Kriterium in Tabelle suchen und Zeile löschen
21.05.2015 15:31:36
Michael
Hallo Nepumuk,
die Spalte ist fest. Das Makro soll die komplette Zeile löschen wenn Schmitz vorkommt, und auch nur wenn das Kriterium in dieser Spalte und genau mit Schmitz vorkommt. Es gibt mehrere Schmitz. Das Makro soll alle davon mitsamt der kompletten Zeile löschen.
Danke und Gruß
Michael

VBA -Kriterium in Tabelle suchen und Zeile löschen
21.05.2015 15:38:36
Nepumuk
Hallo,
teste mal:
Public Sub Loeschen()
        Dim strReturn As String
        Dim objCell As Range
        Do
            strReturn = InputBox("Bitte den zu löschenden Namen eingeben.", "Eingabe")
            If StrPtr(strReturn) = 0 Then Exit Do
            With Columns("H") 'Spalte anpassen !!!!
                Do
                    Set objCell = .Find(What:=strReturn, LookIn:=xlValues, _
                        LookAt:=xlWhole, MatchCase:=True)
                    If Not objCell Is Nothing Then
                        objCell.EntireRow.Delete
                    Else
                        Exit Do
                    End If
                Loop
            End If
        End With
    Loop
End Sub

Gruß
Nepumuk

Anzeige
Da ist noch ein Fehler drin
21.05.2015 15:40:35
Nepumuk
So passts:
Public Sub Loeschen()
    Dim strReturn As String
    Dim objCell As Range
    Do
        strReturn = InputBox("Bitte den zu löschenden Namen eingeben.", "Eingabe")
        If StrPtr(strReturn) = 0 Then Exit Do
        With Columns("H") 'Spalte anpassen !!!!
            Do
                Set objCell = .Find(What:=strReturn, LookIn:=xlValues, _
                    LookAt:=xlWhole, MatchCase:=True)
                If Not objCell Is Nothing Then
                    objCell.EntireRow.Delete
                Else
                    Exit Do
                End If
            Loop
        End With
    Loop
End Sub

Anzeige
AW: Da ist noch ein Fehler drin
21.05.2015 16:05:24
Michael
Danke Nepumuk,
das klappt sehr gut jedoch nun folgendes Problem. Zwar ist die InputBox ne super Sache, jedoch in diesem Fall nicht nötig. Das Kriterium bleibt stets das gleiche oder kann ich dann dementsprechend im Code anpassen.
Ich würde zB auch gerne die einzelnen Sheets klar definieren damit das Makro entsprechend nacheinander die Löschvorgänge durchführt und die Prozedur unterscheidet sich je nach Sheet.
Ein Beispiel:
Angenommen 3 Sheets
im ersten kann der Wert sowohl in Spalte E aber auch in F vorkommen. In diesem Fall soll die komplette Zeile gelöscht werden.
im zweiten sheet kann der Werte auch in der Spalte E und F vorkommen. Die Zeile soll aber nur dann komplett gelöscht werden wenn der Wert in F vorkommt.
im dritten Sheet etwas komplzierter. Kommt der Wert in spalte E vor soll sie komplett gelöscht werden. Spalte F wiederum soll "Schmitz" enthalten, tut sie das nicht soll sie komplett gelöscht werden.
Kannst du ansatzweise verstehen um was es mir geht?
Gruß und schonmal Danke für deinen Code. An dem werde ich auf jeden Fall weiter arbeiten.
Michael

Anzeige
Null Bock auf Salamitaktik o.T.
21.05.2015 17:22:23
Nepumuk

365 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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