Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Formel als Code in VBA | Herbers Excel-Forum


Betrifft: Formel als Code in VBA von: Claudia
Geschrieben am: 09.01.2012 20:29:40

Hallo guten Abend alle zusammen,

wer kann mir bitte mit einem kleinen VBA-Code helfen?

Welchen VBA-Code benötige ich wenn ich die letzten 4 Stellen des Dateinamens in die Zelle V2 des Tabellenblattes Einstellungen reinschreiben möchte.

Das besagte Tabellenblatt ist/wird mit xlVeryHidden im Workbook_Open am Anfang ausgeblendet.

Mit einer Formel geht das ja so: =TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))-9;4)
Aber mit VBA bekomme ich es einfach nicht hin.

Danke für Eure Mithilfe
Gruß Claudia

  

Betrifft: AW: Formel als Code in VBA von: Josef Ehrensberger
Geschrieben am: 09.01.2012 20:40:00


Hallo Claudia,
Sheets("Einstellungen").Range("V2") = Right(ThisworkBook.Name, 4)



« Gruß Sepp »



  

Betrifft: AW: Formel als Code in VBA von: ransi
Geschrieben am: 09.01.2012 20:41:02

Hallo

Hm...,

Wo ist das Problem ?

Sheets("Einstellungen").Range("V2").Value = Right(ThisWorkbook.Name, 4)


ransi


  

Betrifft: AW: Formel als Code in VBA von: JoWe
Geschrieben am: 09.01.2012 20:44:52

Hi Claudia,
vllt. aber auch so, falls Du nicht nur ".xls" in V2 benötigst:

Sub Teil_Dateiname_in_Zelle()
    Sheets("Einstellungen").Range("V2") = _
        Right(Replace(ThisWorkbook.FullName, ".xls", ""), 4)
End Sub

Gruß
Jochen


  

Betrifft: AW: Formel als Code in VBA von: Claudia
Geschrieben am: 09.01.2012 20:56:08

Hallo Jochen,
da die Datei eine xlsm ist brauchte ich das xls nur in xlsm ändern und genau das wars dann.
Danke Claudia


  

Betrifft: Die Formel war aber falsch ... von: Matthias L
Geschrieben am: 09.01.2012 20:55:03

Hallo

Zitat
Mit einer Formel geht das ja so: =TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))-9;4)

Das ist aber nicht ganz korrekt!
Tabelle1

 BC
6Dateiname:MeinDateiname.xls
7 inam

Formeln der Tabelle
ZelleFormel
C7=TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))-9;4)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Du müsstest 4 Zeichen links vom Punkt darstellen. Es gibt ja .xls .xlsx .xlsm usw.



Du kannst aber den Namen auch so auslesen
Für eine .xls-Datei z.B so ...
Sub myCode()
Dim Strg$
Strg = ThisWorkbook.FullName
MsgBox Mid(Strg, Len(Strg) - 7, 4)
End Sub
Je nach Dateiendung einfach anpassen


für .xlsm z.B
Sub myCode()
Dim Strg$
Strg = ThisWorkbook.FullName
MsgBox Mid(Strg, Len(Strg) - 8, 4)
End Sub
Gruß Matthias


Beiträge aus den Excel-Beispielen zum Thema "Formel als Code in VBA"