|
Excel-Version: 9.0 (Office 2000)
Am Angang und am Ende die Leerzeichen löschen? von Sladjana vom 18.07.2002 - 02:09:26
Re: Am Angang und am Ende die Leerzeichen löschen? von jinx vom 18.07.2002 - 03:49:12
Re: Am Angang und am Ende die Leerzeichen löschen? von Sladjana vom 18.07.2002 - 20:13:16
Re: Am Angang und am Ende die Leerzeichen löschen? von jinx vom 18.07.2002 - 21:18:57
Dankeschön jinx... von Sladjana vom 19.07.2002 - 00:04:24
Re: Am Angang und am Ende die Leerzeichen löschen? von L.Vira vom 18.07.2002 - 02:20:29
Oops, da hab ich mich wohl von L.Vira vom 18.07.2002 - 02:37:04
Re: Oops, da hab ich mich wohl von jinx vom 18.07.2002 - 03:53:44
Re: Oops, da hab ich mich wohl von L.Vira vom 18.07.2002 - 21:33:32
 |
Hi Leute, ich habe iene Frage: wie kann ich per Makro, im Bereich A1:E500 die Leerzeichen am Anfang und am Ende löschen??? Die Texte in Zellen fangen mit Leerzeichen und enden mit Leerzeichen. Die möchte ich per Makro löschen. Vielen Dank schonmal vorab... Gruß
Sladjana
Einfach sortieren, dann verschwinden leere Zellen.
|
etwas "verlesen" Option Explicit
Sub Leerzeichen_weg()
Selection.Replace What:=" ", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByColumns
End Sub
|
|
Moin, Sladjana, z.B. so:
Sub LeerzeichenWeg()
Dim Bereich As Range
Dim Zelle As Object
Set Bereich = Range("A1:E500")
Application.ScreenUpdating = False
For Each Zelle In Bereich
Zelle.Value = Trim(Zelle.Value)
Next Zelle
Application.ScreenUpdating = True
End Sub
cu jinx
Moin, L.Vira, bei Deinem Code verschwinden leider auch die Leerzeichen innerhalb der Zeichenkette - das war aber im Titel nicht gefordert... cu
jinx
Hi jinx, hmm habe gerade festgestellt das es doch nicht um Leerzeichen handelt, sondern ALT + 0160 (bin mir nicht sicher)!!! Wie kann ich es prüfen, was es für ein Zeichen ist und wie würde das Makro aussehen wenn das z.B. ALT + 0160 doch ist??? Nochmals vielen Dank.... Gruß
Sladjana |
|
Moin, Sladjana, feststellen kann man es per =CODE(A1), wenn die erste Stelle in der Zelle A1 überprüft werden soll. Rückgabewert ist die Codezahl... Und alternativ dann z.B. so:
Sub LeerzeichenAlternative()
Dim Bereich As Range
Dim Zelle As Object
Dim Inhalt As String
Set Bereich = Range("A1:E500")
Application.ScreenUpdating = False
For Each Zelle In Bereich
Inhalt = ""
For i = 1 To Len(Zelle.Value)
If Mid(Zelle.Value, i, 1) <> Chr(160) Then
Inhalt = Inhalt & Mid(Zelle.Value, i, 1)
End If
Next i
Zelle.Value = Inhalt
Next Zelle
Application.ScreenUpdating = True
End Sub
Hier ist ggf. das Zeichen im COde entsprechend zu ersetzen... cu
jinx
Recht hast du, aber mit ist neu, dass hier irgendetwas gefordert wird. Fordern kannst, wenn du was bezahlst.
Dankeschön jinx... Gruß
Sladjana |
Das Archiv des Excel-Forums