Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
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
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten finden und löschen

Daten finden und löschen
04.12.2015 18:49:59
Michael

Guten Abend Zusammen,
folgendes Problem kriege ich nicht in den Griff:
In einer großen Datenbankliste (40 Zeilen und 30 Spalten) muss ich bestimmte Datensätze löschen. Wenn in den Spalten K,L und M innerhalb einer Zeile bestimmte Werte enthalten sind, soll dies Zeile gelöscht werden.
Bisher habe ich in den entsprechenden Spalte nach den entsprechenden Kriterien gefiltert und dann die Zeilen gelöscht.
Kann man diesen ganzen Vorgang auch mit VBA automatisieren?
Vielen Dank für Eure Unterstützung
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten finden und löschen
04.12.2015 19:03:17
Sepp
Hallo Michael,
eine Beispieldatei mit Beschreibung, welche Datensätze gelöscht werden sollen, wäre hilfreich.
Gruß Sepp

hier eine Beispieldatei
04.12.2015 19:17:22
Michael
Hallo Sepp,
anbei eine kleine Beispieldatei, welche den Sachverhalt hoffentlich) verdeutlicht:
https://www.herber.de/bbs/user/102020.xlsx
Die Suchkriterien habe ich unterhalb der Datenbankliste plaziert.
Vielen Dank und Gruß
Michael

AW: hier eine Beispieldatei
04.12.2015 19:29:39
Daniel
Hi
das geht per VBA genauso, wie du es von Hand machst.
Filtern und die sichbaren Zeilen löschen.
der Recorder ist dein Freund:
Sub Makro1()
With ActiveSheet.Cells(1, 1).CurrentRegion
.AutoFilter Field:=1, Criteria1:="2015"
.AutoFilter Field:=2, Criteria1:="4"
.AutoFilter Field:=3, Criteria1:="3"
If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
.Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete shift:= _
xlUp
End If
.AutoFilter
End With
End Sub
gruss Daniel

Anzeige
Super, kann der Filter bleiben?
04.12.2015 19:50:22
Michael
Hallo Daniel,
funktioniert echt klasse. Vielen Dank.
Ist es möglich, am Ende des Makros den Filter stehen zu lassen?
Viele Grüße
Michael

AW: Super, kann der Filter bleiben?
04.12.2015 20:21:12
Daniel
ja, einfach den letzen Befehl: .Autofilter weglassen
Gruss Daniel

301 Forumthreads zu ähnlichen Themen

Verknüpfungen finden und löschen?
Frank

Hallo zusammen,
besteht eine Möglichkeit sämtliche Verknüpfungen in einer Datei erst einmal zu FINDEN und sie (möglichst auf einmal) zu löschen?
Gruß
Frank
20.08.2009 07:58:04
Thread-ID: 1097256
3 Beiträge
Anzeige
zeichen finden und löschen
patrick

hi,
ich bräuchte wieder mal die geschätzte hilfe dieses forums.
ich hab ein rießen excelfile in dem telefonnummern drinstehen. (spalte D)
und bräuchte eine möglichkeit um dort invalide datensätze rauszulöschen.
ich will dort wirklich nur die reinen zahlen drin stehen haben. oh...
30.09.2009 14:25:13
Thread-ID: 1106441
4 Beiträge
Zeichen löschen und Spalte finden
Tobson

Hallo
Habe zwei Probleme...
1. In einer Spalte sollen alle Anführungszeichen gelöscht werden. Bei Verwendung der Replace-Funktion, wird das Anfühungszeichen nicht gelöscht. Vermutlich weil die zu löschenden Zeichen in der Funktion in Anführungszeichen zu schreiben sind... . Gibt da eine...
18.10.2010 12:21:42
Thread-ID: 1182880
4 Beiträge
Anzeige
Externe Verknüpfungen löschen
Franz

Hallo Freunde,
habe dies gefunden: Public Sub ListExternalLinks1() Dim avarLinks As Variant Dim intCounter As Integer Dim wksSheet As Worksheet avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(avarLinks) Then Set wksSheet = ActiveWorkbook.Worksheets.Add With wksSheet .Ran...
13.11.2010 20:48:57
Thread-ID: 1186673
5 Beiträge
Verknüpfungen lassen sich nicht löschen
Heinz

Hallo Liebe Excellenten,
ich hatte das Thema schon mal offen, aber dann den Kontakt
zu "Rudi" verloren, der mir zuletzt geraten hatte, eine Datei hochzuladen.
https://www.herber.de/bbs/user/73679.xlsx
In der Datei sind 2 Verknüpfungen, wobei die
Verknüpfung Proab..usw ok u...
22.02.2011 16:04:22
Thread-ID: 1202376
2 Beiträge
AddIn Symbolleiste - AddIn löschen geht nicht
Claudia

Hallo alle zusammen,
ich verzweifel seit einigen Stunden und hoffe Ihr könnt mir helfen.
Ich hatte mal ein AddIn welches aber gelöscht wurde. In der Symbolleiste unter AddIn wird aber dieses AddIn weiter angezeigt und ich kann es beim besten Willen nicht löschen.
Unter Datei -- Opit...
26.05.2011 01:57:43
Thread-ID: 1216039
5 Beiträge
Bestimmten Wert in Spalte finden und löschen/abzie
Vale0711

Hallo liebe Leute hier im Forum. Ich hoffe ihr könnt mir helfen :), meine VBA Kenntnisse halten sich in Grenzen.
Zwei Probleme habe ich noch mit meinen Makros.
Was mir noch fehlt ist, ich möchte dass das Makro (siehe Code unten) dasselbe was es im Blatt Objekt macht auch im Blatt Fläch...
26.06.2011 13:42:02
Thread-ID: 1219751
6 Beiträge
Makro - Doppelte Zeilen finden und löschen
Chris

Liebe Forumsmitglieder,
ich schreibe zur Zeit an meiner Masterarbeit und würde mich über einen guten Tipp zu meinem Excel Makro freuen. Ich arbeite noch nicht so lange mit Makros, brauche jedoch Makros um meine große Datenbank zu gestalten. Über Hilfe würde ich mich sehr freuen.
Damit k...
22.03.2012 05:02:22
Thread-ID: 1256049
7 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
2
2
3
3
3
4
1
4
5
6
4
5
12
2
5
11
7
5
1
1
1
1
5
14
3