Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
EXCEL 2007: Leerzeichen per VBA entfernen
25 views
Skip to first unread message
Heinz Müller
Feb 17, 2017, 4:10:21 PM2/17/17
to
Hallo zusammen,
ich habe jetzt Stunden im WWW gesucht um folgendes durchzuführen,
aber es gelingt mir einfach nicht:
Ich habe z.B.
Cells(315, 1) => A315
und will einfach nur die Leerzeichen in dieser Zelle trimmen.
Am Anfang und am Ende.
Dazu würde ich gerne den cells in eine Range umwandeln und dann mit
Dim c As Range
c = WorksheetFunction.Trim(c)
den Trim durchführen. c ist dann halt die Zelle als Range.
Oder eine beliebige andere Lösung die auf Cells(315, 1) aufbaut.
Kann mir da jemand bitte auf die Sprünge helfen.
Danke!
Gruß
Heinz
ich habe jetzt Stunden im WWW gesucht um folgendes durchzuführen,
aber es gelingt mir einfach nicht:
Ich habe z.B.
Cells(315, 1) => A315
und will einfach nur die Leerzeichen in dieser Zelle trimmen.
Am Anfang und am Ende.
Dazu würde ich gerne den cells in eine Range umwandeln und dann mit
Dim c As Range
c = WorksheetFunction.Trim(c)
den Trim durchführen. c ist dann halt die Zelle als Range.
Oder eine beliebige andere Lösung die auf Cells(315, 1) aufbaut.
Kann mir da jemand bitte auf die Sprünge helfen.
Danke!
Gruß
Heinz
Claus Busch
Feb 17, 2017, 4:20:13 PM2/17/17
to
Hallo Heinz,
Am Fri, 17 Feb 2017 22:10:16 +0100 schrieb Heinz Müller:
> Ich habe z.B.
>
> Cells(315, 1) => A315
>
> und will einfach nur die Leerzeichen in dieser Zelle trimmen.
> Am Anfang und am Ende.
Dim c As Range
Set c = Range("A315")
c = Application.Trim(c)
Mit freundlichen Grüßen
Claus
--
Windows10
Office 2016
Am Fri, 17 Feb 2017 22:10:16 +0100 schrieb Heinz Müller:
> Ich habe z.B.
>
> Cells(315, 1) => A315
>
> und will einfach nur die Leerzeichen in dieser Zelle trimmen.
> Am Anfang und am Ende.
Set c = Range("A315")
c = Application.Trim(c)
Mit freundlichen Grüßen
Claus
--
Windows10
Office 2016
Heinz Müller
Feb 17, 2017, 4:27:41 PM2/17/17
to
danke dir.
Ich habe meine Zelle im Format Cells(315, 1) vorliegen.
Ich müsste das erst einmal nach Range umwandeln. Das ist mein
eigentliches Problem.
Gruß
Heinz
Claus Busch
Feb 17, 2017, 4:32:21 PM2/17/17
to
Hallo Heinz,
Am Fri, 17 Feb 2017 22:27:36 +0100 schrieb Heinz Müller:
> Ich habe meine Zelle im Format Cells(315, 1) vorliegen.
> Ich müsste das erst einmal nach Range umwandeln. Das ist mein
> eigentliches Problem.
du musst nichts umwandeln. Du kannst das so verwenden:
Dim c As Range
Set c = Cells(315, 1)
Windows10
Office 2016
Am Fri, 17 Feb 2017 22:27:36 +0100 schrieb Heinz Müller:
> Ich habe meine Zelle im Format Cells(315, 1) vorliegen.
> Ich müsste das erst einmal nach Range umwandeln. Das ist mein
> eigentliches Problem.
Dim c As Range
Set c = Cells(315, 1)
c = Application.Trim(c)
Mit freundlichen Grüßen
Claus
--
Mit freundlichen Grüßen
Claus
Windows10
Office 2016
Heinz Müller
Feb 17, 2017, 4:35:39 PM2/17/17
to
vielen vielen Dank! So funktioniert's. :-)
Manchmal sind es echt die Kleinigkeiten!!!!!
Gruß
Heinz
0 new messages