Werte bedingt löschen

Guten Morgen Excel Freunde,
mit diesem Macroteil lösche ich alle Werte ( Zahlen, Texte, Daten ( Datum Mehrzahl) außer ein paar Ausnahmen.
For Each C In Range("c2:nk150")
Select Case True
Case C Like "us" Or C Like "fr" Or C Like "zf" Or C Like "ZF"
Case Else: C.Clear
End Select
Next C
Diese Version hat jedoch zwei Nachteile:
Es wird nach groß und klein unterschieden ( Like "us" wird nicht gelöscht aber Like "Us" wird gelöscht). Es soll aber kein Wert gelöscht werden der z.B. mit us beginnt.
Unabhängig ob groß der Kleinschreibung.
Und das zweite Problem ist die Geschwindigkeit. Es dauert ziemlich lange bis alle Zellen abgeklappert sind.
Hat jemand eine bessere Lösung für mich?.
mfg thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim CC AS Range For each c in Range("c2:nk150") Select Case LCase(C.value) Case "us", "fr", "zf" If CC is nothing then Set CC = C Else Set CC = Union(CC, c) End if Case else End select Next If not CC is noting then CC.Clear

Hallo Daniel
bei diesen Vorschlag funktioniert das ignorieren der Groß und Kleinschreibung.
Aber leider wird ein Platzhalter nicht berücksichtigt. Das ich dies benötige hatte ich aber auch dummerweise nicht geschrieben.
Kannst du dies hier noch mit berücksichtigen?
Dim CC AS Range
For each c in Range("c2:nk150")
Select Case LCase(C.value)
Case "us", "fr", "zf"
If CC is nothing then
Set CC = C
Else
Set CC = Union(CC, c)
End if
Case else
End select
Next
If not CC is noting then CC.Clear
bei diesem Vorschlag ( mit Abstand die schnellste Version)
With Range("c2:nk150")
.Replace "us", "", lookat:=xlWhole, MatchCase:=true
.Replace "zf", ""
.Replace "fr", ""
End With
werden "us" "zf" "fr" gelöscht. Diese dürfen aber nicht gelöscht werden.
Hallo volti
ich hatte leider nicht erwähnt das ich diesen Platzhalte * benötige.
Die Sache mit der Großschreibung und Kleinschreibung würde sonst funktionieren. Aber es ist doch ganz schön langsam.
Anbei noch eine kleine Beispieltabelle.
https://www.herber.de/bbs/user/157591.xlsb
Könnt ihr euch dies nochmal anschauen?
mfg thomas

dim C as range dim CC as range for each C in Range("c2:nk150").SpecialCells(xlcelltypeconstants) 'Schleife über Zellen mit inhalt select case Left(LCase(C), 2) Case "us", "fr", "zf" Case else if CC is nothing then set CC = C else set CC = union(CC, C) end if end select next if not CC is nothing then CC.Clear

Private Sub CommandButton2_Click() Dim RNG As Range Set RNG = Range("c2:nk150") Application.ScreenUpdating = False 'Nur auf Zellen mit Text anwenden If WorksheetFunction.CountA(RNG) = 0 Then Exit Sub For Each c In RNG.SpecialCells(xlCellTypeConstants, 2) Select Case True Case LCase(c) Like "us*", LCase(c) Like "fr*", LCase(c) Like "zf*" 'mach nix Case Else c.Clear End Select Next c Application.ScreenUpdating = True End Sub

Code:

Sub Test()
  Application.ScreenUpdating = False
  For Each C In Range("c2:nk150")
      Select Case LCase(C.Value)
      Case "us", "fr", "zf"
      Case Else: C.Clear
      End Select
  Next C
  Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte bedingt löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread