wenn ich ein Pfad habe z.B. C:\Meine Daten\Projekte\2016\2580700\
und davon mir von rechts gesehen den Inhalt zwischen letzten beiden \ auslesen möchte (im Beispiel wäre das 2580700. Wie bekomme ich es bitte per VBA?
Viele Grüße,
Selma
dim Pfad as String
dim Ordner() as String
dim XXX as String
Pfad = "C:\Meine Daten\Projekte\2016\2580700\"
Ordner = Split(Pfad, "\")
XXX = Ordner(Ubound(Ordner) - 1)
Gruß Daniel
Um in Excel den Text zwischen zwei Zeichen auszulesen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub AuslesenZwischenZeichen()
Dim Pfad As String
Dim Ordner() As String
Dim Ergebnis As String
Pfad = "C:\Meine Daten\Projekte\2016\2580700\"
Ordner = Split(Pfad, "\")
Ergebnis = Ordner(UBound(Ordner) - 1)
MsgBox "Der Text zwischen den letzten beiden Zeichen ist: " & Ergebnis
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8
, wähle AuslesenZwischenZeichen
aus und klicke auf Ausführen
.
Jetzt zeigt dir eine MessageBox den Text zwischen den letzten beiden \
an.
Fehler: "Typenkonflikt"
Fehler: "Sub oder Function nicht definiert"
Falls du kein VBA verwenden möchtest, kannst du auch die Excel-Funktion TEXT
zusammen mit FINDEN
und RECHTS
nutzen. Hier ist ein Beispiel:
Verwende die folgende Formel in einer anderen Zelle:
=TEIL(A1;FINDEN("~";WECHSELN(A1;"\";"~";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))))-1;FINDEN("~";WECHSELN(A1;"\";"~";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))))-FINDEN("~";WECHSELN(A1;"\";"~";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))))-1)
Diese Formel sucht den Text zwischen den letzten beiden \
, allerdings ist sie etwas komplexer.
C:\Daten\Projekte\2023\12345\
lautet, gibt das Skript oder die Formel 12345
zurück.D:\Bilder\Urlaub\2022\Mallorca\
wird Mallorca
zurückgegeben.1. Wie kann ich das Skript anpassen, um mehrere Pfade zu verarbeiten?
Du kannst eine Schleife verwenden, um durch eine Liste von Pfaden zu iterieren und die Ergebnisse in eine Tabelle zu schreiben.
2. Funktioniert dies in allen Excel-Versionen?
Ja, das VBA-Skript sollte in allen Versionen von Excel funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen