Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ThisWorkbook.Name ohne Extention?

Forumthread: ThisWorkbook.Name ohne Extention?

ThisWorkbook.Name ohne Extention?
18.05.2009 19:02:57
Jubro
Hallo zusammen,
Ich hoffe auf eure Hilfe bei folgendem Problem:
Mit folgendem Befehl hole ich den aktuellen Namen in eine TextBox was ja ohne weiteres auch kein Problem darstellt :o).
TextBox1.Value = ThisWorkbook.Name
Jetzt wir mir in der TextBox der name mit Extention .xls angezeigt und das ist mein Problem! wie kann ich entweder
  • den Namen ohne Extention
    • oder
  • die Extention .xls in z.B. .txt od. pdf usw. ändern

    • Also in der Art wie TextBox1.Value = Change *.xls zu *.txt
    Wie gesagt es geht dabei nur um den angezeigten Namen nicht um das Format!
    Ich benötige dies um den in der TextBox hinterlegten Namen mit der von mir gewählten Extention an anderen Stellen abzugreifen.
    Gruß Jürgen
    Anzeige

    3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    mit Left() und Len()
    18.05.2009 19:14:11
    Matthias
    Hallo
    z.B. so
    
Private Sub UserForm_Activate()
TextBox1.Value = ThisWorkbook.Name
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 4)
End Sub


    Gruß Matthias

    AW: mit Left() und Len()
    18.05.2009 19:46:47
    Jubro
    Hallo Matthias,
    funzt, vielen Dank
    Gruß Jürgen
    Anzeige
    AW: mit InstRev oder Replace
    18.05.2009 20:01:09
    Daniel
    Hi
    es gäbe noch folgende Möglichkeiten:
    
Textbox1.Value = Replace(Thisworkbook.Name, ".xls", "")


    für den Leerstring kannst du auch beliebigen anderen Text eintragen, wenn die Dateierweiterung von .xls in .txt geändert werden soll:

    
Textbox1.Value = Replace(Thisworkbook.Name, ".xls", ".txt")


    allerdings haben neuere Excelversionen eine andere, vierstellige Dateierweiterung (.xlsx)
    um hier für die Zukunft vorbereitet zu sein, könnte man mit der InstrRev-funtkion "von Rechts" nach dem ersten Punkt suchen und dann die Erweiterung entsprechend abschneiden. Damit es es dann egal. ob 3 oder 4-stellige Dateierweiterungen verwendet werden:

    
Textbox1.Value = Left(Thisworkbook.Name, InstrRev(Thisworkbook.Name, ".")-1)


    Gruß, Daniel

    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Code nach "ThisWorkbook" automatisch per VBA
    Wicki

    Hallo,
    ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
    Hat jemand eine Idee ?...
    12.03.2009 23:16:35
    Thread-ID: 1059712
    5 Beiträge
    Auslesen_Tabellenblattname_eintragen-siehe VBA
    Fabio

    Hallo zusammen,
    mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
    Aktuell habe ich folgendens:
    - Ein Verzeichnis mit 10 Excel-Dateien
    - Die Exeldatein haben...
    06.04.2009 11:13:51
    Thread-ID: 1067062
    4 Beiträge
    Fehlermeldung bei "ActiveWorkbook.Names.Add "
    k

    Hallo, nur mal eben eine kurze Frage:
    Habe eine Userform die beim Start einen Bereich mit einem Namen versehen soll (Dynamisch).
    Ist der Name schon vorhanden - klappt alles super - wenn nicht erhalte ich immer an dieser Stelle eine Fehlermeldung ! "Angegebene Formel enthält ei...
    11.08.2009 11:29:47
    Thread-ID: 1094955
    5 Beiträge
    Anzeige
    ActiveWorkbook.ThemeColorSchem Name auslesen
    Sonnenpeter

    Hallo,
    ich versuche gerade (erfolglos) den Namen des aktuellen Colorschemas
    auszulesen.
    Sub Test() tester = ActiveWorkbook.ThemeColorScheme.Name 'tester = ActiveWorkbook.Theme End Sub Ist der Name des aktuellen Colorschemas überhaupt auslesbar?
    Wenn ja wie? ;-)
    Gruß SP
    17.10.2009 16:10:12
    Thread-ID: 1110320
    4 Beiträge
    ActiveWorkbook.Names.Add - nicht ausgew. Sheet
    Peter

    Guten Tag
    Mit nachfolgender Codezeile definiere ich in im Sheet "Tabellenliste" den Bereich "XTabellen".
    Leider funktioniert das jedoch nur, wenn die Tabelle "Tabellenliste" auch ausgewählt ist. Wie muss ich den Code anpassen, dass die Bereichsdefinition klappt, wenn eine andere Tabelle...
    23.11.2010 11:53:02
    Thread-ID: 1188279
    3 Beiträge
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
    Heinz

    Hallo Leute
    Hatte im Jänner im Forum angefragt.
    Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
    Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
    Warum ?
    Nun hatte ich einen Lösungsvorsc...
    10.03.2011 12:48:10
    Thread-ID: 1205143
    6 Beiträge
    ActiveWorkbook.SaveAs Filename
    Sandra

    Hallo zusammen,
    ich habe mal wieder ein Problem.
    Mit dem nachfolgenden Code lasse ich automatisch speichern.
    Dim Dateiname As String
    Dateiname = oXlSM.Name
    ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
    Das klappt auch fast. Allerdin...
    21.06.2011 16:49:35
    Thread-ID: 1219171
    3 Beiträge
    With ThisWorkbook.Names(sRng).RefersToRange ??
    Peter

    Guten Abend
    Ich habe die Lösung, versteht aber nicht ...
    ... weshalb mit untenstehnde Formel die letzte Spalten-Nr. korrekt ermittelt.
    Weshalb erhalte ich mit der Funktion nLetzteSpalte die korrekte Spaltennumer der letzten Spalte eines Bereiches? .Cells.Count liefert doch die Anzah...
    04.12.2012 16:41:30
    Thread-ID: 1289285
    7 Beiträge
    VBA - ZellNAME auslesen
    Stephan

    Guten morgen und einen angenehmen Montag euch allen ;)
    Sagen wir ich habe für die Zelle "A1" den Namen "Hallo" definiert.
    Sag ich VBA jetzt: MsgBox Thisworkbook.ActiveSheet.Range("A1").Name
    Dann kommt anstatt "Hallo" "A1" raus
    was mach ich falsch?
    28.01.2013 10:34:03
    Thread-ID: 1296291
    2 Beiträge
    VBA: Mehrere Workbooks nach dateinamen prüfen
    david.a2k

    Hallo,
    wie kann ich mit VBA bei allen geöffneten Workbooks prüfen ob sich ein bestimtmes Wort im Dateinamen befindet und dieses Workbook dann löschen?
    Danke und Gruß
    11.07.2014 11:45:43
    Thread-ID: 1369888
    5 Beiträge
    ActiveWorkbook.SaveAs Dateiname aus Strings
    Ben

    Hallo,
    ich habe folgendes VBA Programm als Makro geschrieben:
    Dim pfad As String
    ActiveSheet.Unprotect
    Dim kursbezeichnung As String
    kursbezeichnung = range("F2").Value
    Application.DisplayAlerts = False
    pfad = "C:\1\" & kursbezeichnung & "\Moodlezugangsdaten....
    31.03.2015 14:50:36
    Thread-ID: 1418235
    4 Beiträge
    VBA WebTables Name und Javascript Variable Frage
    Tim

    Hallo Leute,
    bräuchte bitte eure Hilfe; ist es möglich beim auslesen einer Tabelle von einer Website auch den Namen, also die div id zu bekommen?
    Mit diesem Code bekomme ich die Tabelle aber leider ohne Name:
    Set shFirstQtr = Workbooks(1).Worksheets(1) Set qtQtrResults = shFirstQtr...
    09.05.2016 16:52:14
    Thread-ID: 1492392
    3 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige