Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1080to1084
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
VBA - Zellen löschen
22.06.2009 16:24:03
gegs2
Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist so etwas möglich?
Danke für Eure Hife
Gerhard

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Zellen löschen
22.06.2009 16:29:59
Hajo_Zi
Hallo Gerhard,
benutze doch Autofilter und kopiere das Ergebnis.

AW: VBA - Zellen löschen
22.06.2009 16:46:19
Helmut
Hallo Gerhard,
etwa so
Option Explicit

Sub test()
Dim i As Long
Dim j As Long
Dim myLastRow As Long
For i = 3 To 32
myLastRow = IIf(IsEmpty(Cells(Rows.Count, i)), Cells(Rows.Count, i).End(xlUp).Row, Rows. _
Count)
For j = myLastRow To 1 Step -1
If Cells(j, i).Value = "c" Then Cells(j, i).Delete
Next j
Next i
End Sub


Grüße
Helmut

AW: VBA - Zellen löschen
22.06.2009 16:50:22
Hajo_Zi
Hallo Helnmut,
eher so
If left(Cells(j, i).Value,1) = "c" Then Cells(j, i).Delete Shift:=xlUp
aber ich vermute ganz so meint Helmut das nicht.
Gruß Hajo
Anzeige
AW: VBA - Zellen löschen
23.06.2009 08:51:59
gegs2
Vielen Dank für die Antworten, aus beiden Codes hab ich mír nun die Lösung gebastelt
Option Explicit

Sub test()
Dim i As Long
Dim j As Long
Dim myLastRow As Long
For i = 2 To 35
myLastRow = IIf(IsEmpty(Cells(Rows.Count, i)), Cells(Rows.Count, i).End(xlUp).Row, Rows. _
Count)
For j = myLastRow To 4 Step -1
If Left(Cells(j, i).Value, 1)  "c" Then Cells(j, i).Delete Shift:=xlUp
Next j
Next i
End Sub


317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige