Inhalt Zellen löschen wenn Bedingung erfüllt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub PunkteLoesch() Dim rngBer As Range, rngC As Range, aStr(1 To 10), ii As Integer, rngL As Range Set rngBer = Range("A:B") ' Wirkungsbereich, anpassen aStr(1) = "." For ii = 2 To 10 aStr(ii) = aStr(ii - 1) & "." Next ii For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange) If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then If rngL Is Nothing Then Set rngL = rngC Else Set rngL = Union(rngL, rngC) End If End If Next rngC If Not rngL Is Nothing Then rngL.ClearContents End Sub

Sorry in deiner Beispieldatei, die du hochgeladen hast,. sind es aber NICHT normale Punkte (ASCII-CODE 46), sondern eben eine Mischung aus normalen Punkten und den 3er-Punkten, dh das Zeichen mit dem ASCII-Code 133.
Da ich mittlerweile schon ein wenig länger hier im Forum aktiv bin, hat mich halt die Erfahrung gelehrt, daß im Regelfall die Beispieldatei immer die besser Informationsquelle ist als die Beschreibung des Fragestellers,
Dh. wenn ich mich auf die Beispieldatei konzenriere, gelingt es mir in den meisten Fällen eine für den Fragesteller zufriedenstellendere Antwort zu finden, als wenn ich nur auf die Problembeschreibung achte.
Das liegt IMHO daran, daß sich allein mit Worten nicht alle Einflussfaktoren ausreichend beschreiben lassen, die aber in der Beispieldatei normalerweise sofort ersichtlich sind.
Daher hat für mich die Beispieldatei immer Priorität vor irgendwelchen Anmerkungen des Fragestellers.
Klar, die lese und beachte ich zwar auch, aber wenn die Beschreibung von der Beispeildatei abweicht, dann gilt für mich, was in der Beispieldatei steht.
so ist nun mal, Erfahrung aus mehren Jahren aktivität im Forum.
Gruß, Danile

Sub PunkteLoesch() Dim rngBer As Range, rngC As Range, rngL As Range Dim i As Long, ii As Long Dim aStr(23) Set rngBer = Range("A:B") ' Wirkungsbereich, anpassen For i = 0 To 3 For ii = 0 To 2 aStr((i * 3 + ii) * 2) = WorksheetFunction.Rept("…", i) & WorksheetFunction.Rept(" _ .", ii) aStr((i * 3 + ii) * 2 + 1) = WorksheetFunction.Rept(".", i * 3 + ii) Next ii Next i For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants, _ 2) If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then If rngL Is Nothing Then Set rngL = rngC Else Set rngL = Union(rngL, rngC) End If End If Next rngC If Not rngL Is Nothing Then rngL.ClearContents End Sub

Option Explicit Sub PunkteLoeschN() Dim rngBer As Range, rngC As Range, rngL As Range, aStr(1 To 18) As String Dim ii As Long, jj As Long Set rngBer = Range("A:B") ' Wirkungsbereich, anpassen aStr(1) = "." For ii = 2 To 10 aStr(ii) = aStr(ii - 1) & "." Next ii For ii = 0 To 2 For jj = 0 To 2 aStr(10 + 3 * ii + jj) = String(ii + 1, "") & String(jj, ".") Next jj Next ii For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange) _ .SpecialCells(xlCellTypeConstants, 2) If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then If rngL Is Nothing Then Set rngL = rngC Else Set rngL = Union(rngL, rngC) End If End If Next rngC If Not rngL Is Nothing Then rngL.ClearContents End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C
1		1. Zeichen ist	Anzahl Zeichen
2	...	46	3
3		133	1

verwendete Formeln
Zelle	Formel
B2	=CODE(A2)
C2	=LÄNGE(A2)
B3	=CODE(A3)
C3	=LÄNGE(A3)

Inhalt Zellen löschen wenn Bedingung erfüllt

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

119 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt Zellen löschen wenn Bedingung erfüllt

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

119 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread