Microsoft Excel

Herbers Excel/VBA-Archiv

Leerzeichen...

Betrifft: Leerzeichen... von: Thorsten_Z
Geschrieben am: 15.04.2014 20:58:17

Moin liebes Forum,

Folgenden Code habe ich aus diesem Forum:

Sub LeerzeichenWeg()
'entfernnt ALLE Leerzeichen aus dem
'Inhalt der ausgewählten Zellen
'!!!!!!Bereich vorher markieren!!!!!!
Dim rng As Range
For Each rng In Selection
rng = Replace(rng, " ", "")
Next
End Sub
Wie kann ich dem einen Festen Bereich zuordnen?
Z.B. "P6:Q44,AH6:AI44,BS6:BT44"

Gruß
Thorsten

  

Betrifft: AW: Leerzeichen... von: Raphael_H
Geschrieben am: 15.04.2014 21:12:32

Hallo Thorsten,

das wäre eine Möglichkeit

Sub LeerzeichenWeg()
'entfernnt ALLE Leerzeichen aus dem
'Inhalt der ausgewählten Zellen
'!!!!!!Bereich vorher markieren!!!!!!
Dim rng As Range
Dim ZielRange As Range
Set ZielRange = Union(Range("P6:Q44"), Range("AH6:AI44"), Range("BS6:BT44"))
For Each rng In ZielRange
rng = Replace(rng, " ", "")
Next
End Sub
Gruess
Raphael


  

Betrifft: AW: Leerzeichen... von: Thorsten_Z
Geschrieben am: 15.04.2014 21:22:44

Hallo Raphael,

Funktioniert! Nehme ich :-)

Vielen Dank für deine Hilfe!

Gruß
Thorsten


  

Betrifft: Gerne owT von: Raphael_H
Geschrieben am: 15.04.2014 21:38:12