Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo,
erstmal vielen Dank für die Arbeit.
Aber egal ob ich es  normal oder als Klassenmodul einfüge, ich bekomme keine Leerzeichen.
Habe meinen Code nochmal umgechrieben:
****************************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)

    ' in Spalte "O" erste Zeile auslassen da Überschrift
    If Not Target.Address > "$O$1" Then Exit Sub
   
    With Target
        .Value = _
            Trim(Format(Replace(.Value, " ", ""), "!&&&& &&&& &&&& &&&& &&&& &&&& &&&& &&&& &&"))
    End With
End Sub

******************************************************************************************
Da diese Prozedur aber immer nur eine Zelle anspricht und wenn mehrere eingefügt werden ein Fehler anzeigt, habe ich danach noch ein Macro eingefügt :

***************************************************************************
Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+l
'
    Range("O2").Select
    Selection.Cut
    ActiveSheet.Paste
    Range("O3").Select
    Selection.Cut
    ActiveSheet.Paste
    Range("O4").Select
    Selection.Cut
    ActiveSheet.Paste
BIS
    Range("O100").Select
    Selection.Cut
    ActiveSheet.Paste
End Sub
*************************************************************************
mfG

obeer

Hallo alle miteinander,
wir exportieren eine SQL Abfrage nach Excel und möchten diese dann als Serienbriefdatenquelle verwenden.
Da es Mühsam ist, die Leerzeichen manuell enzutippen,hatte ich es erst mit einer Formatierung versucht
(D\E##-#####-#####-#####-#####-##) klappt aber nicht, weil Excel ab der 15. Stelle nur noch Nullen ausgibt.
Also VBA:
************************************************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Target.Address < "$O$99" Then Exit Sub
   
    With Target
        .Value = _
            Trim(Format(Replace(.Value, " ", ""), "!&&&& &&&& &&&& &&&& &&&& &&&& &&&& &&&& &&"))
    End With
End Sub

************************************************************************************************
Klappt eigendlich ganz gut, nur wenn ich eine eingegebene Iban wieder löschen will kommt:
Excel funktioniert nicht mehr und das wars.
Dabei beende ich doch die "Sub". Was ist hier falsch?

Vielen Dank im voraus

obeer