Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Inhalt von Zeilen mit "x" löschen

Inhalt von Zeilen mit "x" löschen
19.02.2015 12:51:36
Zeilen
Hallo,
ich habe eine Spalte A und eine Spalte B.
In Spalte A befinden sich meine Werte (ca. 500000 Zeilen).
Spalte B hat alle 728,729 und 730 Zeilen drei x.
Beispiel:
..................Spalte A....Spalte B
Zeile 725......10,8.....................
Zeile 726......11,4.....................
Zeile 727......456......................
Zeile 728......123..............x......
Zeile 729......754..............x......
Zeile 730......987..............x......
Zeile 731......345......................
Zeile 732......127......................
Nun möchte ich das der Inhalt der Zeilen die ein x haben gelöscht wird und das Ganze dann so aussieht:
..................Spalte A....Spalte B
Zeile 725......10,8.....................
Zeile 726......11,4.....................
Zeile 727......456......................
Zeile 728..................................
Zeile 729..................................
Zeile 730..................................
Zeile 731......345......................
Zeile 732......127......................
Wer kennt eine passende Lösung?
Danke im Voraus

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt von Zeilen mit "x" löschen
19.02.2015 12:57:29
Zeilen
Hallo Karl-Heinz,
möchtest du den Inhalt oder die Zeile löschen?
VG Michael

filtern und Entf drücken owT
19.02.2015 12:58:47
Rudi

AW: Inhalt von Zeilen mit "x" löschen
19.02.2015 13:03:00
Zeilen
Hallo Karl Heinz,
du kannst dasm it folgendem Makro machen:

Sub loescheInhalt()
Dim letztezeile As Long
Dim i As Long
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To letztezeile
If ActiveSheet.Cells(i, 2) = "x" Then
ActiveSheet.Cells(i, 1).Value = ""
ActiveSheet.Cells(i, 2).Value = ""
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß
yummi

Anzeige
AW: Inhalt von Zeilen mit "x" löschen
19.02.2015 13:12:25
Zeilen
Hi
wenn die Spalte B ansonsten leer ist vielleicht auch so
Intersect(Columns(2).SpecialCells(xlcelltypeconstants, 2).EntireRow, ActiveSheet.Usedrange.Columns(1).Resize(, 2).Offset(1, 0)).ClearContents
(das Offset ist für den Fall, dass die erste Zeile die Überschrift ist)
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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