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
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