Microsoft Excel

Herbers Excel/VBA-Archiv

[Alt+Enter] löschen

Betrifft: [Alt+Enter] löschen
von: walter
Geschrieben am: 15.04.2003 - 18:25:22

Hallo zusammen,
kann ich irgendwie die Tastenkombination [Alt+Enter] global löschen bzw. ersetzen, ohne jede Zelle einzeln anzuklicken? Hintergrund: Ich will eine sehr große Tabelle in eine CSV-Datei umwandeln, aber [Alt+Enter] verursacht immer einen Zeilenumbruch, so dass die Datei nicht wie gewünscht aussieht.
Hilfe wäre nett
Walter

  

Re: [Alt+Enter] löschen
von: andre
Geschrieben am: 15.04.2003 - 18:39:02

hallo walter,
bei alt-enter entsteht das steuerzeichen 10.
ersetzen durch ein leerzeichen geht dann z.b. so:

Range("A1:B10").Select
Selection.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

gruss andre

  

Re: [Alt+Enter] löschen
von: Klaus Schubert
Geschrieben am: 15.04.2003 - 18:58:56

Versuch's mal hiermit:


Sub DatenBereinigen()
Dim Zelle As Range

For Each Zelle In ActiveSheet.UsedRange

    With Zelle
        If .HasFormula = False Then
        .Value = Application.WorksheetFunction.Clean(.Value)
        End If
    End With

Next Zelle

End Sub

Mit diesem Code werden die "Nicht druckbaren Zeichen" entfernt. (entspricht der Funktion "SÄUBERN()")

Gruß Klaus

  

Re: [Alt+Enter] löschen
von: walter
Geschrieben am: 16.04.2003 - 09:43:06

Hurra, es hat geklappt!
Vielen Dank Euch beiden für die Hilfe!