Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
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
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wie kann ich den Blattname in eine Zelle kopieren?

Wie kann ich den Blattname in eine Zelle kopieren?
20.01.2003 16:29:05
Marcus
Hallo Leute;

wie kann ich Blattregistername in eine Zelle kopieren?

Gruß Marcus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wie kann ich den Blattname in eine Zelle kopieren?
20.01.2003 16:36:26
andreas e
hallo marcus,
hier ein tip von Hajo


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

Anzeige
=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("date
20.01.2003 16:42:46
andreas e
hier nun ohne chaos !

=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255)

gruß
andreas e

Re: Wie kann ich den Blattname in eine Zelle kopieren?
20.01.2003 16:43:33
Carsten
probiers mal damit...

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

Re: Wie kann ich den Blattname in eine Zelle kopieren?
20.01.2003 17:17:21
Marcus
Hi Carsten,

auch Dir sei Dank. Hat auch sehr gut funktioniert

Gruß Marcus

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige