Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiendungen abtrennen

Dateiendungen abtrennen
Ilka
Guten Tag,
in Spalte A stehen Dateinamen, die nicht verändert werden sollen.
Die Endungen (ab dem Punkt) sollen nun in Spalte B gespeichert werden.
a. wie löst man die Aufgabe auf der Basis von Formeln?
b. wie mit einem Programm?
Über Lösungen würde ich mich sehr freuen.
Gruß
Ilka Maria

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateiendungen abtrennen
03.10.2011 13:37:33
Hajo_Zi
Tabelle2
 AB
1123.xlsxls
2123.xlsxxlsx
3123.xlsmxlsm

verwendete Formeln
Zelle Formel Bereich
B1 =TEIL(A1;FINDEN(".";A1)+1;4) 
B2 =TEIL(A2;FINDEN(".";A2)+1;4) 
B3 =TEIL(A3;FINDEN(".";A3)+1;4) 

Tabellendarstellung in Foren Version 5.46



Anzeige
Geht es auch mit VBA?
03.10.2011 14:40:04
Ilka
Hallo Hajo,
vielen Dank für die Formel, die die Daten sauber herauslöst.
Alternativ suche ich weiterhin nach einer VBA-Lösung für diese Aufgabe.
Mal sehen ob ich Glück habe.
Gruß
Ilka Maria
AW: Dateiendungen abtrennen - VBA
03.10.2011 14:35:15
Beverly
Hi Ilka Maria,

Sub Dateiname()
Dim lngZeile As Long
Do
lngZeile = lngZeile + 1
If Cells(lngZeile, 1) = "" Then Exit Do
Cells(lngZeile, 2) = Mid(Cells(lngZeile, 1), 1, InStrRev(Cells(lngZeile, 1), ".") - 1)
Loop
End Sub


Dateiendungen abtrennen - VBA, Korrektur
03.10.2011 14:40:20
Beverly
Hi Ilka Maria,
sorry, habe deine Frage falsch verstanden - mit dem Code wird der Dateiname in Spalte B aufgelistet. Für die Dateiendung müsste der Code so aussehen:

Sub Dateiname()
Dim lngZeile As Long
Do
lngZeile = lngZeile + 1
If Cells(lngZeile, 1) = "" Then Exit Do
Cells(lngZeile, 2) = Mid(Cells(lngZeile, 1), InStrRev(Cells(lngZeile, 1), ".") + 1)
Loop
End Sub


Anzeige
Eine Zusatzfrage und Danke
03.10.2011 14:54:43
Ilka
Hallo Karin,
ich danke Dir für Deine Lösung, die perfekt funktioniert.
Dazu eineZusatzfrage: Was bewirkt dieser Teil InStrRev(Cells(lngZeile, 1), ".") + 1)?
InStrRev ist mir nicht bekannt.
Gruß
Ilka Maria
Frage ist geklärt
03.10.2011 15:28:31
Ilka
Hallo Karin,
die belehrende Stelle in der Hilfe ist gefunden. Nun ist diese Frage geklärt.
Dank für Deine Hilfen.
Gruß
Ilka Maria
e
AW: Eine Zusatzfrage und Danke
03.10.2011 15:28:36
Beverly
Hi Ilka Maria,
Zitat der VBA-Hilfe: Gibt die Position eines Vorkommnisses einer Zeichenfolge in einer anderen Zeichenfolge vom Ende der Zeichenfolge gesehen an.
Diese VBA-Funktion gibt es ab Excel2002 (XP).
Man könnte auch die (bekanntere) Funktion Instr verwenden, dann müsste jedoch gewährleistet sein, dass außer dem Punkt vor der Dateiendung im Dateinamen kein weiterer Punkt vorkommen darf, da Instr das Vorkommen vom Beginn der Zeichenfolge feststellt.

Anzeige
Nee, schon ab Xl9(MSO2k)/VB6.0! Gruß owT
03.10.2011 15:58:28
Luc:-?
:-?

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige