Zeichen Leerzeichen anfügen aus max. Zeichenanzahl

Guten Morgen VBA Spezialisten.
anbei eine Beispieldatei, mit dem gestrigen Code von ChrisL und dafür nochmal Danke.
https://www.herber.de/bbs/user/115552.xlsm
Ich suche eine VBA Lösung für folgendes:
In den markierten Zellen, ist eine mehr oder weniger Anzahl von Zeichen.
a. In den markierten Spalten, je Zeile und Zelle die max. Zeichenzahl suchen
b. Alle Zellen, die weniger Zeichen als die max. gefundene Zeichenanzahl IN DER SPALTE haben, sollen dann soviel zusätzliche Leerstellen angefügt bekomnen, bis die max. Zeichenanzahl erreicht ist.
Z.B. A2 hat 3 Zeichen und in Spalte A, in Zelle A7 sind 6 Zeichen. So sollen in A2
direkt hinter dem 3 Zeichen noch 3 Leerstellen eingefügt werden.
Wäre toll, wenn es da eine Lösung gibt.
Mit der Bitte um Hilfe und
Gruß, Dieter(Drummer)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Anfuegen() Dim lngZeile As Long Range("F2").Formula = "=LEN(A2)" Range("F2").AutoFill Destination:=Range("F2:F12") For lngZeile = 2 To 12 Cells(lngZeile, 1) = Cells(lngZeile, 1) & _ Application.Rept(" ", Application.Max(Columns(6)) - Len(Cells(lngZeile, 1))) Next lngZeile Range("F2:F12").ClesrContents End Sub

Sub Anfuegen() Dim lngZeile As Long Dim intSpalte As Integer For intSpalte = 1 To 3 Range("F2").Formula = "=LEN(" & Cells(2, intSpalte).Address(False, False) & ")" Range("F2").AutoFill Destination:=Range("F2:F12") For lngZeile = 2 To 12 Cells(lngZeile, intSpalte) = Cells(lngZeile, intSpalte) & _ Application.Rept(" ", Application.Max(Columns(6)) - _ Len(Cells(lngZeile, intSpalte))) Next lngZeile Next intSpalte Range("F2:F12").ClearContents End Sub

Dim laenge As Long Dim zelle As Range, zelle2 As Range For Each zelle In Selection.Columns laenge = Evaluate("=MAX(LEN(" & zelle.Address & "))") For Each zelle2 In Range(zelle.Address) If Len(zelle2)

Sub LeerzeichenDazu() Dim laenge As Long Dim Zelle As Range, zelle2 As Range For Each Zelle In Selection.Columns laenge = Evaluate("=MAX(LEN(" & Zelle.Address & "))") For Each zelle2 In Range(Zelle.Address) If Len(zelle2) + 1 - Len(zelle2), " ") '--x zum veranschaulichen. + _ 1 selbst eingesetzt! End If Next Next End Sub

... und danke für Rückmeldung.
So wie dein Code ist, mit meiner kleinen Anpassung (+1), ist alles ok. Wollte ja nur prüfen lassen, ob der Code mit meiner Änderung (an der richtigen Stelle) ok ist.
Übrigens der Zweck für das Makro ist, dass die markierten Spalten nach den hinzufügen der Leerzeichen, alle im Kommentar eingefügt werden. Sie sollen dort optisch als Spalten, mit gleichen Spaltenabständen, eingefügt werden. dazu nutze ich den Code von ChrisL. Code siehe unten.
Gruß und einen erfolgreichen Tag,
Dieter(Drummer)
'Herber: von ChrisL am 17.08.2017 12:59:14

Sub ZellinhalteInKommentarInSpalten()
Dim c As Range, s As String, r As Long, x As String, ar As Variant
With Range("E2")
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Visible = True
If Selection.Cells.Count = 1 Then
s = Selection
ElseIf Selection.Columns.Count = 1 Then
s = Join(Application.Transpose(Selection), Chr(10))
Else
For r = Selection.Row To Selection.Row + Selection.Rows.Count - 1
ar = Application.Transpose(Range(Cells(r, Selection.Column), _
Cells(r, Selection.Column + Selection.Columns.Count - 1)).Value)
x = Join(Application.Transpose(ar), " - ") 'Mx von ; auf - geändert
s = IIf(s = "", x, s & Chr(10) & x)
Next r
End If
.Comment.Text Text:=s
End With
Call AutosizeComments 'Mx
Range("A1").Select
End Sub

Beliebteste Forumthreads (12 Monate)

Zeichen Leerzeichen anfügen aus max. Zeichenanzahl

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeichen Leerzeichen anfügen aus max. Zeichenanzahl

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread