2006 20:19:03
Hi Nossi,
dann gibts in kein Blatt was exakt Tabelle123 heißt
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht.. Geschrieben am: 05. Calc Dateiname ohne Endung .ods in Fusszeile - LibreOffice-Forum. 2006 20:24:37
Hmm..
nein der Fehler lag woanders, wenn ich "" anstatt "" schreibe funktioniert es. Bei "This... " nimmt er die Datei bei der ich beim ausführen des Makros bin, ich brauche aber nur die zur Zeit aktivierte. Danke für eure Antworten:)
Betrifft: o. T.
von: Geschlossen
Geschrieben am: 05.
- Vba dateiname ohne endung 1
- Vba dateiname ohne endung download
- Vba dateiname ohne endung test
- Stehr Baumaschinen GmbH - Stehr Anbauverdichter SBV 80 HF / 160 HF
Vba Dateiname Ohne Endung 1
Oder wurde die InStrRev Funktion geändert? Gefundene Beiträge waren schon recht alt. (Ps. : Bin in Excel 2010 unterwegs)
Danke schon mal im Voraus... hoffe, es gibt nicht genau dieses Thema funden hätte ich nichts:-):)
Moin! Len() hat da nix verloren! Code:
Gruß Ralf
Hallo,
die Funktion sucht zwar von rechts nach links, gibt die Position aber von links nach rechts gesehen aus. Das war, solange ich mich erinnern kann, auch niemals anders. Gesamtlänge - Fundstelle (InstrRev) ergibt also die Länge der Dateiendung, nicht die Position. Ich arbeite lieber mit Split / Join:
Code: Grüße
EarlFred
Hi nochmal! VIELEN Dank für eure Antworten.. hab es jetzt auch mit Hilfe eines bekannten Lösen können... hier der Vollständigkeit halber mein Code, der auch funktioniert. Vba dateiname ohne endung test. (Alte Date bleibt bestehen, eine neue mit selben Namen wird im selben Ordner gespeichert):
(Left(ActiveWorkbook. FullName, InStrRev(ActiveWorkbook. FullName, ". ") - 1) & ""), 52
Was ist jetzt an Deiner Lösung anders als an meiner? Gut, Deine ist länger …
Übrigens:
Wenn Du den FileFormat-Parameter angibst, ist es redundant, die Dateiendung "" zu verwursten.
Vba Dateiname Ohne Endung Download
2017, 10:12
# 2
MOF Guru
Registrierung: 27. 2014
Moin! Len() hat da nix verloren! Code:
Dim FN$
FN = ActiveWorkbook. FullName
Left(FN, InStrRev(FN, ". ") - 1)
Gruß Ralf
__________________
Meine Logik war nicht fehlerhaft, nur meine Interpretation! Tuvok
06. 2017, 10:13
# 3
Registrierung: 10. 07. 2007
Hallo,
die Funktion sucht zwar von rechts nach links, gibt die Position aber von links nach rechts gesehen aus. Das war, solange ich mich erinnern kann, auch niemals anders. Gesamtlänge - Fundstelle (InstrRev) ergibt also die Länge der Dateiendung, nicht die Position. Ich arbeite lieber mit Split / Join:
Option Explicit
Sub test()
Dim s As String
Dim f As Variant
s = ""
f = Split(s, ". ") f(UBound(f)) = "xlsx"
s = Join(f, ". ") MsgBox s
End Sub
Grüße
EarlFred
Für 14 meiner Beiträge haben sich Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste! (das entspricht 0, 0855% oder 1 Spende pro 1. 170 Beiträge per 31. VBA Dateiendung (File Extension) ermitteln - eKiwi-Blog.de. 08. 2021)
Als Dankeschön der Ukraine helfen
06.
Vba Dateiname Ohne Endung Test
06. 10. 2017, 09:56
# 1
Neuer Benutzer
Registrierung: 06. 2017
Karma:
VBA - Dateiname ohne Endung - "InStrRev" funktioniert nicht korrekt:-(
Hi Leute! Erstmal hallo. schon länger still und heimlich bei euch mit... und jetzt hab ich mich mal angemeldet:-)
Folgendes Problem:
Möchte innerhalb eines VBA Makros die Datei als (Excel mit Makros) speichern...
Stepweise hänge ich jetzt beim Auslesen des Dateinamens.... kanns schon lerdings nur als.. nicht so Toll
Nun hab ich bereits verschiedene Lösungsansätze gefunden, wie meine bevorzugte:
(Left(ActiveWorkbook. FullName, Len(ActiveWorkbook. FullName) - InStrRev(, ". ") + 1))
Problem:
die "InStrRev" Funktion dürfte nicht wirklich klappen... Bekomm 45 Rückgemeldet.. sollte ja 5 oder so sein hmm... Vba dateiname ohne endung 1. Activeworkbook. fullname ist allerdings korrekt... da bekomme ich den Dateinamen inkl. "" zurückgemeldet. Jemand eine Idee, was da nicht funktioniert? Oder wurde die InStrRev Funktion geändert? Gefundene Beiträge waren schon recht alt. (Ps. : Bin in Excel 2010 unterwegs)
Danke schon mal im Voraus... hoffe, es gibt nicht genau dieses Thema funden hätte ich nichts:-)
06.
VB-Paradise 2. 0 – Die große Visual-Basic- und »
Forum »
Programmieren »
Sonstige Problemstellungen »
Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag ( 16. September 2011, 19:24) ist von haiyyu. Hey
Ich steh gerade richtig auf dem Schlauch, daher komm ich iwie nicht weiter. Könnt ihr mir sagen, wie ich wenn ich z. B. "" habe, das ich nur als Ergebnis "Datei habe?! Dateiname ohne .xls. Wie geht es am elegantesten? Gruß
Edit by der_Kurt:
Threadtitel müssen aussagekräftig sein
* Titel geändert *
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von "der_Kurt" ( 16. September 2011, 20:26)
Dim DI As New leInfo( "Pfad")
Dim OhneEndung As String = (DI. Extension, "")
Wenn du den ganzen Pfad ohne die Dateiendung willst schreib einfach statt "Name" "Fullname" hin. Mfg Dancger
MESS WITH THE BEST, DIE LIKE THE REST! Dim Filename As String = "C:\Moon\"
Dim WithoutExtension As String = (Filename)
3 Benutzer haben hier geschrieben
haiyyu (1)
Dancger (1)
Gast (1)
Sonstige Problemstellungen »
So war es Stehr, der mit seiner Erfindung bewiesen hat, dass mindestens 50% der Energie, die bei herkömmlichen Verdichtungsgeräten benötigt wird, für unnötige Schwingungen in die Umgebung verloren geht. So wird für den stärksten Stehr Verdichter SBV 160 HF mit 160 KN Wuchtkraft, bei einer Frequenz von 70 Hertz nur eine Leistung von 20 kW benötigt. Um diese zu erreichen, wird eine Ölmenge von 60 Litern bei 200 bar benötigt. Stehr ist der einzige Hersteller weltweit, der Anbauverdichter mit dieser großen Wuchtkraft und hohen Erregerfrequenz herstellt. Stehr Baumaschinen GmbH - Stehr Anbauverdichter SBV 80 HF / 160 HF. Hier wurde der Stand der Technik neu definiert. Wie dem Fachmann bekannt ist, werden beim Verdichten durch die Einwirkung der Vibration in den Boden, die einzelnen Körner in Schwingungen versetzt. Dadurch verlagern sich diese zwischen die Hohlräume der größeren Körner - es entsteht eine dichtere, tragfähigere Lage. Dies kann durch den Einsatz der Stehr Plattenverdichter mit ihrer innovativen Technologie noch um einiges verbessert werden. Durch die patentierte 4-Wellen-Technologie mit einer Vibrationsfrequenz von 70 Hz wird das zu verdichtende Material ca.
Stehr Baumaschinen Gmbh - Stehr Anbauverdichter Sbv 80 Hf / 160 Hf
Alles für die Baustelle aus einer Hand – das gibt es nur hier! Anbauverdichter, Einsatzort und Startdatum wählen und nur das sehen, was wirklich zur Miete bereitsteht. Keine langwierigen Anfragen. Verschiedenste Vermieter von Anbauverdichtern und anderen Anbaugeräten auf einer Plattform vereint. In der Kategorie Baggeranbaugeräte stehen neben Anbauverdichtern auch Greifer und Hydraulikhämmer zur Auswahl. Warum über mieten? Verschiedenste Baumaschinen Verschiedenste Vermieter Verfügbares Bagger-Zubehör auf einen Blick Online-Buchung mit Liefergarantie Häufige Fragen in der Kategorie Anbaugeräte für Bagger
MTS Anbauverdichter V8 X3 R9 VA
Göppingen Angebot anzeigen
2019
Gewicht: 1. 220 Kg
29. 450 €
hydraulische SW-Aufnahme OQ 70/55, 3 Verdichtungsstufen X1/X2/X3, Verdichtungsassistent, hydraulisches Drehwerk Hersteller MTS Typ V8 X3 R9 VA Gewicht 1220 kg Baujahr 2019 Serien-Nr. V08. 19. 2026. X3=GP4291 Zustand sehr gut Größe für Trägergeräte von 14-30 to Breite 820 mm Höhe 790 mm Länge 1425 mm... mehr
MTS Anbauverdichter V7 X3 R9 VA
Gewicht: 1. 070 Kg
27. 900 €
hydraulische SW-Aufnahme OQ 65, 3 Verdichtungsstufen X1/X2/X3, Verdichtungsassistent VA, hydraulisches Drehwerk R9 Hersteller MTS Typ V7 X3 R9 VA Gewicht 1070 kg Baujahr 2019 Serien-Nr. V07. 1162. X3=GP4289 Zustand sehr gut Größe für Trägergeräte von 10-19 to Breite 730 mm Höhe 780 mm Länge 1425 mm... mehr
MTS Anbauverdichter V6 X1 R6 VA
Gewicht: 620 Kg
23. 300 €
hydraulische SW-Aufnahme OQ 65, 1 Verdichtungsstufen X1, Verdichtungsassistent VA, hydraulisches MTS-Drehwerk R6 Hersteller MTS Typ V6 X1 Gewicht 620 kg Baujahr 2019 Serien-Nr. V06.