Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe die ehrenvolle Aufgabe, ca. 400 Autos ind Excel zu erfassen. Hierzu hab ich mir schon ne tolle Tabelle gebastelt. Nun komme ich zu den Eintragung und finde das Eintippen des Kennzeichens sehr lästig. HL-AP 13 oder OD-AF 123. So sollte es dargestellt werden. für mich ist es sicher einfacher, wenn ich schreiben könnte hlap13 oder odaf123 und excel wandelt das entsprechend um. Kann mir kaum vorstellen, dass das funzt. Aber ich habe gesehen, dass viele für mich undenkbare Dinge nicht unmöglich sind ;-) Es wäre mir schon ne Hilfe, wenn ich wenigstens die Großschreibung weglassen könnte. Also wenn ich tippe hl-ap 13 dass er die Buchstaben dann automatisch in groß setzt. Wenn das eine nicht funzt, dann vielleicht diese Variante? Vielen Dank für schnelle Antworten LG

Hallo babe2504,

also dass DU die Kennzeichen alles hinetereinander schreiebn kannst und Excel autoatisch den Bindestrich/ Minuszeichen setzt, wird sicherlich nicht funktionioieren, da Excel dafür alle Kombination von den Anfangsbuchstaben eines Autokennzeichen wissen müsste umd herauszufinden, wo der Bindestrich hin muss. Die Zeit, die Du für das Erfassen der Kombinationen benötigen würdest, wäre genaus lange, wie die 400 Kennzeichen einzugeben.
Aber für die Sache mit der Großschreibung kann Dir geholfen werden. Wenn Du nachfolgenden Code in das VBA-Projekt des Tabellenblattes, in dem Du die Kennzeichen eintragen sollst, kopierst, wird Dir nach jeder Eingabe das Kennzeichen in der Zelle, in dass Du das Kennzeichen eingetragen hast, die Buchstaben in Großschreibung gewandelt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Cells = UCase(Target.Cells)
End Sub

Ich hoffe, Du mommst klar. Bei Fragen melde Dich bitte.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,
ich bin schier begeistert!! Was ich alles kann ;-) Hab noch nie mit VBA gearbeitet, aber dank deiner Homepage/Anleitung hat es geklappt. Auf Anhieb!!! Ein kleines Manko gibt es allerdings noch. Er schreibt jetzt alles in dieser Tabelle groß, nicht nur in der Spalte, in der das Autokennzeichen reinkommt. Aber damit kann ich leben.
Vielen Dank!!!
LG
babe

HAllo babe,


dann musst Du den Bereich eingerenzen, in dem alles groß geschrieben werden soll. Wenn z.B. nur die Einträge in Spalte A groß geschrieben werden sollen, dann müsste der VBA-Code folgendermaßen lauten:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then _
Target.Cells = UCase(Target.Cells)
End Sub

Wenn die aktuell bearbeitete Spalte den Spaltenindex 1, für Spalte A, hat, dann schreibe alles groß. Wenn es sich um Spalte B handeln würde, müsste die 1 gegen eine 2 getauscht werden. Bei Spalte C gegen eine 3, bei Spalte gegen eine 4 usw. bis zur Spalte IV mit der Zahl 256.

Das Ganze kann auch auf Zeilen eingegrenzt werden. Aber hier nun alle Varianten hinzuschreiben ist mir zuviel. Poste den Bereich und ich schreibe Dir wie der Code dazu aussieht.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

oh, vielen dank für die mühe. aber nun hab ich mich gerade an das neue "bild" (alle buchstaben groß) gewöhnt und finde es sehr nett. trotzdem vielen dank. ich hab es mir kopiert und kann es vielleicht mal wieder benutzen.

lg
babe

• Hilfe bei der Erstellung eines Makros
• wieder Makro Code
• Wie kann ich in Excel in jeder Zelle am Ende automatisch ein Komma einfügen?
• Berechnungsergebnis in andere Zelle
• Befehl zum Kopieren eines Zellinhaltes in Wenn Formel verwenden