Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeichen löschen?

Zeichen löschen?
30.07.2003 10:32:31
christian
Hallo,
folgendes Problem: ich habe in EINER Zelle erst eine Zeichenfolge von 10 Zeichen, dann eine oder mehrere Leerstellen und dann eine Zeichenfolge von 3 - x Zeichen. Gibt es eine Möglichkeit in allen Zellen in Spalte A (dort stehen die beschriebenen Zeichen) per Makro die Zeichen nach den ersten 10 zu löschen?
Gruss,
Christian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen löschen?
30.07.2003 10:40:40
Ivan


hi Christian
versuche das mal
wobei die spalte a betroffen ist,kanst ja ändern!
Option Explicit
Sub NACH_LEER_LOESCHEN()
    Columns("A:A").Select
    Cells.Replace What:=" *", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
gruss
ivan

Anzeige
AW: Zeichen löschen?
30.07.2003 10:46:07
Nepumuk
Hallo Christian,
so geht's:

Option Explicit
Public Sub test()
Dim zeile As Long
Application.ScreenUpdating = False
For zeile = 1 To Cells(65536, 1).End(xlUp).Row
Cells(zeile, 1) = Left(Trim(Cells(zeile, 1)), 10)
Next
Application.ScreenUpdating = True
End Sub


Code eingefügt mit: Excel Code Jeanie
Nepumuk

Anzeige
AW: Zeichen löschen?
30.07.2003 11:22:29
christian
Danke hat funktioniert!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige