Herbers Excel-Forum - das Archiv

Auffüllen mit Tabs

Bild

Betrifft: Auffüllen mit Tabs
von: Mogly78

Geschrieben am: 14.02.2005 12:17:32
Moin moin,
kann mir bitte einer sagen wie man es hinbekommt, das man einer Spalte mit tabs auffüllt.
Ich habe die spalte eine gültigkeit von 20 zeichen gesetzt.
Wenn ich aber ein Wort mit nur 5 zeichen einsetze verschiebt mir Excel beim Konvertiern zu einer textdatei alle folgende spalten um 1-3 tabsprünge.
gruß
mogly
Bild

Betrifft: AW: Auffüllen mit Tabs
von: UweD

Geschrieben am: 14.02.2005 12:59:48
Hallo
Nimm die Gültigkeitprüfung raus und mach es mit VBA..

  • rechtsklick auf den Tabellenblattreiter unten

  • Code anzeigen

  • Im neuen Fenster das Makro einfügen


Private Sub Worksheet_Change(ByVal Target As Range)
'Beispiel für Änderungen in A1 bis A10
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Application.EnableEvents = False
Target = Target & String(20 - Len(Target), Chr(9))
Application.EnableEvents = True
End If
End Sub

Gruß UweD
 Bild