Tabellenblatt Name in Zelle Übernehmen

Stefan_Behrendt · 17. Oktober 2006 um 23:51

Hallo an alle !

ich kann beim Ausdrucken von Excel Arbeitsblättern in der Kopf oder Fußzeilen durch einfügen von &[Register] den Namen eines Tabellenblattes problemlos übernehmen nur wie bekomme ich den Inhalt direckt in eine Zelle?

Ich möchte nichts anderes als in einer Zelle den Namen des Tabellenblattes auslesen nur habe ich bisher nichts gefunden.

Kennt vieleicht jemand von euch da eine einfache Lösung ?

Cu Stefan

Reinhard_fb8cb7 · 18. Oktober 2006 um 00:14

Ich möchte nichts anderes als in einer Zelle den Namen des
Tabellenblattes auslesen nur habe ich bisher nichts gefunden.

Hi Stefan,
prinzipiell steht der Blattname im Ergebnis von
=INFO(„Dateiname“)
und ich bin sicher das ging bei mir früher, jetzt kommt nur #WERT, null Plan warum.
Gebe das mal das bei dir ein, wenn dann ein Ergebnis erscheint, extrahiere ich oder ein andere® den Blattnamen.
Gruß
Reinhard

Marion_L_we · 18. Oktober 2006 um 00:29

Hallo Stefan,

folgende Funktion liefert den vollstandigen Pfad incl. Dateiname und Registername, wenn die Datei bereits gespeichert ist. Ist die Datei nicht gespeichert, wird eine leere Zeichenfolge ("") ausgegeben.

Gruß Maria

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 18. Oktober 2006 um 00:33

folgende Funktion liefert den vollstandigen Pfad incl.
Dateiname und Registername, wenn die Datei bereits gespeichert
ist. Ist die Datei nicht gespeichert, wird eine leere
Zeichenfolge ("") ausgegeben.

Hallo Maria,

Sub Hilfe()
 Dim Txt$, i%, Loesung$
 Txt = "087111032105115116032100101114032067111100101063"
 For i = 1 To Len(Txt) Step 3
 Loesung = Loesung & Chr(Mid(Txt, i, 3))
 Next
 MsgBox Loesung
End Sub

-))

Was mir viel wichtiger ist, klappt bei dir dieser INFo Befehl, also hat mein XL2000 ne Macke?

Gruß
Reinhard

Marion_L_we · 18. Oktober 2006 um 01:13

folgende Funktion liefert den vollstandigen Pfad incl.
Dateiname und Registername, wenn die Datei bereits gespeichert
ist. Ist die Datei nicht gespeichert, wird eine leere
Zeichenfolge ("") ausgegeben.

Hallo Maria,

Sub Hilfe()
Dim Txt$, i%, Loesung$
Txt = „087111032105115116032100101114032067111100101063“
For i = 1 To Len(Txt) Step 3
Loesung = Loesung & Chr(Mid(Txt, i, 3))
Next
MsgBox Loesung
End Sub

Hallo Reinhard,

??? code funktioniert bei mir nicht

Hallo alle,

Aufgabe war:
Wie kann ich den Namen des aktiven Blattes in einer Zelle anzeigen
lassen?

Nachfolgend 3 Möglichkeiten:

Lösung A)

=ZELLE(„Dateiname“;A1)
Liefert den kompletten Dateinamen einschl. Pfad, Dateiname, Blattname.
Voraussetzung: Arbeitsmappe muß gespeichert sein.

Lösung B)

=TEIL(ZELLE(„dateiname“");FINDEN("]";ZELLE(„dateiname“))+1;100)
Liefert den Blattnamen.
Voraussetzung: Arbeitsmappe muß gespeichert sein.

Lösung C)

VBA-Funktion:

Name des aktiven Blattes

Function BlattName()
Application.Volatile
BlattName = ActiveSheet.Name
End Function

Vorstehende Funktion in ein englischsprachiges Modulblatt einfügen.

Mehr fällt mir dazu nicht ein (bin leider nicht so gut in vba (arbeite mich gerade ein - könnte guten Lehrer brauchen )

-))

Was mir viel wichtiger ist, klappt bei dir dieser INFo Befehl,
also hat mein XL2000 ne Macke?

ja, statt B9 geht auch B5 oder A1 oder …
Habe auf 4 PC verschieden Excel-Versionen, funktioniert überall - funktioniert auch in der Firma

Gruß Maria

Gruß
Reinhard

Reinhard_fb8cb7 · 18. Oktober 2006 um 01:32

Sub Hilfe()
Dim Txt$, i%, Loesung$
Txt = „087111032105115116032100101114032067111100101063“
For i = 1 To Len(Txt) Step 3
Loesung = Loesung & Chr(Mid(Txt, i, 3))
Next
MsgBox Loesung
End Sub

??? code funktioniert bei mir nicht

verstehe ich nich, grad noch mal probiert, läuft bei meinem XL2000 problemlos ab.

Lösung A)

=ZELLE(„Dateiname“;A1)
Liefert den kompletten Dateinamen einschl. Pfad, Dateiname,
Blattname.
Voraussetzung: Arbeitsmappe muß gespeichert sein.

Lösung B)

=TEIL(ZELLE(„dateiname“");FINDEN("]";ZELLE(„dateiname“))+1;100)
Liefert den Blattnamen.
Voraussetzung: Arbeitsmappe muß gespeichert sein.

*aaaaargs* zelle, nicht Info *zusammenbrech*

Lösung C)

VBA-Funktion:

Name des aktiven Blattes

Function BlattName()
Application.Volatile
BlattName = ActiveSheet.Name
End Function

Vorstehende Funktion in ein englischsprachiges Modulblatt
einfügen.

Wieso englischsprachig? vba Sprache ist englisch, mag wohl bei XL4.0 anders gewesen sein

Mehr fällt mir dazu nicht ein (bin leider nicht so gut in vba
(arbeite mich gerade ein - könnte guten Lehrer brauchen )

Ich auch, Smalltalk mit Dan Appleman (DER Guru in Amerika für Vba-APIs) und Michael Schwimmer (VBA, Klassenmodule) wünsche ich mir schon. Aber letzlich ist learning by doing effektiver als Kurse, Bücher *find*
Aber bei Interesse, beide haben Bücher verlegt, Dan sogar eins auf Deutsch, beide sind sehr empfehlenswert für Vba. Alle anderen Bücher kannste in die Tonne kloppen.
Mein kleines Excel-Vba-Wissen erwarb ich mir einzig durch Foren.
„kleines“ ist kein Fishing for Compliments, in einem anderen Forum sehe ich Codes von Profis, da fehlt mir noch einiges in Vba, dazu kommt noch Nichtwissen über AAPI und Klassenmodulen…
Gruß
Reinhard

Marion_L_we · 18. Oktober 2006 um 10:47

Hallo Reinhard,

Sub Hilfe()
Dim Txt$, i%, Loesung$
Txt = „087111032105115116032100101114032067111100101063“
For i = 1 To Len(Txt) Step 3
Loesung = Loesung & Chr(Mid(Txt, i, 3))
Next
MsgBox Loesung
End Sub

habe verstanden, war wohl schon spät *g* sorry - tut mir leid, wenn ich hier hoffnungsvolle User fast in die Verzweiflung getrieben habe.
An alle -bitte weiterlesen - Lösungsvorschläge kamen doch noch ein wenig später (da ging wohl noch mal das Licht an bevor ich in die Kiste stieg)

Lösung A)

=ZELLE(„Dateiname“;A1)
Liefert den kompletten Dateinamen einschl. Pfad, Dateiname,
Blattname.
Voraussetzung: Arbeitsmappe muß gespeichert sein.

Lösung B)

=TEIL(ZELLE(„dateiname“");FINDEN("]";ZELLE(„dateiname“))+1;100)
Liefert den Blattnamen.
Voraussetzung: Arbeitsmappe muß gespeichert sein.

Lösung C)

VBA-Funktion:

Name des aktiven Blattes

Function BlattName()
Application.Volatile
BlattName = ActiveSheet.Name
End Function

Mehr fällt mir dazu nicht ein (bin leider nicht so gut in vba
(arbeite mich gerade ein - könnte guten Lehrer brauchen )

Ich auch, Smalltalk mit Dan Appleman (DER Guru in Amerika für
Vba-APIs) und Michael Schwimmer (VBA, Klassenmodule) wünsche
ich mir schon. Aber letzlich ist learning by doing effektiver
als Kurse, Bücher *find*
Aber bei Interesse, beide haben Bücher verlegt, Dan sogar eins
auf Deutsch, beide sind sehr empfehlenswert für Vba.

danke für den Tip

Alle anderen Bücher kannste in die Tonne kloppen.
Mein kleines Excel-Vba-Wissen erwarb ich mir einzig durch
Foren. (so mein denken)
„kleines“ ist kein Fishing for Compliments, in einem anderen
Forum sehe ich Codes von Profis, da fehlt mir noch einiges in
Vba, dazu kommt noch Nichtwissen über AAPI und
Klassenmodulen…

(dito)

Gruß Maria

Stefan_Behrendt · 18. Oktober 2006 um 21:47

Hallo Maria hallo Reinhard !

Recht herzlichen dank für euere unterstützung

habe mich für
=TEIL(ZELLE(„dateiname“);FINDEN("]";ZELLE(„dateiname“))+1;100) endschlossen

nochmals Danke und Tschüß
Stefan Behrendt