Supportnet / Forum / Tabellenkalkulation

Hi, weiß jemand, ob es in Excel möglich ist eine Zelle so zu formatieren, dass nur Großschrift erlaubt ist? Bei Word kann ich über die Schriftformatierung erreichen, dass nur Groß geschrieben werden kann. Hintergrund: Ich hab einen Barcodescanner, der jeden Buchstaben, also auch Großbuchstaben in kleinen Buchstaben auf den Schirm bringt. Leider fehlt mir die Bedienungsanleitung von dem Gerät, da kann ich also nichts ändern. Nun scanne ich Barcodes in mein Arbeitsblatt ein und habe Probleme mit allen möglichen Formeln beim vergleichen, weil die Artikelbezeichnung nicht stimmt. Das Format lautet A12345, der Scanner scannt a12345. Ich kann mir einen Haufen Fehlerkorrekturen sparen, wenn diese Eingabe berichtigt werden würde, z.B. über eine entsprechende Formatierung.

Hallo fehman-online,

also eine passende Formatierung fällt mir im Moment nicht ein!

Lösungsvorschlag:

A1 = Dein Eintrag z.B.: Ab2dE
B1 = =GROSS(A1) Ergebnis = AB2DE

vielleicht hilft es weiter?!?

gruss
pelle

Hi Pelle!

So hab ich es ja auch gemacht, aber die eine Spalte vergrößert die Tabelle meiner Ansicht nach unnötig. Eine Lösung ist es, aber keine elegante, weil man alle Einträge doppelt führt.
Meiner Ansicht nach wäre eine VBA-Lösung sinnvoll. Alle Eingaben eines Bereiches abfangen und in Groß in die Zelle schreiben oder so. Dann könnte man auch gleich das lästige Leerzeichen wegmachen, was grundsätzlich nach dem Scan hinten angehängt wird. Auch so eine Sache die ich korrigieren muss...
=LINKS(GROSS(A1);5) *grummel*
... auf das die Formel länger wird.
Trotzdem danke für den Tipp... VBA kannst Du nicht zufällig? *smile*

du kannst doch auch Spalten ausblenden?!

Gruß Steffen

Hi Steffen!

Klar kann ich die ausblenden... und welche meinst Du? Die zum eingeben oder die zum arbeiten? Da ich die eigentlich nicht benötigte Spalte für die Eingabe brauche, kann ich die nicht ausblenden... und die andere soll gedruckt werden, da macht sich das ausblenden auch nicht so gut. Also hab ich zwei und das ist eine zuviel. Eine für die Eingabe, welche auch gedruckt wird, das wäre ok. Unabhängig davon ist die Tabelle trotzdem größer als nötig, auch wenn die Spalte ausgeblendet wird. Sehe ich mal so. Worauf wolltest Du also hinaus?

dann machst du dir 2 Makros die du in die Symbol-Leiste reinmachst

- ausblenden der Spalte
- einblenden der Spalte

Gruß Steffen

Hi @all,

mit welchen Formeln vergleichst Du denn?

Also VERGLEICH, SVERWEIS unterscheiden nicht zwischen Gross- und Kleinschreibung.
Wenn es da Probleme gibt, dann sind die wahrscheinlich anderer Natur.
Vielleicht werden irgendwelche nicht sichtbaren Sonderzeichen mit ausgelesen, oder es gibt Leerstellen hinter dem String oder...oder..oder..

Wollte ich nur mal darauf hinweisen, nicht daß hier in der falschen Richtung gesucht wird.

CU Aliba

Hallo Detlev,

cih möchte pelles Vorschlag noch erweitern und ergänzen:

=GROSS(GLÄTTEN(A1))

Damit schlägst du 2 Fliegen mit einer Klappe:
alles wird gros geschrieben und die Leerzeichen werden komplett entfernt.

Das mit dem Spalten ein- und ausblenden kann man über die Gliederungsfunktion und Makros m.E: sehr elegant lösen, ggf. sogar kombiniert mit dem automatischen DRucken.

CU
want2cu

hi alle

noch schnell ein makro reingeworfen :)

wandelt alle kleingeschriebenen buchstaben in zellen von a-z zeilen bis ende in grossbuchstaben um.

gruss nighty

hi alle

noch schnell ein makro reingeworfen :)

wandelt alle kleingeschriebenen buchstaben in zellen von a-z zeilen bis ende in grossbuchstaben um.

gruss nighty

ops das makro grrr

Sub Makro1()
Dim zahl$(100)
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
a = LastCell.Row
Do While Application.CountA(Rows(a)) = 0 And a <> 1
a = a - 1
Loop
alta = a
altb = LastCell.Column
b = LastCell.Column
Do While Application.CountA(Columns(b)) = 0 And b <> 1
b = b - 1
Loop
altb = b
lzeile = alta
lspalte = altb
For t% = 65 To 64 + lspalte
For t1% = 1 To lzeile
laenge% = Len(Range(Chr$(t%) & t1%))
For t2% = 1 To laenge%
If Asc(Mid$(Range(Chr$(t%) & t1%), t2%, 1)) > 96 And Asc(Mid$(Range(Chr$(t%) & t1%), t2%, 1)) < 123 Then
aw$ = Chr$(Asc(Mid$(Range(Chr$(t%) & t1%), t2%, 1)) - 32)
Range(Chr$(t%) & t1%) = Mid$(Range(Chr$(t%) & t1%), 1, t2% - 1) + aw$ + Mid$(Range(Chr$(t%) & t1%), t2% + 1, Len(Range(Chr$(t%) & t1%)))
End If
Next t2%
a = k
Next t1%
Next t%
End Sub

hi alle

ohje

Dim zahl$(100)

kann geloescht werden grrr

gruss nighty

hi alle

buedde um verstaendnis,mann ueber 40 grrrrr

gruss nighty

p.s.
oder auch wirrkopf

@nighty,

vielleicht solltest du es so machen wie manch anderer "über 40", der dann eben mit "Formeln" besser zurecht kommt ;-)))

Bei Formeln gibt es eine eindeutige Syntx und das meiste kann man nachlesen oder fragen.

Bei Makros und VBA muss man sich immer wieder selber was ausdenken.
Ist das denn nicht auf Dauer zu anstrengend für dich?
:-)

CU
want2cu

P.S.:Hey nighty, isr dir eigentlich entgangen, dass ich zur Weihnachtszeit mein erstes kleines (und vor allen Dingen FUNKTIONSFÄHIGS) VBA-Modul gebastrlet habe?