Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1320to1324
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
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur bestimmte Datensätze stehen lassen

nur bestimmte Datensätze stehen lassen
06.07.2013 10:42:35
Pascal
Guten Tag
In einer riesigen Datentabelle (über 117'000 Datensätze) möchte ich jeweils die Spalte G prüfen, ob dort drin im Text der Text "Druckauftrag" enthalten ist.
wenn ja, dann wird dieser Datensatz stehen gelassen. Wenn nein, so soll die komplette Zeile aus Excel rausgelöscht werden.
geht das irgendwie?
Ich dachte da an etwas wie ... if instr(.....) Then .....
aber leider schaffte ich das bisher nicht :-(
Wäre super, wenn mir da jemand behilflich sein könnte.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur bestimmte Datensätze stehen lassen
06.07.2013 10:44:00
Hajo_Zi
benutze Autofilter "Druckauftrag", markieren, sichtbare löschen

AW: nur bestimmte Datensätze stehen lassen
06.07.2013 11:28:52
Pascal
Hallo
das wollte ich eigentlich tun. aber geht das nicht über VBA ?

AW: nur bestimmte Datensätze stehen lassen
06.07.2013 11:29:57
Hajo_Zi
man kann die Aktionen auch mit dem Makrorecorder aufzeichnen.
Gruß Hajo

AW: nur bestimmte Datensätze stehen lassen
06.07.2013 17:10:47
fcs
Hallo Pascal,
hier ein entsprecendes Makro.
Gruß
Franz 
Sub Druckauftrag_loeschen()
If MsgBox("Zeilen mit ""Druckauftrag"" in Spalte G löschen?", vbQuestion + vbOKCancel, _
"Zeilen löschen") = vbCancel Then Exit Sub
Dim Zeile As Long
On Error GoTo Fehler
With ActiveSheet
Zeile = .Cells(.Rows.Count, 7).End(xlUp).Row
.UsedRange.AutoFilter Field:=7, Criteria1:="=*Druckauftrag*"
With .Range(.Cells(2, 7), .Cells(Zeile, 7))
.ClearContents
ActiveSheet.ShowAllData
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
.AutoFilterMode = False
Exit Sub
Fehler:
MsgBox "Fehler-Nr. " & Err.Number & vbLf & Err.Description
If .AutoFilterMode = True Then .AutoFilterMode = False
End With
End Sub

Anzeige
AW: nur bestimmte Datensätze stehen lassen
06.07.2013 15:03:49
Gerd
Hallo Pascal! 
Sub test()
With ActiveSheet.Range("G:G")
.AutoFilter field:=1, Criteria1:="" & "*Druckauftrag*"
On Error Resume Next
With .Parent.AutoFilter.Range
Intersect(.EntireColumn.SpecialCells(xlCellTypeVisible), .Rows(2).Resize(.Rows.Count -  _
1)).EntireRow.Delete
On Error GoTo 0
End With
.AutoFilter
End With
End Sub

Gruß Gerd

In der Kürze liegt die Würze
07.07.2013 07:33:11
Martin 

Sub Test()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1
If InStr(Cells(i, 7), "Druckauftrag") = 0 Then Cells(i, 7).EntireRow.Delete
Next
End Sub

Anzeige
...Mist, da hat noch was gefehlt ;-)
07.07.2013 07:36:15
Martin 

Sub Test()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If InStr(Cells(i, 7), "Druckauftrag") = 0 Then Cells(i, 7).EntireRow.Delete
Next
End Sub

AW: In der Kürze liegt die Würze
07.07.2013 13:02:16
ransi
Hallo Martin
...In der Kürze liegt die Würze
Da hast du dich aber auf die Länge des Codes bezogen und nicht auf die Laufzeit ?
;-)
ransi

...das stimmt wohl, aber....
07.07.2013 23:54:31
Martin
...vielleicht kann mit der Abschaltung der Bildschirmaktualisierung und Automatischen Berechnung der Laufzeit-Nachteil aufgeholt werden?!?! -aber dann wir der Code auch wieder länger ;-)
VG Martin

Anzeige
AW: ...das stimmt wohl, aber....
08.07.2013 06:52:03
Pascal
Schönen guten Morgen liebe VBA-Gemeinde
Bitte entschuldigt, dass ich Euch erst soo spät antworte und für Eure tolle Unterstützung danken möchte.
(war übers Wochen-Ende nicht mehr online)
Nun sehe ich aber, dass mir hier einmal mehr super geholfen wird. Ich werde nun die Lösungsvorschläge alle austesten und ausprobieren.
Ergebnisse werde ich dann hier selbstverständlich posten.
Vielen Dank!

306 Forumthreads zu ähnlichen Themen

Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Nur Zahlen in Zelle zulassen
Richard


Hallo an alle,
vielleicht kann mir jemand weiterhelfen.
In einem früheren Beispiel habe ich mal folgenden Code auf eine Textbox angewendet. Ich wollte damit erreichen, dass nur Zahlen, das "X", das "M" und das "L" für die Eingabe zugelassen sind. Dabei spielte es keine Rolle, ob...
29.01.2009 14:10:41
Thread-ID: 1045007
2 Beiträge
Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Währungszeichen aus Zelle holen
joerg

Hallo,
ich hab hier eine Liste mit Abrechnungen, in dieser Liste kommt gelegentlich eine Fremdwährung vor, also CHF, GBP, SEK, DKK, ...
Ich würde nun gern oben in der Liste ein Feld machen, in dem man dieses Währungskennzeichen eingeben kann, dann sollen die Werte in der Spalte, in die...
29.07.2009 09:54:29
Thread-ID: 1092130
10 Beiträge
VBA - nur zahlen zulassen
steffen

Hallo in die Runde,
ich möchte per VBA prüfen lassen, ob in den Zellen ausschließliche zahlen drin sind.
Bsp:
012876
0049987272727
9876236262
Sobald aber ein Buchstabe oder Sonderzeichen drin ist, muss das erkannt werden (einfärben).
Ich habe es so versucht, doch das...
13.08.2009 08:57:13
Thread-ID: 1095486
10 Beiträge
Anzeige

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