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

Zeilen mit bestimmtem enthaltenen Wert löschen

Zeilen mit bestimmtem enthaltenen Wert löschen
02.12.2004 06:30:56
Josef
Guten Morgen!
Ich habe in Spalte A eine Menge Datensätze stehen.
z.B.340296123699040900007213330400231D1501 808 809 90837
In vielen Datensätzen steht vom Zeichen 17 bis 21 der Wert 00007.
Ich möchte nun mittels VBA alle Zeilen in denen der Wert 00007 an der Stelle 17 bis 21 steht, löschen.
Gäbe es hier bitte eine VBA lösung dafür?
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
WernerB.
Hallo Josef,
kannst Du damit etwas anfangen?

Sub Josef()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If InStr(Cells(i, 1).Text, "00007") = 17 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
02.12.2004 07:51:19
Josef
Hallo Werner!
Wie immer danke für Deine Hilfe.Klappt bestens.
Wo müßte ich bitte noch die 1 auf 2 ändern damit der Ablauf in Spalte B durchgeführt wird?
Danke
Josef
Anzeige
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
02.12.2004 08:01:04
Josef
Hallo Werner!
Ich bin jetzt nach dem Testen daraufgekommen, dass nicht alle Zeilen gelöscht werden,welche den wert enthalten.Einige bleiben immer über.
Josef
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
02.12.2004 08:19:44
Josef
Hallo Werner!
Hier wäre mein konkreter Anlassfall:
Gesucht sollte werden in SpalteB
Wenn ab dem 22 bis 23 Zeichen die Zahl 21 enthalten ist, dann sollten alle diese Zeilen gelöscht werden.
Ich habe den Test in der Spalte A durchgeführt und leider wurden nicht alle Zeilen in denen ab dem 22.Zeichen 21 vorkommt, gelöscht.

Sub Josef()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If InStr(Cells(i, 1).Text, "21") = 22 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Josef
Anzeige
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
WernerB.
Hallo Josef,
bei mir läuft das in der Spalte "B":

Sub JosefB()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 1 Step -1
If InStr(Cells(i, 2).Text, "21") = 22 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß
WernerB.
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
02.12.2004 09:16:19
Josef
Hallo Werner!
Ich habe jetzt eine Musterdatei hochgeladen. Wenn du hier den Test mit dem Suchbegriff 06 durchführst, so bleiben eine Menge 06 über. Stelle 22-23.
Das Makro habe ich schon auf 06 eingestellt.Suche in SpalteB
https://www.herber.de/bbs/user/14223.xls
Leider ist nicht der ganze Text darauf, weil nur 300 KB hochgeladen werden können. Ich glaube aber für diesen Zweck würde es reichen.
Josef
Anzeige
AW: Zeilen mit bestimmtem enthaltenen Wert löschen
WernerB.
Hallo Josef,
der Fehler im Makro liegt darin, dass die Kombination "06" in den übriggebliebenen Zeilen auch schon vor der Position 22 im Text steht und die InStr-Funktion diese Position früher findet. Da diese Postion nicht mit 22 übereinstimmt, wird die Zeile auch nicht gelöscht.
Mit diesem geänderten Makro sollte es jetzt aber hinhauen; die darin verwendete Mid-Funktion stimmt mit der Excel-Tabellenblatt-Funktion "=TEIL()" überein:

Sub JosefB()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 1 Step -1
If Mid(Cells(i, 2).Text, 22, 2) = "06" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß
WernerB.
Anzeige

304 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 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
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
8
5
4
2
4
4
2
5
20
7
3
10
3
1
4
6
6
12
11
2
3
6
4
5
4