Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FUNC SÄUBERN unter VBA einsetzten

FUNC SÄUBERN unter VBA einsetzten
02.12.2017 16:22:41
Siegfried
Hallo @alle,
wie ist die FUNC SÄUBERN in einem VBA Macro einzusetzen.
Finde dazu leider keine Hinweise, muss aber einige nicht druckbare Zeichen entfernen.
Um mir den doch etwas umständlichen Weg über/Innerhalb die/der Tabelle zu ersparen möchte ich es im Macro einbauen.
MfG Siegfried

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

Betreff
Datum
Anwender
Anzeige
AW: FUNC SÄUBERN unter VBA einsetzten
02.12.2017 16:36:58
Hajo_Zi
Hallo Siegfried,
.UsedRange.Replace What:=":" & Chr(160) & "p", Replacement:=":P", lookat:=xlPart

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: FUNC SÄUBERN unter VBA einsetzten
02.12.2017 17:10:25
Siegfried
Hallo Hajo,
habe ich zu wenige VBA - Kenntnisse um das zu verstehen was du mir da geantwortet hast.
Habe aber inzwischen folgende Lösung gefunden, da ich ja jedes Wort bei WEB-Verwendung auf zu
ändernde Zeichen wie ", &, >, <> prüfen muss, habe ich mir dort
  • Zeichenkette = WorksheetFunction.clean(Zeichenkette)

    • dazu gegeben und damit geht es jetzt die TAB heraus zu bekommen.
    AW: FUNC SÄUBERN unter VBA einsetzten
    02.12.2017 17:20:41
    Sepp
    Hallo Siegfried,
    das mach ich z.B. so.
    ' **********************************************************************
    ' Modul: Modul1  Typ: Allgemeines Modul
    ' **********************************************************************

    Option Explicit

    Sub test()
    Dim strTest As String

    strTest = "test" & Chr(160) & "text"
    Debug.Print strTest
    strTest = CleanTrim(strTest, True)
    Debug.Print strTest
    End Sub


    Function CleanTrim(ByVal S As String, Optional ConvertNonBreakingSpace As Boolean = True) As String
    '©by http://www.excelfox.com/forum/showthread.php/155-Trim-all-Cells-in-a-Worksheet-VBA#post1092
    Dim X As Long, CodesToClean As Variant
    CodesToClean = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, _
      21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 127, 129, 141, 143, 144, 157)
    If ConvertNonBreakingSpace Then S = Replace(S, Chr(160), " ")
    For X = LBound(CodesToClean) To UBound(CodesToClean)
      If InStr(S, Chr(CodesToClean(X))) Then S = Replace(S, Chr(CodesToClean(X)), "")
    Next
    CleanTrim = WorksheetFunction.Trim(S)
    End Function

    Gruß Sepp

    Anzeige
    AW: FUNC SÄUBERN unter VBA einsetzten
    02.12.2017 20:55:14
    Daniel
    Hi
    Du kannst die meisten Excelfunktionen auch direkt in VBA einsetzen mit WorksheetFunction.englischer Funktionsname()
    Wenn du den englischen Funktionsnamen nicht weißt, kannst du die Funktion als Formel in eine Zelle schreiben und dir im Direktfenster mit ?Selection.Formula die englische Formel anzeigen lassen.
    Gruß Daniel

    12 Forumthreads zu ähnlichen Themen

    WorksheetFunction Fehler bei inaktiver Tabelle
    Jürgen

    Hallo Zusammen,
    ich gleiche im Hintergrund Daten bei einer größeren Datei ab.
    Zum Schluss möchte ich in die letzte Zeile die Summe aller Ergebnisse haben.
    Hab das mit
    Tabelle14.Cells(ZeileMax + 1, 4) = WorksheetFunction.Sum(Tabelle14.Range(Cells(2, 4), Cells(ZeileMax, 4))) ge...
    01.07.2011 13:22:45
    Thread-ID: 1220503
    3 Beiträge
    Anzeige
    Nicht druckbare Zeichen
    Dirk

    Hallo,
    ich habe einmal wieder ein Problem. Gibt es wie in Word auch in Excel 2010 eine Möglichkeit nicht druckbare Zeichen einzublenden bzw. auszublenden (umgekehrtes "P").
    Vielen Dank.
    25.03.2013 14:56:27
    Thread-ID: 1305909
    9 Beiträge
    Verknüpfungen auflisten incl. Tabellennamen
    Bernd

    Hallo zusammen,
    wie kann ich in einem Tabellenblatt (nennen wir es z. B. "Doku" einer Exceldatei übersichtlich in Listenform die externen Verknüpfungen darstellen in dieser Form:
    Verknüpfte Datei Verknüpftes Tabellenblatt Dateipfad
    Dubletten sollten nicht angezeigt werden, der Datei...
    02.03.2016 08:47:13
    Thread-ID: 1479167
    6 Beiträge
    Anzeige
    Function funzt im Direktbereich, in Tabelle nicht
    Peter

    Hallo zusammen,
    Folgende Funktion habe ich in meine PERSONL.XLS geschrieben (Public steht natürlich direkt vor Function, irgendwie formatiert's hier merkwürdig):
    Public Function guthaben(Name) Dim eingabe As Worksheet, z%, s% Set eingabe = ActiveWorkbook.Sheets("Eingabe") z = eingabe....
    29.01.2005 19:32:37
    Thread-ID: 557416
    3 Beiträge
    Public Function im Tabellenblatt neu berechnen
    Ron

    Hallo,
    ich habe eine Public Funktion und nmöchte, das wenn ich im Tabellenblatt etwas ändere, die Funktion erneut ausgeführt wird. Autom Neu brechnen ist aktiv.
    Gruß Ron
    09.05.2005 11:40:47
    Thread-ID: 609003
    3 Beiträge
    Function Zugriff auf aufrufendes Tabellenblatt
    Boris

    Hallo,
    ich wollte Application.Caller in einer Function verwenden, um die Zellfarbe aus der die Function aufgerufen wird abhängig vom Rückgabewert der Function zu ändern, etwas so
    Select Case value
    case 1:
    application.caller.interior.colorindex = 4
    Aber anscheinend sperrt Exce...
    01.09.2005 10:40:50
    Thread-ID: 660979
    2 Beiträge
    Sum Function fuer alle Tabellen
    marc

    Hallo zusammen,
    Ich habe 8-Tabellen, alle gleich formatiert.
    In Spalte "C6:C26" werden Namen eingetragen (Text )
    Wie kann ich in allen Tabellen aus den eingetragenen Namen die Summen
    (Anzahl der Namen) bilden. Das Ergebnis muss in allen Tabellen in Celle
    C28 stehen.Ich habe...
    05.10.2005 21:04:53
    Thread-ID: 677378
    5 Beiträge
    Erkennung von nichtdruckbaren Unicodezeichen
    nichtdruckbaren

    Hallo Wissende,
    Unicode hat 65536 mögliche Zeichen. Nicht alle sind vergeben/definiert und auch Excel kann wohl einige davon nicht darstellen. Es erscheint dann ein Quadrat als Platzhalter.
    Wie kann ich nun per Makro ermitteln ob sich in der Zelle ein sichtbares Zeichen oder nur das Pla...
    29.11.2005 13:43:21
    Thread-ID: 702244
    6 Beiträge

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    14
    8
    5
    2
    2
    2
    1
    4
    5
    6
    4