Office: Stellen auffüllen im Textfeld

Hallo,

ich habe folgendes Problem:

Ich muß eine Datei aufbauen, zu der für einzelne Felder Feldlängen vorgegeben sind.
Jetzt habe ich ein Feld mit Text, welches in Summe 29 Stellen belegen soll. Jedoch kann der enthaltene Text auch nur 10 Stellen haben, der Rest (hier 19), soll mit "Blanks" aufgefüllt werden.

Geht das?

anfänger

 

Hallo,
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
' alle Eingaben auf eine Länge von 20 Zeichen bringen mit " " davor, nur einzelne zelle
If Target.Count = 1 And Len(Target) < 20 Then
Application.EnableEvents = False
Target = String(20 - Len(Target), " ") & Target
Application.EnableEvents = True
End If
End Sub

Gruß hajo

 

Danke

...
kenn mich mit VBA nicht so sehr aus.

Ich habe natürlich mehrere Spalten mit unterschiedlichen Längenvorgaben.

Funzt das hiermit auch?

 

Hallo,

dann muss nur eine Prüfung der Spalte eingebaut werden.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
' alle Eingaben auf eine Länge von .. Zeichen bringen mit " " davor, nur einzelne zelle
Application.EnableEvents = False
If Target.Count = 1 And Target.Column = 1 And Len(Target) < 20 Then
Target = String(20 - Len(Target), " ") & Target
If Target.Count = 1 And Target.Column = 2 And Len(Target) < 30 Then
Target = String(30 - Len(Target), " ") & Target
End If
Application.EnableEvents = True
End Sub

Der Code wirkt nicht bei Zahlen.

Gruß Hajo

 

Hallo,

so korrekt
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
' alle Eingaben auf eine Länge von .. Zeichen bringen mit " " davor, nur einzelne zelle
Application.EnableEvents = False
If Target.Count = 1 And Target.Column = 1 And Len(Target) < 20 Then
Target = String(20 - Len(Target), " ") & Target
ElseIf Target.Count = 1 And Target.Column = 2 And Len(Target) < 30 Then
Target = String(30 - Len(Target), " ") & Target
End If
Application.EnableEvents = True
End Sub

Gruß hajo