Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige