Office: Erster Buchstabe einer drop down Auswahl als Grossbuchstabe

Kopiere folgenden Code ins Codemodul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intOperator As Integer
    If Not Intersect(Target, ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub

Bis später,
Karin

 

Funktioniert leider gar nicht. Wenn ich "Eingaben löschen" drücke, wird jede Zelle mit #Wert ausgefüllt und es kommt eine Fehlermeldung, dass dieser Code nicht im geschützten Modus ausgeführt werden kann.

Sorry, aber trotzdem danke.

Ich habe zu Hause Office 2016. Dann warte ich eben auf Office 2018, vielleicht kann man es dann mit der bedingten Formatierung machen. ;-)

Lincoln

 

ne recht einfache möglichkeit. die die vba lösung schlagen wird, ist wohl vergessen worden

gruß carsten

 

Dass beim Löschen von Eingaben #WERT erscheint hat absolut nichts mit dem Code zu tun - deine Mappe enthält bereits Zeilen mit #WERT und diese haben mit deinen Formeln zu tun.

Dein Blatt ist geschützt, deshalb die Fehlermeldung - ergänze den Code wie folgt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intOperator As Integer
    If Target.Column = 3 Or Target.Column = 10 Then
        ActiveSheet.Unprotect
        If Not Intersect(Target, ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
            Application.EnableEvents = False
            Target = Application.Proper(Target)
            Application.EnableEvents = True
        End If
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

Bis später,
Karin

 

Hallo Beverly,

jetzt scheint es zu funktionieren. Danke.
Entschuldige bitte, aber VBA ist für mich noch wie chinesisch. Da weiß man auch nicht, was es alles für Schriftzeichen gibt und in welcher Kombination dann was geschrieben wird.
Aber gönne mir demnächst einen VBA Kurs.

Gruß
Lincoln



Hallo gammaloop,

bei deiner Idee kann ich nicht nachvollziehen, was du gemacht hast.
Alpha, Charlie, Golf und Hotel funktionieren nicht.
Vielleicht kannst du noch etwas dazu sagen?

Gruß
Lincoln

 

kann ich nicht nachvollziehen, bei mir klappt das ohne problem
man muss natürlich nach dem das wort ergänzt wurde aus der zelle klicken, erste danach wird das wort so wie es in der liste steht geändert

ich glaub aber nicht das das der fehler ist...koppkratz...

kannst du meine datei noch mal hochladen, damit ich das nochvollziehen kann?

 

Hallo Beverly,

ich habe jetzt eine Menge mit Codes in VBA rumgespielt und auch viel erreicht. ABER...
... Bei "ActiveSheet.Protect ..." würde ich gerne noch einfügen, dass man Zellen formatieren kann und Objekte bearbeiten kann. Dafür kenne ich die Syntax nicht.
Ich habe es mit "Object:=True" probiert, jedoch ohne Erfolg.

Kannst du mir bitte mitteilen, was ich zum Formatieren der Zellen und Objekte bearbeiten noch anfügen muss?

OK, ich habe ebend nochmal probiert: "ActiveSheet.Protect" (ohne Bedingungen)<ohne bedingungen=""> und dafür das in Excel eingegeben, dann klappts.

ABER...

...dann funktioniert der Großbuchstabe nicht mehr.

Woran kann das liegen?

Gruß
Lincoln
Berlin</ohne>

 

Hi Lincoln,

für Zellformatierung ergänze noch , AllowFormattingCells:=True

Bis später,
Karin

 

Danke

funktioniert.

Jetzt brauche ich nur noch "Objekte bearbeiten:=True" ( in der VBA Sprache natürlich.)

Und noch etwas ist mir aufgefallen:
Wenn ich in der Zeile "If Target.Column = 3 Or Target.Column = 10 Then"
statt 10 eine 8 eintrage, (Die auch von dem Code betroffen sein soll) produziert der "Eingaben löschen" Button lauter #WERT Fehler. Alle anderen Zahlen gehen. Was ist denn an Spalte 8 so besonderes?

Gruß
Lincoln
Berlin

 

Zeichne doch einfach mal den Code auf, wie du den Blattschutz setzen willst.


Definiere im Modul eine Boolean-Variable, die du beim Löshen aller Einträge auf True setzt. Im Change-Ereignis fragst du dann ob, ob die Variable auf False steht - falls ja, dann den Code für die Großschreibung ausführen (andernfalls nichts machen).

Im Modul also ganz oben Public EingabeLoeschen As Boolean und in deiner Sub Eingabeloeschen() zu Beginn diese Zeile ergänzen:

Code:

    EingabeLoeschen = True

Den Code im Codemodul des Tabellenblattes dann so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intOperator As Integer
    If EingabeLoeschen = False Then
        If Target.Column = 3 Or Target.Column = 10 Then
            ActiveSheet.Unprotect
            If Not Intersect(Target, ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
                Application.EnableEvents = False
                Target = Application.Proper(Target)
                Application.EnableEvents = True
            End If
            ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
        End If
    End If
    EingabeLoeschen = False
End Sub

Bis später,
Karin

 

OK, das mit -Eingaben löschen- habe ich hinbekommen. Da mochte er einfach nicht, dass ich im Makrorecorder mehrere Zellen zusammengefasst habe. Jede Zelle einzeln macht er jetzt ohne Probleme.

ABER......

...Wie lautet der Befehl: Objekte bearbeiten:=True ?? auf VBAisch?

Wenn mein Blatt neu anfängt (ich habe es mit der Option -Objekte bearbeiten- (Haken gesetzt) gespeichert.), dann funktioniert das genau einmal (1x). Das heisst für mich, ich gehe in eine Namens- oder Fahrzeugzelle, gebe EINEN Buchstaben ein und kann dann ohne weiters auf den Dropdown-Pfeil gehen und bekomme meine Auswahl ab dem Buchstaben.
-Jetzt durchläuft die Seite deinen Code-
Und in der zweiten Zelle funktioniert das dann nicht mehr.

Da fehlt am Ende: ActiveSheet.protect ObjekteBearbeiten=True.

Oder was mache ich falsch?

Gruß
Lincoln
Berlin

 

Sorry, ich weiß leider nicht was du meinst. Wenn ObjekteBearbeiten erlaubt sein soll, dann muss es so wie in meinem Code heißen - False und nicht True. Und wieso fehlt das am Ende des Codes? Niemand löscht das aus dem Code, es sei denn du hast es weggelassen.

Bis später,
Karin

 

Soo, ich habe jetzt noch einmal nachgeschaut. Der Fehler lag dann doch bei mir. Ich hatte den Code, den du zuerst eingestellt hattest nicht geändert. Da steht nämlich noch "True". Alles klar. Jetzt geht ja plötzlich auch alles wie gewollt.

Danke vielmals

Gruß
Lincoln Berlin

 

Ich werd noch irre.
Im Büro klappt alles. Jetzt habe ich mir die Datei nach Hause geschickt und jetzt bleibt die Freieingabe in den Namenszellen klein.
Bei den Fahrzeugen schreibt er alles groß, was auch OK ist, weil wir auch Brandenburger Kennzeichen haben.
Die Auswahl per Dropdown geht auch.
Nur die Freitexteingaben (auch Namen aus der Liste) bleibt klein.

Liegt das an Office 2016?

Gruß
Lincoln