online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon korfuweb vom 20.10.2020, 16:10 Options

Lösung

Nur bestimmte Zeichen erlauben / Schriftgrad an Zelle anpassen?

Hallo liebe Supportnet-Gemeinde,

Ich mal wieder mit ein paar kleinen Fragen!

Zelle formatieren !

Wie kann ich einer Zelle beibringen, das a.) nur bestimmte Zeichen eingegeben werden dürfen (z.B. nur "J" oder "N"), desweiteren wie sage ich der Zelle das bitte nur Grosschreibung erfolgen soll?

Weiterhin ist es möglich den Schriftgrad automatisch ändern zu lassen, wenn der Text für die Zelle zu groß ist ?

Danke für eure Hilfe
Gruß
Volker


Antwort schreiben

Antwort 1 von Hajo_Zi vom 20.10.2020, 16:18 OptionsLösung

Lösung
Hallo Volker,

Punkt 1 Daten, Gültigkeit.

Gruß Hajo

Antwort 2 von korfuweb vom 21.10.2020, 07:10 Options

OK ! Die Sache mit dem "J" und "N" klappt ja jetzt - aber wie kriege ich Excel soweit das er aus nem kleinen "n" ein großes macht? - also die Zelle nur mit Grossbuchstaben füllt?
Mit Formeln komm ich da ja nicht weiter - da es sich ja um die "aktive Zelle" handelt.

Gruß Volker

Antwort 3 von korfuweb vom 21.10.2020, 07:40 Options

Anhang !
Wohl bischen zu frü gefreut.
Leider weiß ich nicht wie man den Beitrag editieren kann - also häng ich mal einfach an.

Mit Daten - Gültigkeit schaff ich es jetzt zwar, das ich Excel vorgeben kann, das max 1 Textzeichen eingegeben werden kann, aber nicht das es eben nur "J" oder "N" sein darf - und das es nach Eingabe grundsätzlich in einen Großbuchstaben umgewandelt wird.
Sollte doch machbar sein - oder?

Gruß Volker

Antwort 4 von fejdo vom 22.10.2020, 10:03 Options

Hallo Volker,
mit VBA könnte man das so lösen:
Den Code in die Tabelle (Codefenster) einfügen wo er ausgeführt werden soll. Zelle A1 wird auf "J" oder "N" überprüft und gegebenenfalls auf einen Großbuchstaben umgewandelt.

Gruß
fedjo

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "j" Then Range("A1") = "J"
If Range("A1") = "n" Then Range("A1") = "N"
If Not Range("A1").Value = "J" Then
If Not Range("A1").Value = "N" Then
Range("A1") = ""
End If
End If
End Sub

Antwort 5 von rainberg vom 22.10.2020, 10:24 Options

Hallo Volker,

mit der Gültigkeitsprüfung kannst Du keine Umwandlungen vornehmen, dazu brauchst Du ein Makro.

Mit folgender Formel welche Du unter "Benutzerdefiniert" eingibst, legst Du fest, dass nur J oder N eingegeben werden können.

=(CODE(A1)=74)+(CODE(A1)=78)

Gruß
Rainer

Antwort 6 von nighty vom 22.10.2020, 12:15 Options

hi all :-)

noch zur anregung

gruss nighty

If Mid(Cells(1, 1), 1, 1) Like "[jJnN]" = False Then
Cells(1, 1) = ""
Else
Cells(1, 1) = UCase(Cells(1, 1))
End If

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 01:23:17 2026