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
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lösche Zeilen ohne bestimmten Inhalt

Lösche Zeilen ohne bestimmten Inhalt
18.04.2009 18:02:56
Fabio
Hallo zusammen,
dank der Forums-Hilfe kann ich nun "mein" Verzeichnis sehr gut auslesen. Nun habe ich relativ lange "Zahlenkolonnen" - die ich gerne etwas "komprimiert hätte"
Folgendes will ich erreichen (per Makro?):
Lösche alle Zeilen in denen in der Spalte B "NICHT" die Buchstabenkombination "KW" vorkommt
Jemand einen Tipp, Trick oder ähnliches wie ich das erreichen kann (außer per manuellem Löschen?)
Lieben Dank!
Fabio
https://www.herber.de/bbs/user/61282.xls
(da sollen alle gelöscht werden ausser den "KW" Zeilen)

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lösche Zeilen ohne bestimmten Inhalt
18.04.2009 18:33:12
Oberschlumpf
Hi Fabio
Setz mal diesen Code ein:

Sub sbNichtKW()
Dim liZeile As Integer
With ActiveSheet
For liZeile = .Cells(.Rows.Count, 2).End(xlUp).Row To 3 Step -1
If InStr(.Range("B" & liZeile).Value, "KW") = 0 Then
.Rows(liZeile).Delete
End If
Next
End With
End Sub


Der Code löscht jede Zeile, in der NICHT "KW" vorkommt. Es bleiben also alle "01. KW" , "02. KW", usw. Zeilen über.
Hilfts?
Ciao
Thorsten

Ergängzungsfrage!
19.04.2009 17:55:48
Fabio
Hallo zusammen,
neben dem eigentlichen Problem will ich ja auch versuchen damit ein wenig VBA zu lernen. Der Code von Thorsten:
Der unten nochmals eingefügte Code von Thorsten - wie würde der aussehen, wenn ich erreichen möchte
"Lösche alle Zeilen, die in der Spalte C (!) den Wert "0" enthalten"
Fabio
Die Frage ist weder eilig noch wichtig - aber vielleicht findet jemand Zeit den Code mal einfach abzuändern. Danke sehr!
" 

Sub sbNichtKW()
Dim liZeile As Integer
With ActiveSheet
For liZeile = .Cells(.Rows.Count, 2).End(xlUp).Row To 3 Step -1
If InStr(.Range("B" & liZeile).Value, "KW") = 0 Then
.Rows(liZeile).Delete
End If
Next
End With
End Sub


Anzeige
AW: Ergängzungsfrage!
19.04.2009 17:58:42
Hajo_Zi
Hallo,
ersetze
If InStr(.Range("B" & liZeile).Value, "KW") = 0 Then
durch
If .Range("C" & liZeile) = 0 Then

AW: Danke sehr
19.04.2009 18:03:48
Fabio
Hallo Hajo,
vielen Dank auch an Dich!
Fabio
enthält nicht .. Lösche Zeilen
18.04.2009 18:36:06
Mike
Hey Fabio,
definier ein AUTOFILTER über die Liste und sag dann
im "benutzerdefiniert" "enthält nicht / KW".
Gruss
Mike
AW: Autofilter - gute Idee
18.04.2009 21:53:54
Gerd
Hallo Fabio!

Sub AF_Del()
Dim Bl As Worksheet, FB As Range, AF As Range, rngDel As Range
Set Bl = ThisWorkbook.Worksheets("Tabelle1")
Set FB = Bl.Cells(3, 2).CurrentRegion
FB.AutoFilter
FB.AutoFilter Field:=1, Criteria1:="*KW*", Operator:=xlAnd
On Error GoTo weiter
Set AF = Bl.AutoFilter.Range.Rows(2).Resize(Bl.AutoFilter.Range.Rows.Count - 1)
Set rngDel = Application.Intersect(AF, Bl.Cells.SpecialCells(xlCellTypeVisible))
weiter:
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
FB.AutoFilter
End Sub


Gruß Gerd

Anzeige
AW: Beide gehen - Danke
19.04.2009 17:48:51
Fabio
Hallo zusammen,
vielen lieben Dank für die Scripte! Es funktionieren beide wunderbar. Welches ich nun nehme ist vermutlich egal - da beide Klasse funktionieren.
Vielen Dank an dieser Stelle nochmals!
Fabio

311 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 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
16
4
5
12
2
3
7
2
2
2
2
4
5
6
1
4
2
5
9
9
2
2
5
4
2