wie kann ich Blattregistername in eine Zelle kopieren?
Gruß Marcus
wie kann ich Blattregistername in eine Zelle kopieren?
Gruß Marcus
D:\Eigene Dateien\Hajo\Internet\[Dateiname in Zelle.xls]Tabelle1 Phad + Datei + Register
2 Dateiname in Zelle.xls Dateiname mit Endung
3 Dateiname in Zelle Dateiname ohne Endung
4 Tabelle1 Register von WF
5 D:\Eigene Dateien\Hajo\Internet\ nur Phad
Formeln der Tabelle
A1 : =ZELLE("Dateiname";A1) A2 : =TEIL(ZELLE("Dateiname";A1);FINDEN("[";ZELLE("Dateiname";A1))+1;FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-1) A3 : =TEIL(ZELLE("Dateiname";A1);FINDEN("[";ZELLE("Dateiname";A1))+1;FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-5) A4 : =TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255) A5 : =TEIL(ZELLE("Dateiname";A1);1;FINDEN("[";ZELLE("Dateiname";A1))-1)
gruß
andreas e
=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255)
gruß
andreas e
Sub test()
Cells(1, 1).Value = ThisWorkbook.Path
Cells(2, 1).Value = ThisWorkbook.FullName
Cells(3, 1).Value = ThisWorkbook.ActiveSheet.Name
Cells(4, 1).Value = ThisWorkbook.Name
End Sub
auch Dir sei Dank. Hat auch sehr gut funktioniert
Gruß Marcus