Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen rechts löschen

Forumthread: Zeichen rechts löschen

Zeichen rechts löschen
17.08.2004 09:26:26
Rick
Hallo zusammen,
Kann mir jedmand mal Bitte helfen, und zwarmöchte ich in einer kompletten Spalte in jeder Zelle von rechts drei Zeichen per makro löschen.
Dankeschön
Grüße Rick
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen rechts löschen
Reinhard
Hi Rick,
probiers mal so:

Sub tt()
letzte = Range("C65536").End(xlUp).Row
For n = 1 To letzte
Cells(n, 3) = Left(Cells(n, 3), Len(Cells(n, 3)) - 3)
Next n
End Sub

das C in ("C65536") und die 3 in Cells(n, 3) an die gewünschte Spalte anpassen, A=1, B=2, usw.
Gruß
Reinhard
Anzeige
AW: Zeichen rechts löschen
Klamsi
Vielleicht kannst du hiermit ein wenig was anfangen:
Option Explicit
Public 

Function FileName(FilePath As String) As String
Dim a: a = Split(Right(FilePath, Len(FilePath) - InStrRev(FilePath, "\")), ".")
FileName = CStr(a(0))
End Function

Das habe ich mal von jemanden bekommen. Das Ding sucht in dem Fall eine Zelle von rechts nach links ab, und wenn es ein "\" und ein "." in der Zelle findet (Bsp: C:\Programme\Datei.exe), dann schreibt es alle wörter ab dem letzten "\" bis zum "." aus der Zelle raus. Das ergebnis wäre also "Datei"
Wenn man das ein wenig umformuliert, kann man damit vielleicht was anfangen.
Ich hab leider keine Ahnung von VBA, aber ich hoffe dich hilfts :)
Grüße,
Klamsi
Anzeige
DAnke euch beiden!
17.08.2004 09:51:27
Rick
-
AW: Zeichen rechts löschen
IngoG
Hallo Rick

Sub aa()
Dim zelle As Range
For Each zelle In Range("a1:a" & Range("a65536").End(xlUp).Row)
'For Each zelle In Sheets(1).Range("a:a")
If zelle <> "" Then zelle = Left(zelle, Application.WorksheetFunction.Max(0, Len(zelle) - 3))
Next zelle
End Sub

so sollte es funzen...
Gruß Ingo
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige