Office: Text ("Name eingeben") soll immer in Zelle stehen, wenn diese Zelle Leer ist

Hallo Leute,
ich brauche als Exelanfänger mal wieder ein wenig Hilfestellung bei einer Problemlösung:

Ich möchte bei einer Zelle (z.B. A1) über eine "bedingte Formatierung" wahrscheinlich aber mit VBA eine Aktion ausführen lassen. Ich weiß aber nicht in wie weit dies geht oder mit VBA umsetzbar ist.
Ich könnte mir auch vorstellen die Prüfung der Zelle A1 von einer anderen Zelle (z.B. B1) aus vorzunehmen um dann von de Zelle B1 über eine Formel die Aktion starten zu lassen (Aber wie?).

Problemstellung:
In der Zelle A1 soll immer wenn sie Leer ist der Text stehen "Namen eingeben" (oder ähnliches) Wenn ein Name eingegeben wurde soll dieser Name (der vorherige Text soll dann natürlich nicht mehr in der Zelle A1 vorhanden sein) bis zum nächsten öffnen der Exelmappe, dem manuellen löschen aus der Zelle bzw. dem Überschreiben durch einen anderen Namen in dieser Zelle stehen bleiben
Ist die Zelle durch eine der obigen Vorgänge wieder Leer, soll der oben genannte Text dort wieder stehen.

Wenn jemand eine Lösung hat wäre ich dankbar für die Info.

Office Pro 2003 mit SP3
Windows XP Pro mit SP3

MfG
NetMaster

:)

 

Hallo NetMaster1001,

per Formel in B1 zum Beispiel so:

	A	B
1		Bitte in A1 den Namen eingeben!

Zelle	Formel
B1	=WENN(A1="";"Bitte in A1 den Namen eingeben!";"")

Excel Tabellen im Web darstellen >>

 

Hallo NetMaster,

meintest Du das so? (Alt+F4 für Visualbasic - Fenster und Code in Tabellenblatt einfügen)

Code:

Gruß
Thomas

 

hi

versuch

 

Hallo NetMaster,

eine Bsp Datei noch von mir.
Beim Öffnen der Mappe wird der Text "Bitte Namen eingeben" in die Zelle eingetragen.
Danach kannst du nur einmalig einen Namen vergeben ,danach ist die Zelle geschützt bis zum nächsten öffnen.

Grüße
Steffen

 

Hallo Thomas,
ja genau so, nur der eingegebene Name soll nach dem schließen der Arbeitsmappe und dem erneuten wieder durch den Text ersetz sein.

Aber dafür schon mal ein Danke von mir.

Gruß
Heiko (NetMaster)

 

Hallo Heiko,

wenn beim Öffnen der Arbeitsmappe der Name wieder durch den Text ersetzt werden soll den gebe im Visualbasic - Fenster in "Arbeitsmappe" folgenden Code ein Code:

Gruß
Thomas

 

Hallo Ingolf,
auch Dir ein Danke!

Nur der Text "Bitte den Namen eingeben" sollte auch im Zelle A1 stehen
Die Formel soll in Zelle B1 stehen damit sie bei der Namenseingabe in Zelle A1 nicht gelöscht wird

Gruß
Heiko (NetMaster)

 

Danke Thomas,
hab ich gleich übernommen
Gruß
Heiko

 

Hallo Steffen,
das Ding ist Cool,

Beim ausprobieren hatte ich gleich eine Idee

Ist es möglich den Code so zu verändern, das folgendender Ablauf startet.

Ausgangsituation: Alle Blätter und VBA-Codes sind mit einem Passwort geschützt.

Wenn die Exelmappe geöffnet wird können nur die Zellen bearbeitet und ausgefüllt werden die nicht geschützt sind.
Das enzige nicht gesperrte Feld ist das Eingabe Feld für den Namen (Bitte Namen eintragen) Einzelne Benutzernamen schalten die für sie berechtigten Blätter (Register) und Zellen zur Bearbeitung frei.
Nur wenn ein bestimmter Name (Adminname) eingegeben wird, wird auch eine Zelle für eine Zusätzliche Passworteingabe entsperrt.
Wenn mann dann in diese Zelle das Masterpasswort setzt werden alle Register,Zellen und Funktionen sowie die VBA-Codes zum bearbeiten freigeschaltet
Macht man danach die Exelmappe zu und öffnet sie später ist der vorherige Zustand mit allen Sperrungen wieder vorhanden.

Isf das machbar.
Gruß Heiko

 

Hallo Heiko,
klar geht das , gibts zu Hauf im WWW .
Schau mal hier ob was passendes für dich dabei ist:

http://www.herber.de/forum/archiv/880to884/t883718.htm

Grüße
Steffen

 

Grüezi Heiko

Für deine Bedürfnisse könnte auch das folgne Feature interessant sein:

Extras/Schutz/Benutzer dürfen Bereiche bearbeiten

Hier kannst Du in Abhängigkeit vom Anmeldenamen am System die Berechtigungen pro user festlegen.

 

Danke Dir mal wieder Thomas,
ich glaube du hast mir auch schon öfter in einem anderen Forum geholfen, oder?

Gruß
Heiko

 

Hallo, ich habe genau das gleiche Problem wie hier beschrieben. Nur möchte ich das der Text nicht nur in Zelle A1 auftaucht sondern in den Zellen A1 bis A50. Wie müsste ich den hier bereits erstellten Code abändern?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1").Value = "" Then
Range("A1").Value = "Bitte Namen eingeben"
End If

End Sub

Ist wahrscheinlich total einfach bekomme es aber irgendwie nicht hin. Über Eure Hilfe würde ich mich freuen!

Gruß Peter