Datum

Titel

16.04.2024 15:16:53

Summen mit verschiedenen Variablen

16.04.2024 14:29:30

Matrixkonstanten als Quelle für Gültigkeit und Steuerelement

16.04.2024 13:54:06

Multiplikation

16.04.2024 12:41:11

Vielleicht Onur ? Leider werden nicht alle Monate

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1340to1344

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

am Anfang und am Ende die Leerzeichen entfernen

Forumthread: am Anfang und am Ende die Leerzeichen entfernen
6 Beiträge zu diesem Forumthread
Anzeige
333 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

27.12.2013 19:19:05

Selma

Hallo Leute,
wie kann ich bitte per VBA in aktivem Arbeitsblatt am Anfang und am Ende die Leerzeichen entfernen.
Es soll an gesamten Arbeitsblatt angewendet werden!
Gruß,
Selma

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Trim(Zelle.Value)

27.12.2013 19:31:03

Matthias
Wichtig! Nicht bei Formeln geeignet !! owT

28.12.2013 00:33:56

Matthias
Korrektur! SpecialCells(xlCellTypeConstants,23)

28.12.2013 00:30:06

Matthias
AW: Korrektur! SpecialCells(xlCellTypeConstants,23)

29.12.2013 20:53:50

Selma
SpecialCells(xlCellTypeConstants,2) owT

30.12.2013 00:07:28

Matthias
AW: SpecialCells(xlCellTypeConstants,2) owT

30.12.2013 12:39:53

Selma

Trim(Zelle.Value)

27.12.2013 19:31:03

Matthias

Hallo Selma


Option Explicit
Sub Selma()
Dim Bereich, Zelle As Range
Set Bereich = ActiveSheet.UsedRange.Cells
For Each Zelle In Bereich
Zelle.Value = Trim(Zelle.Value)
Next
Set Bereich = Nothing
End Sub

Gruß Matthias

Wichtig! Nicht bei Formeln geeignet !! owT

28.12.2013 00:33:56

Matthias

Korrektur! SpecialCells(xlCellTypeConstants,23)

28.12.2013 00:30:06

Matthias

Hallo Selma
Besser ist es so:

Option Explicit
Sub Selma()
Dim Bereich, Zelle As Range
Application.ScreenUpdating = False
Set Bereich = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeConstants, 23)
For Each Zelle In Bereich
Zelle.Value = Trim(Zelle.Value)
Next
Set Bereich = Nothing
End Sub

So ist sichergestellt das er keine Formeln in Werte ändert.
Gruß Matthias

AW: Korrektur! SpecialCells(xlCellTypeConstants,23)

29.12.2013 20:53:50

Selma

Hallo Matthias,
ich habe es jetzt erst testen können.
Ich habe eine Beispieldatei mit den Blättern "VORHER" und "NACHHER" hochgeladen.
Im Arbeistblatt "NACHHER" haben einige Zellen die Formatierung verloren.
Die Zellen habe ich gelb dargestellt für besseren Verständnis.
Woran liegt das bitte?
https://www.herber.de/bbs/user/88638.xls
Danke und Gruß,
Selma

SpecialCells(xlCellTypeConstants,2) owT

30.12.2013 00:07:28

Matthias

AW: SpecialCells(xlCellTypeConstants,2) owT

30.12.2013 12:39:53

Selma

VIELEN DANK!!!