Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen zum millionsten mal

Forumthread: Zeilen löschen zum millionsten mal

Zeilen löschen zum millionsten mal
05.03.2013 22:46:40
Christoph
Hallo zusammen,
also ich weiss das Problem ist schon länger bekannt, jedoch konnte ich leider nichts im Internet finden zu meinem speziellen Problem: Ich habe ein Sheet mit ca 3200 beschriebenen Zeilen. in der Spalte "B" stehen folgende Werte "A12B34/56" , "B33C23/234" und in manchen B-Zellen stehen solchen Werte "A12B2003/12" oder "D33W2300/2323"
Ich möchte nun alle Zeilen mittels macro löschen, bei dem in der B-Spalte eine 2000er - Zahl vor dem Slash vorkommt.
Also alle löschen bei dem in B# folgender Wert steht: [A-Z]##[A-Z]2###/*
habe schon versucht mir ein Macro mit "*2###*" zu bauen, aber er erkennt das #- Zeichen nicht, bzw. ich mache ganz sicher irgend etwas falsch.
würde mich sehr freuen, wenn mir jemand weiterhelfen kann.
Danke
Christoph

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen zum millionsten mal
05.03.2013 23:17:17
CitizenX
Hi,
wo ist das Problem?
Option Explicit
Sub test()
Dim myRange As Range
Dim i&, lngLast&
lngLast = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lngLast
If Cells(i, 2) Like "[A-Z]##[A-Z]2###/*" Then
If myRange Is Nothing Then Set myRange = Cells(i, 2).EntireRow
Set myRange = Union(Cells(i, 2).EntireRow, myRange)
End If
Next
If Not myRange Is Nothing Then myRange.Delete
Set myRange = Nothing
End Sub
Grüße
Steffen

Anzeige
AW: Zeilen löschen zum millionsten mal
06.03.2013 09:19:32
Christoph
vielen Dank für die schnelle Hilfe, Steffen. Werde es heute abend gleich ausprobieren.
Gruss
Christoph
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige