Tabellenkalkulation

Nur bestimmte Zeichen erlauben / Schriftgrad an Zelle anpassen?

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

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 1 von Hajo_Zi

Hallo Volker,

Punkt 1 Daten, Gültigkeit.

Gruß Hajo

Antwort 2 von korfuweb

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

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

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

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

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