Office: Tabellename in Zelle

Hallo,

Tabellen wurden nicht übersetzt.
für Tabellenname in Zelle habe ich eine Formel gefunden.
=TEIL(ZELLE("dateiname");SUCHEN("]";ZELLE("dateiname"))+1;LÄNGE(ZELLE("dateiname")))
In einer dem Tabelle wie gepostet wird der Name angezeigt.
In einer anderen gespeicherten Tabelle wird 'Wert# angezeigt.
=SVERWEIS(ADRESSE(ZEILE();SPALTE();4;1;TEIL(ZELLE("dateiname");SUCHEN("]";ZELLE("dateiname"))+1;LÄNGE(ZELLE("dateiname"))));Übersetzung!$A:$AA;VERGLEICH($O$4;Übersetzung!$1:$1;1))

Ich habe eine Extra Tabelle "Übersetzung" in der Ausdruck "Frei!J43" gesucht wird um einen entsprechen Text zu suche.
der Ausdruck ZELLE("dateiname") ergibt ""
Wie löse ich das Problem?
insgesamt möchte ich erreichen
Frei!J43 also aktuelle Zelle + Tabellenname.

Gruß Hajo

 

Hi,

ohne Tabelle?
Schon mal Formelauswertung angewandt?
Wenn ich das nachbaue, ergibt sich als Suchbegriff der Wert aus der Zelle in der die Formel steht, also ein klassischer Zirkelbezug.

 

Moin allerseits,

macht's doch nicht so kompliziert nehmt VBA
(Code ins Sheet, oder mit anderem Trigger in ein allg. Modul):

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target = ActiveSheet.Name
End Sub

Oder (allerdings nur wenn die Datei gespeichert ist!) so:

Code:

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

Die Formel in die Zielzelle, aber wem sag ich das ...

Schöne Grüße

 

Hallo d'r Bastler,

ich bin auch eher der VBA Mensch. bei dieser Datei wollte ich auf Makros verzichten.
Deine Formel liefert auch #Wert.
Ich bin nicht an meinen Homerechner, darum kenne ich nicht der Code für Html.

Die Datei ist als Mustervorlage abgelegt öffne ich diese, liefert meine Formel das richtige Ergebnis.
Mache ich ein Doppelklick und speichern steht Wert#, nach F9 ist es korrekt.
Ich vermute das Problem kann nur mit VBA gelöst werden?

Gruß Hajo

 

Moin!
Edgar hat doch alles Wichtige geschrieben!
Der Suchwert im SVERWEIS()
ADRESSE(ZEILE();SPALTE();4;1;TEIL(ZELLE("dateiname");SUCHEN("]";ZELLE("dateiname"))+1;LÄNGE(ZELLE("dateiname"))))
ist die Zelle, in der die Formel steht!

Arbeitsblatt mit dem Namen 'wdk Prüfung'
	N
4	'wdk Prüfung'!N4

Zelle	Formel
N4	=ADRESSE(ZEILE();SPALTE();4;1;TEIL(ZELLE("dateiname");SUCHEN("]";ZELLE("dateiname"))+1;LÄNGE(ZELLE("dateiname"))))

Gebe ich den Formelwurm aus der Threaderöffnung bspw. in X42 ein, dann ergibt die Formelauswertung des Suchwerts X42 also einen Zirkelbezug!

Off topic:
Statt
=TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+1;255)
nimmt man in aktuellen Excel-Versionen einfacher
=TEXTNACH(ZELLE("dateiname");"]")

Gruß Ralf

 

Hallo d'r Bastler,

ich habe deine Code als Grundlage genommen.

Code:

Option Explicit

Function ATabelle() As String
    ATabelle = ActiveSheet.Name
End Function

und in Zelle
=SVERWEIS(ATabelle()&"!"&ADRESSE(ZEILE();SPALTE();4);Übersetzung!$A:$AA;VERGLEICH($O$4;Übersetzung!$1:$1;1);WAHR)

Danke für Deine Lösung

Gruß Hajo

 

Hallo Ralf,

=TEXTNACH(ZELLE("dateiname");"]")
ergibt in der Datei auch nur Wert#, ich muss erst F9 Drücken.

Gruß Hajo