Supportnet / Forum / Tabellenkalkulation

Hallo. Ich habe eine Frage. Wie stell ich es an, dass ich in einer Excel Datei in einer gewissen Zelle nur den aktuellen Benutzernamen eingeben kann. Es soll quasi als unterschied dienen und es darf immer nur der aktuelle Benutzername eingegebn werden. mfg Mathias

Hi Mathias,

mit folgendem Code wird jede Eingabe in Zelle D1, wenn sie nicht dem Anmeldenamen (wie er von der Excelumgebung erkannt wird) übereinstimmt, sofort wieder gelöscht

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$1" Then Exit Sub
    Application.EnableEvents = False
    If Target.Value <> Environ("Username") Then Target = ""
    Application.EnableEvents = True
End Sub

Bis später,
Karin

Danke Karin,
Aber wie mache ich es,dass ich gleichzeitig 2 komplette Spalten so formatiere???
ich habe nämlich eine Datei da muss ich ca. alle 10 zeilen in zwei spalten so etwas wie eine digitale unterschrift setzen.

MfG Mathias

Hi Mathias,

für Spalte A und D

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("A"), Columns("D")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value <> Environ("Username") Then Target = ""
    Application.EnableEvents = True
End Sub

Bis später,
Karin

Hallo Karin!

Danke für die gute und rasche Hilfe.
Jetzt funktioniert alles so wie ich es mir vorgestellt hatte.
MfG Mathias

Ich habe eine Frage. Ich Suche zu nVidia Mx400 Video Card ein Driver mit Open GL, aber ich finde kein andere.

Hallo Karin,
es passt doch nicht alles mit dem code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A"), Columns("D")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value <> Environ("Username") Then Target = ""
Application.EnableEvents = True
End Sub

der code bezieht sich nicht nur auf spalte A und D, sondern auf alle spalten.

Hi Mathias,

wenn es sich auf alle Spalten bezieht, dann kannst du die Zeile mit If Not... ganz weglassen.

Bis später,
Karin

Hi Karin,
das hab ich auch schon versucht, das hat auch keine auswirkungen,es bezieht sich immer noch auf jede spalte.
MfG Mathias

Hi Mathias,

sorry, ich hatte deinen letzten Beitrag falsch interpretiert. Jetzt müsste der code aber stimmen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 And Target.Column <> 4 Then Exit Sub
    Application.EnableEvents = False
    If Target.Value <> Environ("Username") Then Target = ""
    Application.EnableEvents = True
End Sub

Bis später,
Karin

• Hilfe wird nicht mehr angezeigt
• Hilfe und Supportcenter fehlt
• windows hilfe verschwunden
• hilfe und support kann nicht geoffnet werden, da ein systemdienst nicht ausgefuhrt wird
• Funktion "Hilfe"