Wie kann ich den Blattnamen aus Zellinhalt von Zelle B4 erstellen

[Georg Heming]

Ich muss regelmässig den Inhalt einens bestimmten Zellinhaltes als
Blattnamen verwenden, kann ich dieses als Makro einrichten?
Vielen Dank,
Georg Heming

[Jean Ruch]

Post by Georg Heming
Ich muss regelmässig den Inhalt einens bestimmten Zellinhaltes als
Blattnamen verwenden, kann ich dieses als Makro einrichten?
Vielen Dank,
Georg Heming

Hallo Georg,

z.B so
Sub Namensgebung()
ActiveSheet.Name = Range("B4").Formula
End Sub

Diesen kurzen Code einfügen im VBE nach Doppelklick im Projekt Explorer
auf das entsprechende Blatt. Am besten noch eine Tastenkombination zum
Aufrufen definieren.

mit freundlichem Gruß

Jean

[Georg Heming]

Hallo Jean,
sorry, ich kann lediglich mit der Funktion "aufzeichnen" ein Makro
erstellen, die von dir genannten Begriffe sagen mir leider nichts. Gibt es
einen für Laien verständlicheren Weg?
P.S.: Danke für die schnelle Antwort.
Gruß,
Georg

Post by Jean Ruch

Post by Georg Heming
Ich muss regelmässig den Inhalt einens bestimmten Zellinhaltes als
Blattnamen verwenden, kann ich dieses als Makro einrichten?
Vielen Dank,
Georg Heming

Hallo Georg,
z.B so
Sub Namensgebung()
ActiveSheet.Name = Range("B4").Formula
End Sub
Diesen kurzen Code einfügen im VBE nach Doppelklick im Projekt Explorer
auf das entsprechende Blatt. Am besten noch eine Tastenkombination zum
Aufrufen definieren.
mit freundlichem Gruß
Jean

[Jean Ruch]

Post by Georg Heming
Hallo Jean,
sorry, ich kann lediglich mit der Funktion "aufzeichnen" ein Makro
erstellen, die von dir genannten Begriffe sagen mir leider nichts. Gibt es
einen für Laien verständlicheren Weg?
P.S.: Danke für die schnelle Antwort.
Gruß,
Georg

Hallo Georg,

Versuchen wir mal Folgendes.

Angenommen Du arbeitest im Blatt 1 der Mappe 1.

Bei Drücken der Tasten "Alt" + F11 eröffnet sich der VBA Editor.
Normalerweise gibt es da ein Fenster "Projekt-Explorer Mappe 1 VBA
Projekt )
Wenn dieses gerade nicht vorhanden sein sollte, (ich weiß ja nicht wie
Dein VBE momentan konfiguriert ist)
drücke Strg + R dann öffnet sich diese Fenster ganz bestimmt.

Darin sind ähnlich wie im Win-Explorer verschiedene Einträge.
Normalerweise ist jetzt der Eintrag VBA Projekt (Mappe1) aufgeklappt,
wenn nicht, ein Klick auf das Kreuz davor.
Dann sind aufgelistet
Microsoft Excel Objekte, mit den unter-Ordner
Diese Arbeitsmappe und darunter
Tabelle1,
Tabelle2, etc... (so viel Blätter wie Du eben in Deiner Mappe hast)


Wenn Du jetzt auf "Tabelle1" doppelklickst, öffnet sich ein Fenster.
Links steht (Allgemein) rechts :(Deklarationen)
Du brauchst an für sich nur für Deinen Zweck diese drei Zeilen
reinkopieren:

Sub Namensgebung()
ActiveSheet.Name = Range("B4").Formula
End Sub

Um jetzt noch eine Tastenkombination dafür zuzuordnen, mach Folgendes:
Schließe dieses Fenster mit dem Code Normalerweise bist Du wieder in
Excel und drücke Alt + F8

im Fenster das sich öffnet, klicke auf "Tabelle1. Namensgebung" Das
ist nämlich das Makro das wir eben erstellt haben.
Und dann auf "Optionen"
An der Stelle wo der Cursor steht (blinkend) , d.h. unter dem Eintrag
Tastenkombination gib zum Beispiel N ( als Umschalt Taste + c) ein.
Der Eintrag vor diesem Eintrag ändert sich automatisch auf Strg + Umsch
N
Nun OK anklicken. Das wär's schon

Schließe beide kleinere Fenster vom VBE und gib in Excel im Blatt1 nun
einen Eintrag , z.B. Neuer_Name in Zelle B4.
Wenn Du nun Strg + Umsch +N drückst müßte sich der Name "Tabelle1" in
"Neuer_Name" umwandeln.

Ist dem so? Versuche es mal ( ich hoffe ich habe das verständlich genug
erläutert )und melde Dich zurück wenn es nicht funktionieren sollte.
Ist es übrig auch das was Du wolltest ? Wenn nicht gib Deine
Änderungswünsche Preis.

mit freundlichem Gruß

Jean





l

[Georg Heming]

Hallo Jean,
habe nach deiner Anleitung gearbeitet, alles funzt prima. Bin total
begeistert. Habe jetzt sogar mehrere Makros in eins kombiniert. Die Übung
macht?s. Das einzige kleine Problem ist, die Formatierung der Zelle ist im
Datumsformat, er übernimmt also nur die Windowszahl statt des Datums, wenn
ich das Datum mit Kommas eingebe klappt es, sieht halt nicht so gut aus.
Gibt es die Möglichkeit was zu ändern?

Gruß,
Georg

Post by Georg Heming

Post by Georg Heming
Hallo Jean,
sorry, ich kann lediglich mit der Funktion "aufzeichnen" ein Makro
erstellen, die von dir genannten Begriffe sagen mir leider nichts.

Gibt es

Post by Georg Heming
einen für Laien verständlicheren Weg?
P.S.: Danke für die schnelle Antwort.
Gruß,
Georg

Hallo Georg,
Versuchen wir mal Folgendes.
Angenommen Du arbeitest im Blatt 1 der Mappe 1.
Bei Drücken der Tasten "Alt" + F11 eröffnet sich der VBA Editor.
Normalerweise gibt es da ein Fenster "Projekt-Explorer Mappe 1 VBA
Projekt )
Wenn dieses gerade nicht vorhanden sein sollte, (ich weiß ja nicht wie
Dein VBE momentan konfiguriert ist)
drücke Strg + R dann öffnet sich diese Fenster ganz bestimmt.
Darin sind ähnlich wie im Win-Explorer verschiedene Einträge.
Normalerweise ist jetzt der Eintrag VBA Projekt (Mappe1) aufgeklappt,
wenn nicht, ein Klick auf das Kreuz davor.
Dann sind aufgelistet
Microsoft Excel Objekte, mit den unter-Ordner
Diese Arbeitsmappe und darunter
Tabelle1,
Tabelle2, etc... (so viel Blätter wie Du eben in Deiner Mappe hast)
Wenn Du jetzt auf "Tabelle1" doppelklickst, öffnet sich ein Fenster.
Links steht (Allgemein) rechts :(Deklarationen)
Du brauchst an für sich nur für Deinen Zweck diese drei Zeilen
Sub Namensgebung()
ActiveSheet.Name = Range("B4").Formula
End Sub
Schließe dieses Fenster mit dem Code Normalerweise bist Du wieder in
Excel und drücke Alt + F8
im Fenster das sich öffnet, klicke auf "Tabelle1. Namensgebung" Das
ist nämlich das Makro das wir eben erstellt haben.
Und dann auf "Optionen"
An der Stelle wo der Cursor steht (blinkend) , d.h. unter dem Eintrag
Tastenkombination gib zum Beispiel N ( als Umschalt Taste + c) ein.
Der Eintrag vor diesem Eintrag ändert sich automatisch auf Strg + Umsch
N
Nun OK anklicken. Das wär's schon
Schließe beide kleinere Fenster vom VBE und gib in Excel im Blatt1 nun
einen Eintrag , z.B. Neuer_Name in Zelle B4.
Wenn Du nun Strg + Umsch +N drückst müßte sich der Name "Tabelle1" in
"Neuer_Name" umwandeln.
Ist dem so? Versuche es mal ( ich hoffe ich habe das verständlich genug
erläutert )und melde Dich zurück wenn es nicht funktionieren sollte.
Ist es übrig auch das was Du wolltest ? Wenn nicht gib Deine
Änderungswünsche Preis.
mit freundlichem Gruß
Jean
l

[Jean Ruch]

Post by Georg Heming
Hallo Jean,
habe nach deiner Anleitung gearbeitet, alles funzt prima. Bin total
begeistert. Habe jetzt sogar mehrere Makros in eins kombiniert. Die Übung
macht?s. Das einzige kleine Problem ist, die Formatierung der Zelle ist im
Datumsformat, er übernimmt also nur die Windowszahl statt des Datums, wenn
ich das Datum mit Kommas eingebe klappt es, sieht halt nicht so gut aus.
Gibt es die Möglichkeit was zu ändern?

Hallo Georg

Danke für die Rückmeldung. Es freut mich wenn ich Dich in Sache Makro
etwas weiter bringen konnte . Bin ja selbst auch kein Meister in der
Sache ....

Was ich Dir noch sagen wollte:

Wenn Du das Makro eingibst nicht in dem Fenster, das sich öffnet bei
Doppelklick im Projekt Explorer auf "Tabelle 1 "
sondern nach Dopppelklick auf "Diese Arbeitsmappe",
dann ist das Makro verständlicherweise wirksam in jedem Blatt dieser
Mappe .

Deshalb lautet auch der Bezug nicht zuletzt "activesheet" und nicht
spezifisch auf ein spezielles Blatt wie es man schon im Code hätte
einschränken könnenn
( z.B. mit Sheets("Tabelle1") ).
Hatte ich gestern vergessen zu sagen

Post by Georg Heming
Das einzige kleine Problem ist, die Formatierung der Zelle ist im
Datumsformat, er übernimmt also nur die Windowszahl statt des Datums, wenn
ich das Datum mit Kommas eingebe klappt es, sieht halt nicht so gut aus.
Gibt es die Möglichkeit was zu ändern?

Aber ja, doch

Wenn Du z.B schreibst:

ActiveSheet.Name = CStr(Range("B4"))

so wandelst Du dieses Datum vorher in einen Text-String
und Excel erkennt nicht mehr, (wenn Du es ihm nicht befehlst),
daß es der x.te Tag nach dem 01.01.1900 ist :-)
Für Excel ist dies dann reiner Text.

Also wird auch im Reiter BlattName der gleiche Ausdruck erscheinen
als in Deiner Zelle B4

mit freundlichem Gruß

Jean

[Georg Heming]

Hallo Jean,
Alles total super, die direkte Mail an dich war ein versehen, sorry. Makro
funzt absolut zufriedenstellend.

Gibt es hier eigentlich auch info`s zum Pocket-Excel? Ich suche nämlich nach
einer Funktion, mit der ich das aktuelle Datum in eine Zelle einfügen kann.
Der Befehl =heute() ändert sich ja ständig. Ausserdem suche ich für eine
professionelle Anwendung einen Programmierer für Pocket-Excel, der eine auf
Excel aufbauende Anwendung programmieren kann.

Schönen Gruß aus Hörstel-Bevergern

Georg

Post by Georg Heming

Post by Georg Heming
Hallo Jean,
habe nach deiner Anleitung gearbeitet, alles funzt prima. Bin total
begeistert. Habe jetzt sogar mehrere Makros in eins kombiniert. Die

Übung

Post by Georg Heming
macht?s. Das einzige kleine Problem ist, die Formatierung der Zelle

ist im

Post by Georg Heming
Datumsformat, er übernimmt also nur die Windowszahl statt des Datums,

wenn

Post by Georg Heming
ich das Datum mit Kommas eingebe klappt es, sieht halt nicht so gut

aus.

Post by Georg Heming
Gibt es die Möglichkeit was zu ändern?

Hallo Georg
Danke für die Rückmeldung. Es freut mich wenn ich Dich in Sache Makro
etwas weiter bringen konnte . Bin ja selbst auch kein Meister in der
Sache ....
Wenn Du das Makro eingibst nicht in dem Fenster, das sich öffnet bei
Doppelklick im Projekt Explorer auf "Tabelle 1 "
sondern nach Dopppelklick auf "Diese Arbeitsmappe",
dann ist das Makro verständlicherweise wirksam in jedem Blatt dieser
Mappe .
Deshalb lautet auch der Bezug nicht zuletzt "activesheet" und nicht
spezifisch auf ein spezielles Blatt wie es man schon im Code hätte
einschränken könnenn
( z.B. mit Sheets("Tabelle1") ).
Hatte ich gestern vergessen zu sagen

Post by Georg Heming
Das einzige kleine Problem ist, die Formatierung der Zelle ist im
Datumsformat, er übernimmt also nur die Windowszahl statt des Datums,

wenn

Post by Georg Heming
ich das Datum mit Kommas eingebe klappt es, sieht halt nicht so gut

aus.

Post by Georg Heming
Gibt es die Möglichkeit was zu ändern?

Aber ja, doch
ActiveSheet.Name = CStr(Range("B4"))
so wandelst Du dieses Datum vorher in einen Text-String
und Excel erkennt nicht mehr, (wenn Du es ihm nicht befehlst),
daß es der x.te Tag nach dem 01.01.1900 ist :-)
Für Excel ist dies dann reiner Text.
Also wird auch im Reiter BlattName der gleiche Ausdruck erscheinen
als in Deiner Zelle B4
mit freundlichem Gruß
Jean

[Jean Ruch]

Post by Georg Heming
Hallo Jean,
Alles total super, die direkte Mail an dich war ein versehen, sorry. Makro
funzt absolut zufriedenstellend.
Gibt es hier eigentlich auch info`s zum Pocket-Excel? Ich suche nämlich nach
einer Funktion, mit der ich das aktuelle Datum in eine Zelle einfügen kann.
Der Befehl =heute() ändert sich ja ständig. Ausserdem suche ich für eine
professionelle Anwendung einen Programmierer für Pocket-Excel, der eine auf
Excel aufbauende Anwendung programmieren kann.
Schönen Gruß aus Hörstel-Bevergern
Georg

Hallo Georg,

Danke für die Rückmeldung.
Es freut mich wenn alles so läuft wie Du es haben wolltest.

Was Dein Anliegen bezüglich Pocket Excel betrifft.

Da muß ich leider passen. wäre Neuland für mich...
Aber ich empfehle Dir einen neuen Thread in dieser Gruppe aufzutun.
Im gegenwertigem sind wir doch zu weit vorangeschritten und viele
Leute werden ihn nicht bis zum letzten Gedankenaustausch verfolgen.

Du erreichst hier viele sehr kompetente Leute, die Dir bestimmt
weiterhelfen können. Darunter auch mehrere, die Auftrags-Programmierung
professionell durchführen und die höchst wahrscheinlich mit Dir Kontakt
aufnehmen werden.

Schönen Sonntag!

mit freundlichem Gruß

Jean

[Frank Kabel]

Hi
siehe:
http://www.xldynamic.com/source/xld.xlFAQ0002.html

--
Regards
Frank Kabel
Frankfurt, Germany

Post by Georg Heming
Ich muss regelmässig den Inhalt einens bestimmten Zellinhaltes als
Blattnamen verwenden, kann ich dieses als Makro einrichten?
Vielen Dank,
Georg Heming