Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen aus String löschen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
AW: Zeichen aus String löschen
Ulf
Das funktioniert, da hast sicher einen Fehler drin. Lad dein Beispiel mal hoch.
Ulf
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
;

Forumthreads zu verwandten 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
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 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
Zellinhalte ab erstem Leerzeichen löschen
Kai

Hi,
wie kann ich den per Makro eine Spalte H bearbeiten und dort alle Inhalte , die in einer Zelle ab dem ersten Leerzeichen kommen, löschen, Wenn der inhalt mit "A" beginnt
Beispiel:
aus "A blablabla" soll "A" werden
aus "Antwort 5" soll "Antwort" werden
Aber wie ges...
11.09.2009 13:03:11
Thread-ID: 1101999
10 Beiträge
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
Anzeige
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
Anzeige
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
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
Leerzeichen in Zelle löschen
Helmut

Liebe Forenuser,
ich habe einen Code bekommen, der jeden Text in der Zelle auf seine Länge trimmt (Leerzeichen danach werden gelöscht). Dieser Code bezieht sich auf das komplette Tabellenblatt. Hier der Code:
Sub leerzeichen_loeschen() Dim c As Range Application.ScreenUpdating = False F...
28.06.2010 09:20:04
Thread-ID: 1164259
4 Beiträge
Leerzeichen in Zelle Löschen
Fatih

Hallo Ihr Lieben,
ich habe gerade eine Excel-Datei bekommen aus dem ich ein Serienbrief gestalten soll - gar kein Problem.
In einer Spalte sind die Adressen und Hausnummern jeweils mit vielen Leerzeichen getrennt.
Etwa so.
Musterstrasse _________ 6 a
Teststrasse _______44___...
12.10.2010 13:52:43
Thread-ID: 1181955
7 Beiträge
nicht gültige Zeichen aus String filtern
heinzs

Hallo Excelfreunde,
in VBA möchte ich aus einem String nicht erlaubte Zeichen entfernen:
gn_erlaubte_zeichen = "1234567890HIN"
gn_string_original = "abc123HIN"
gn_string_resultat = "123HIN"
Da ich sehr viele Strings zu kontrollieren habe, würde ich ungern mit einer for-Next...
29.12.2010 11:42:18
Thread-ID: 1193168
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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