Damit ist aber m.E. auch schon klar, dass das bei einer Bearbeitung mit MSExcel nicht funktionieren wird.
Und wieso?
Wieso schließt Du aus einem Text, der überhaupt nichts über eine Nicht-Funktion unter MS Excel sagt, das eine solche Nichtfunktion vorläge? (= das "Damit" in Deiner Aussage)
Ich würde nur gerne die Logik Deiner Aussage verstehen.
Im Übrigen geht das Ganze, beispielsweise wie folgt (wobei ich nicht den Anspruch erhebe das das bereits der bestmögliche Weg wäre, es ist lediglich ein Weg der mir als Erstes einfiel):
Vorausetzung (als Beispiel):
Name des ersten Tabellenblattes soll auf den Namen geändert werden der in Zelle B2 steht, wenn sich Zelle B1 ändert
Tue in MS Excel Folgendes:
-neue Datei anlegen
-in Zelle B2 den Text "abc" schreiben
-für die Tabelle in der Basic-IDE folgenden Code zuordnen:
Code: Alles auswählen
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
Sheets(1).Name = Sheets(1).Range("B2").Text
End If
End Sub
-ein neues Code-Modul erstellen
-dort folgenden Code eintragen:
Code: Alles auswählen
Function blattname(x)
On Error GoTo schluss
ThisComponent.Sheets(0).Name = ThisComponent.Sheets(0).getCellRangeByName("B2").String
schluss:
End Function
-in Zelle E1 des Tabellenblattes folgende Formel eintragen:
=BLATTNAME(B1)
-Datei als *.xls speichern
Die Datei funktioniert nun in MS Excel und OOo-Calc.
Weitere Anpassungen/Verbesserungen (beispielsweise ist noch abzufangen das sich beim Öffnen in Calc einmalig der Blattname deshalb ändert weil normalerweise alle formeln neu berecvhnet werden) liegen in Deinen Händen, denn
das Ganze hier ist nur ein ganz einfaches Beispiel.
Gruß
Stephan
[quote]Damit ist aber m.E. auch schon klar, dass das bei einer Bearbeitung mit MSExcel nicht funktionieren wird.[/quote]
Und wieso? [b]Wieso schließt Du aus einem Text, der überhaupt nichts über eine Nicht-Funktion unter MS Excel sagt, das eine solche Nichtfunktion vorläge?[/b] (= das "Damit" in Deiner Aussage)
Ich würde nur gerne die Logik Deiner Aussage verstehen.
Im Übrigen geht das Ganze, beispielsweise wie folgt (wobei ich nicht den Anspruch erhebe das das bereits der bestmögliche Weg wäre, es ist lediglich ein Weg der mir als Erstes einfiel):
Vorausetzung (als Beispiel):
Name des ersten Tabellenblattes soll auf den Namen geändert werden der in Zelle B2 steht, wenn sich Zelle B1 ändert
Tue in MS Excel Folgendes:
-neue Datei anlegen
-in Zelle B2 den Text "abc" schreiben
-für die Tabelle in der Basic-IDE folgenden Code zuordnen:
[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
Sheets(1).Name = Sheets(1).Range("B2").Text
End If
End Sub[/code]
-ein neues Code-Modul erstellen
-dort folgenden Code eintragen:
[code]Function blattname(x)
On Error GoTo schluss
ThisComponent.Sheets(0).Name = ThisComponent.Sheets(0).getCellRangeByName("B2").String
schluss:
End Function[/code]
-in Zelle E1 des Tabellenblattes folgende Formel eintragen:
=BLATTNAME(B1)
-Datei als *.xls speichern
Die Datei funktioniert nun in MS Excel und OOo-Calc.
Weitere Anpassungen/Verbesserungen (beispielsweise ist noch abzufangen das sich beim Öffnen in Calc einmalig der Blattname deshalb ändert weil normalerweise alle formeln neu berecvhnet werden) liegen in Deinen Händen, denn [u]das Ganze hier ist nur ein ganz einfaches Beispiel[/u].
Gruß
Stephan