Leerzeichen zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
Lieber Hajo
welches Makro? Tja, das in der Muster-Datei keines vorhanden ist, das wusste ich auch, ich hab ja auch in der Original-Datei das mit dem Makro ausprobiert. Soviel zum Thema Marko nicht vorhanden
Wenn ich Dich richtig verstanden habe, löst Du die Aufgabe mit einer Formel - Sollte ich dich richtig interpretiert haben, dann sag ich dir ganz ehrlich "hab ich nicht verstanden"
Warum hab ich das nicht verstanden, weil das Ziel die Formatierung ist und nicht die Leerzeichen zählen. Und Formatierung können nicht kopiert werden.
Die Lösung nach der ich hier suche wird das Binde-Glied zwischen zwei schon vorhanden Makros, die ich dann zusammen setzen werde. Also letzendlich werden 3 Makros von mir zu Einem Makro zusammen gefügt.
Mit freundlichen Grüßen
Jürgen

Hallo Jürgen,
hier ein Beispiel, wie man das umsetzen kann.
Da einfacher umzusetzen solltest du das Makro einer Tastenkombination Strg+Buchstabe zuordnen, z.B. Strg+q.
Eine Funktionstaste in der Funktion zu ändern erfordert zusätzlichen Aktivierungs- und Deaktivierungscode.
Gruß
Franz
Sub Format_Name_Titel() 'Ausführung mit Strg+q 'Formatierung für jede Zelle im selektierten Zellbereich Dim Zelle As Range For Each Zelle In Selection.Cells Call prcFormat_Spezial01(Zelle) Next End Sub Sub prcFormat_Spezial01(ByVal Zelle As Range) Dim arrSpace() As Integer Dim intCount As Integer, intPos As Integer Dim PosComma1 As Integer, PosKlammer1 As Integer PosComma1 = InStr(1, Zelle.Text, ",") PosKlammer1 = InStr(1, Zelle.Text, "(") intCount = 0 For intPos = PosComma1 To Len(Zelle.Text) If Mid(Zelle.Text, intPos, 1) = " " Then intCount = intCount + 1 ReDim Preserve arrSpace(1 To intCount) arrSpace(intCount) = intPos End If Next intPos Select Case intCount Case 0 'keine Leerzeichen im Text Case Is >= 3 If PosKlammer1 > arrSpace(3) Then With Zelle.Characters(arrSpace(2)).Font .Size = 1 .Color = 10921638 'Grau End With End If End Select End Sub

Option Explicit Sub findString() Dim pos, oCell As Object Dim Regex As Object: Set Regex = CreateObject("vbscript.regexp") With Regex .Pattern = "^\w+,\s\w+\s\w+\s*(?=\()" For Each oCell In Selection If .test(oCell) Then pos = .Execute(oCell)(0).Length With oCell.Characters(pos).Font .Size = 1 .Color = 10921638 End With End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

	A	B
1	Leerzeichen zählen
2
3	wer	3
4	c ccc cv	2
5	fgd	11
6	1 2 3 4	3

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread