Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
436to440
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
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen aus String löschen

Zeichen aus String löschen
09.06.2004 10:05:18
Pascal
Hallo !
Wie kann ich Zeichen aus einem String löschen ?
Ich habe z.B. den String "C:\MyHome\kitchen\essen.txt" und möchte alles bis auf "essen.txt" löschen ?
Gibt es vielleicht eine Funktion dafür ?
Vielen Dank für die Bemühung !
Gruß,
Pascal

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen aus String löschen
Ulf
Mit anderen Worten, willst du einen Dateinamen aus einem Pfad extrahieren?
Ulf
AW: Zeichen aus String löschen
09.06.2004 10:12:58
Pascal
So kann man dies auch beschreiben ;-) Ja.
Gruß,
Pascal
AW: Zeichen aus String löschen
Ulf
Schön einfache sache mit FSO, Code in ein Standardmodul:

Private Function Name_ext(strDatei As String) As String
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
Name_ext = objFso.GetFileName(strDatei)
End Function

und zum Probieren:
Sub teste()
MsgBox Name_ext("C:\MyHome\kitchen\essen.txt")
End Sub
Ulf
AW: Zeichen aus String löschen
09.06.2004 10:45:19
Pascal
.. huch .. wo is der letzte Eintrag hin ?!
Ulf, zu Deinem Bsp. Erstmal danke dafür.
Nur, ich glaube, wir haben aneinander vorbei geredet. Die Zeichen am Anfang des Strings sollen einfach nur gelöscht werden, sodaß dann nur noch "essen.txt" übrig bleibt. Denn damit möchte ich anschließend weiter arbeiten.
Soweit ich dies verstanden hab, liefert die Funktion Name_ext den Dateinamen zurück. Wenn ich nun z.B.
Dim file_str as string
file_str = Name_ext("C:\....")
schreibe, erhalte ich eine Fehlermeldung.
Mach ich was falsch oder
Gibs da vielleicht noch ne Idee ?
Gruß,
Pascal
Anzeige
AW: Zeichen aus String löschen
Ulf
In deiner Frage gings darum, aus einem Pfad einen dateinamen zu isoliere, genau das macht die Funktion. Was soll das sein:("C:\....")
Ulf
AW: Zeichen aus String löschen
09.06.2004 11:04:15
Pascal
Mit ("C:\...) meinte ich den eingangs erwähnten Pfad (C:\MyHome\kitchen\essen.txt). Worauf ich eigentlich hinaus wollte, daß die Übergabe von der Funktion für die Variable file_str nicht funzt. Vielleicht liegt dies an Typverschiedenheit - wie auch immer, bin da kein Experte.
Versuchen wir es anders:
Wie kann ich denn explizit Zeichen aus einem String löschen ?
Gruß,
Pascal
AW: Zeichen aus String löschen
Ulf
Das funktioniert, da hast sicher einen Fehler drin. Lad dein Beispiel mal hoch.
Ulf
Anzeige
AW: Zeichen aus String löschen
Ulf
der erste Fehler ist schonmal, dass File as Variant deklariert ist und
du File aber als String an die Funktion übergibst.
Option Explicit
Dim File As Variant 

Private Function Name_ext(strDatei As Variant) As String
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
Name_ext = objFso.GetFileName(strDatei)
End Function

Sub GetFile()
Dim file_str As String
ChDir "C:\MyHome\"
File = Application.GetOpenFilename _
("Excel Arbeitsmappen (*.xls), *.xls", Title:="Bitte eine Datei auswählen.")
If File = False Then Exit Sub
Workbooks.Open File
file_str = Name_ext(File)
Windows(file_str).Activate
End Sub
Ulf
Anzeige
Vielen Dank Ulf !
09.06.2004 12:39:27
Pascal
Yo, habe das dann doch irgendwie hingefummelt bekommen ;-)
Es mußte ne schnelle Lösung her, von daher isses dann doch eher "quick & dirty", aber es funzt erstma!
Gruß,
Pascal
AW: Zeichen aus String löschen
Kl@us-M.
Hi Pascal,
Ohne VBA, dafür aber (leider) mit ´ner Hilfsspalte:
  
 AB
1C:\Eigene Dateien\Test\Test\test.xlstest.xls
2C:\temptemp
3D:\MP3\Abba-SOS.mp3Abba-SOS.mp3
4E:\My Music\Video\Das Wunder von Bern.mpegDas Wunder von Bern.mpeg
Formeln der Tabelle
B1 : {=TEIL(A1;MAX((TEIL(A1;SPALTE(1:1);1)="\")*SPALTE(1:1))+1;LÄNGE(A1)-MAX((TEIL(A1;SPALTE(1:1);1)="\")*SPALTE(1:1))+1)}
B2 : {=TEIL(A2;MAX((TEIL(A2;SPALTE(2:2);1)="\")*SPALTE(2:2))+1;LÄNGE(A2)-MAX((TEIL(A2;SPALTE(2:2);1)="\")*SPALTE(2:2))+1)}
B3 : {=TEIL(A3;MAX((TEIL(A3;SPALTE(3:3);1)="\")*SPALTE(3:3))+1;LÄNGE(A3)-MAX((TEIL(A3;SPALTE(3:3);1)="\")*SPALTE(3:3))+1)}
B4 : {=TEIL(A4;MAX((TEIL(A4;SPALTE(4:4);1)="\")*SPALTE(4:4))+1;LÄNGE(A4)-MAX((TEIL(A4;SPALTE(4:4);1)="\")*SPALTE(4:4))+1)}
Geschweifte Klammer nicht eingeben, Array-Formel mit SHIFT + STRG + ENTER abschliessen ! Gruss aus dem Hunsrück Klaus-Martin
Anzeige

306 Forumthreads zu ähnlichen Themen

Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
letztes Zeichen löschen
Roger

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit
Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True ersetze ich z....
16.11.2009 16:00:48
Thread-ID: 1117654
4 Beiträge
Zeichen links neben Zahl Löschen
Fenja

Hallo liebe Leute,
ich habe in einer Spalte, in der steht z. Besispiel in H3: blabla 7 blublu
Ich möchte in einer neuen Spalte rechts von H, alle Zeichen links neben der 7 gelöscht haben, so dass ab der 7 angezeigt wird.
Kann mir jemand helfen?
Lieben Dank
F.
20.11.2009 11:24:11
Thread-ID: 1118839
5 Beiträge
Zeichen in Sheet suchen und links löschen
Tom

Hallo!
ich habe folgendes Problem. In einer Tabelle habe ich eine Spalte (E), in der ich folgende Werte habe:
abcdefgh O\ 12345
oder auch
abcdefgh P\ 12345
ich müsste in jeder Zeile dieser Spalte alles links von O\ oder P\ löschen :
abcdefgh O\ 12345 --> O\ 12345
09.02.2010 15:13:34
Thread-ID: 1137079
6 Beiträge
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
4
7
2
9
3
4
5
3
2
2
3
6
6
1
2
2
5
2
4
3
2
2
14
12