characters löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function MaskOn(ByVal Text As String, ByVal ZTyp As String, Optional ByVal ZTmask) As String Dim i As Integer, a As String, d As String, z As String, ZusZ As String Const b = "abcdefghijklmnopqrstuvwxyzäöü", c = "0123456789", e = " +-,.E " 'letztZ=Chr(160) If IsMissing(ZTmask) Then ZTmask = 1 ElseIf IsNumeric(ZTmask) Then ZTmask = ZTmask Mod 2 + 1 Else ZusZ = ZTmask: ZTmask = 1 End If For i = 1 To Len(Text) Select Case lcase(Left(ZTyp, 3)) 'feste ZKomb in ZTyp Case "gkz", "buz", "bz", "bzi", "len", "lin", "a0", "an", "anu" a = c & b & "ß": z = lcase(Mid(Text, i, 1)) Case "gk", "gkb", "bst", "buc", "let", "lit" a = b & "ß": z = lcase(Mid(Text, i, 1)) Case "kb", "mil", "min" a = b & "ß": z = Mid(Text, i, 1) Case "gb", "cal", "cap" a = UCase(b): z = Mid(Text, i, 1) Case "zf", "dg", "zif", "dig", "num", "00", "000" a = c: z = Mid(Text, i, 1) Case "zw", "nv", "zah", "zwt", "nvl", "+0", "0.-" a = c & e: z = Mid(Text, i, 1) Case "mar", "mrk", "mkt", "mtx" z = Mid(Text, i, 1) If z = Left(Right(ZTyp, 2), 1) Then a = z: d = z ElseIf z = Right(ZTyp, 1) Then a = z: d = z ElseIf d = Left(Right(ZTyp, 2), 1) Then a = z Else: a = "" End If Case Else 'freie ZKomb in ZTyp a = ZTyp: z = Mid(Text, i, 1) End Select a = a & ZusZ On Abs(CInt(InStr(a, z) > 0)) + ZTmask GoSub lm, zm, lm Next i MaskOn = WorksheetFunction.Substitute(Trim(MaskOn), " ", " ") Exit Function lm: Rem reduziert maskierte Zeichen (mehrere hintereinander als 1 blank) MaskOn = MaskOn & IIf(Right(MaskOn, 1) = " ", "", " ") Return zm: Rem übernommene Zeichen MaskOn = MaskOn & Mid(Text, i, 1) Return End Function

…Daniel,
denn unter dem verlinkten BT steht ja wohl deutlich, dass es sich hierbei um die Zweitschrift einer sehr alten UDF handelt (die Erstschrift wurde durch Änderungen der Forumssoftware unbrauchbar!). Deren Argumente und ihre möglichen Werte sind auch bedingt selbsterklärend.
Diese UDF ist in ihrer letzten Version in einem AddIn enthalten, zu dem auch eine Hilfe existiert (habe ich von dir noch nicht gesehen!). Außerdem ist mir unklar, warum ein AddIn ein Problem darstellen sollte (außer bei grundsätzlicher VBA-Sperre). Es kann genauso wie ein Standard-Xl-AddIn eingebunden wdn.

MaskOn ( Text; ZTyp; ZTmask=0; ErsZ=blank)
Ergebnis: Listentext, Zeichenfolge oder Zahl
Erzeugt reduzierte Zeichenfolge als Listentext über Maske laut Arg2 mit Einzelblanks als Ersatz-/Trennzeichen
Arg2.1: anu=alf+numerisch alf=Buchstabe kb=Kleinbuchstabe gb=Großbuchstabe num=Ziffer zw=Zahlenwerte
Arg2.2: hex=Hexadezimalzahlen ad=Zelladresse mar=Markierung [=beliebige differente Zeichen ]
Arg2.3: beliebige direkt eingetragene Zeichen/kombination (freie Zeichenkombination hier ggw nicht möglich)
Arg3: 0 [1 ] *nur [ohne ] Zeichen laut Arg2 oder zusätzlich zu belassende Zeichen (implizit 0)
Arg4: fehlt/leer/beliebiges nicht in Arg1 enthaltenes Zeichen
Funktionsargumente:

Arg1 → Text

Zu behandelnder Text(bezug)

Arg2 → ZTyp

Maskentyp (vordefinierte Zeichengruppe) bzw Einzelzeichen oder
Zeichenkombination

Arg3 → ZTmask

Wahr = Zeichen lt Arg2 werden entfernt, sonst alle anderen (implizit, ggf hier zusätzlich zu bewahrende Zeichen angeben)

Arg4 → ErsZ

Als Ersatz für entfernte Zeichen(folgen) zu verwendendes Zeichen, Default: Leerzeichen

Bsp1: a) M =MaskOn("5 Mann";"gb"), b) , % =MaskOn("1,6%";"num";1), c) 2,52 =MaskOn("zu 2,52 Euro";"zw")
Bsp2: a) F0 =MaskOn("F0 byte";"hex"), b) A$1:IV1 =MaskOn("Sum(A$1:IV1)";"ad"), c) Sum =MaskOn("Sum(A:A)";"mar()";1)
Bsp3: a) a b c =MaskOn("(a+b)*c";"( + * )";1), b) a W n =MaskOn("alle Wellen";"el";1), c) lle el =MaskOn("alle Welt";"el")
Hinweis: Im Falle von Arg2="ad" ist in Arg3 nur ein Einzelzeichen, keine Folge einzelner zusätzlich zu bewahrender Zeichen wie in allen anderen Fällen zulässig. Außerdem muss es unmittelbar vor einer erkennbaren Zelladresse in Arg1 auftreten. Falls hier der sogenannte Schnittmengenoperator (Leerzeichen) auftreten kann, sollte(n) ggf (ein) andere(s) Zeichen für Arg4 gewählt werden.
Achtung! Von dieser Version werden keine Z1S1- und Adressen oberhalb von IV65536 (xlVersionen ab 12) erkannt!
Vs 2.9b -Autor: LSr -1Pub:(2.1) 20050217herber.de -CDate: 2004/5 -LUpd:20100206n

Das 4.Argument gibt's in der alten Version natürlich nicht (immer Leerzeichen) und beim 2.Argument ist hier auch noch keine AdressIsolation vorgesehen.
Viel Spaß beim Selbstversuch! :-]
Qapla', Luc :-?

Function ShName(Optional ByVal lfdNr) Dim isVert As Boolean, aZr As Long, lZr As Long, shN() As String On Error Resume Next With ActiveWorkbook If IsArray(lfdNr) Then If IsError(LBound(lfdNr, 2)) Then Else: Let isVert = UBound(lfdNr, 2) = 1 If Not isVert Then lfdNr = WorksheetFunction.Transpose(lfdNr) End If lfdNr = WorksheetFunction.Transpose(lfdNr) End If aZr = LBound(lfdNr): lZr = UBound(lfdNr) - aZr ReDim shN(lZr) For lZr = 0 To lZr shN(lZr) = .Sheets(lfdNr(aZr + lZr)).Name Next lZr If isVert Then ShName = WorksheetFunction.Transpose(shN) Else: ShName = shN End If ElseIf IsMissing(lfdNr) Then ShName = .Sheets(.Sheets.Count).Name Else: ShName = .Sheets(lfdNr).Name End If End With End Function

…nicht die ganze UDF hier zusammenhanglos nochmals gepostet, Daniel,
da sie diese Problematik durchaus demonstriert, obwohl hier noch eine qualifizierte FehlerAusgabe fehlt. Ursprünglich war diese UDF tatsächlich kaum mehr als 3 Zeilen lang, was für das geschilderte Problem ausgereicht hätte.
Ich habe aber etwas gg die PC-Vermüllung mit „Eintagsfliegen“, die schon beim nächsten Mal nicht mehr einsetzbar sind. Du denkst wie ein ProfiPgmmierer, der gerade von so etwas lebt, in Projekten. Damit wäre eine Funktion nur ein PgmmierHilfsmittel und kein UniversalWerkzeug, denn es ginge ja vornehmlich um ein abgeschlossenes Projekt. Solche Fktt wären dann konsequenterweise auch stets Private oder in solchen Modulen untergebracht. Den meisten Nutzern geht's aber durchaus um universellere Werkzeuge, die sie in der Personal.xlsm oder einem AddIn sammeln, um sie bei Bedarf wiederzuverwenden. Wer soll dann in so etwas die Übersicht behalten, wenn von einem Werkzeug x Varianten für spezifische Zwecke erforderlich sind? Wären die XlFktt auch nach diesem Prinzip konstruiert worden, hätte sich Xl wohl kaum gg andere Produkte durchsetzen können.
Außerdem kann auch ein Selbermacher aus meinen Bspp lernen, wie man an so etwas herangehen sollte. Das lernt er bei spezifischen Fktt bestimmt nicht; er müsste allgemeinere Grundlagen erst aus einer Vielzahl von CodeBspp ableiten, denn das einzelne Pgm geht ja nur auf die besondere Situation ein. Und die kann sich auch mal ändern.
Richtig ist, dass es so etwas, komplett in einem AddIn und mit Hilfe*, normalerweise nicht umsonst gibt. Deshalb fehlen hier auch solche Teile (evtl vorangestellte Hinweise sind in Kurzform, weil als Stichworte für eine spätere Hilfe gedacht). Aber, wenn man Forderungen wie die meinen vertritt, muss man auch abundzu zeigen, was man meint. Das tut der Eine oder Andere auch mal; solche Fälle sind aber sehr selten im Netz zu finden. Wer so etwas findet, hat Glück gehabt. Leider erkennt er das nicht immer.
Übrigens habe ich für den Zweck, dem die von dir zitierte UDF gewidmet ist, auch deutlich längere, umfassendere und komfortablere UDFs. Was Fml-Freaks* mit den StandardFktt in Fmln machen, mache ich mit UDF-Pgmm in Kombi mit ihrem Fml-Einsatz. Damit lernt man dann gleich 2 Dinge, wie Xl fktioniert und wie man deshalb eine universelle UDF für FmlEinsatz schreiben muss. Darin habe ich inzwischen schon soviel Übung, dass ich auch mal etwas mit vertretbarem ZeitAufwand neu schreiben kann.
Und weil das so ist, „spiele ich auch in einer anderen Liga“, die in Foren kaum vertreten ist. Nicht mehr und auch nicht weniger ist damit gemeint…! ;-]
* Hierzu ein Zitat von Alison Gopnik im Gespräch mit Stefan Klein: „In einer Serie von Experimenten probierte meine Kollegin Laura Schulz vor den Augen einer Gruppe von Vierjährigen an einem ziemlich komplizierten elektronischen Spielzeug herum. Allein gelassen, fanden die Kinder bald selbst alles heraus, was dieses Ding konnte. Anderen Jungen und Mädchen gleichen Alters zeigte Schulz gezielt ein paar Funktionen des Spielzeugs. Doch als sie ging, wiederholten diese Kinder nur das Wenige, was sie ihnen vorgeführt hatte.“ (zitiert nach Stefan Klein, Wir könnten unsterblich sein, Fischer Tb, 2014, Ss.70-71.)
Genau das, was die 1.Gruppe getan hat, machen auch Formel-Freaks, sie verlassen sich nicht allein auf die Xl-Hilfe; mit vielen meiner UDFs kann genauso experimentiert wdn, denn uU ist dann noch mehr drin, als ich ursprünglich beabsichtigt hatte bzw mit wenigen Tests feststellen konnte. Mit auf ZellBereiche festgelegten Fktt ist man aber allzu schnell am „Ende der Fahnenstange“ angekommen.
Gruß, Luc :-?

With Columns(1) .Replace what:="]", replacement:="[", lookat:=xlPart .TextToColumns Destination:=.Cells(1, 1), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, _ Other:=True, OtherChar:="[", _ FieldInfo:=Array(Array(1, 9), Array(2, 1), Array(3, 9)), _ TrailingMinusNumbers:=True End With

Beliebteste Forumthreads (12 Monate)

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread