Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1408to1412
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
Inhaltsverzeichnis

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

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige