Inhalt von Zeilen mit "x" löschen

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

19.02.2015 13: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

19.02.2015 13:57:29

Zeilen
filtern und Entf drücken owT

19.02.2015 13:58:47

Rudi
AW: Inhalt von Zeilen mit "x" löschen

19.02.2015 14:03:00

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

19.02.2015 14:12:25

Zeilen

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

19.02.2015 13: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 13:58:47

Rudi

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

19.02.2015 14: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

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

19.02.2015 14: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

Inhalt von Zeilen mit "x" löschen

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

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread