Office: [E2k]Eingaben in einem bestimmten Bereich in Grossbuchstaben

Huhu,

vorweg: es geht um Office2000

ich bin absoluter VBA-Anfänger und habe ein Problem. Grundsätzlich stelle ich mir vor, dass es ganz einfach sein müsste, aber entweder bin ich schlicht zu doof, die richtigen Suchbegriffe einzugeben oder aber ich verstehe die gefundenen Lösungen nicht. (so dreist anzunehmen, ich wäre der Erste, der diesen Wunsch hat, bin ich dann aber doch nicht ;)) Daher bitte ich zu guter Letzt in diesem Board mal um Hilfe.

Ich möchte gerne, dass jede (Buchstaben-)eingabe in einem bestimmten Bereich in Grossbuchstaben erfolgt. D.h. unabhängig davon, ob ich "r" oder "R" eingebe, soll dort "R" stehen.

Also Pseudocode habe ich mir das wie folgt gedacht:

Code:

Sub Bei jeder Änderung im Tabellenblatt
   If Eingabe erfolgt in einer Zelle im Bereich A5:A10
      wandle die Eingabe in Grossbuchstaben um
   End If

Schon mal vielen Dank für die Hilfe...

Edit: Office-Version hinzugefügt

 

Hallo!

Ins Modul des Blatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A10")) Is Nothing Then Target = UCase(Target)
End Sub

 

Unfassbar, wie schnell das geht. Funktioniert!

Herzlichen Dank!

 

Huhu,

ich habe doch noch ein Problem mit dem Makro: An sich tut es genau das, was es soll, allerdings kriege ich die Meldung: "Laufzeitfehler '13': Typen unverträglich", sobald ich mehrere Zellen in den unter Range(...) definierten Bereichen markiere und dort eine Operation drauf mache (bspw. löschen oder Einfügen).

Wie kann ich dieses Problem in den Griff bekommen?

 

Hallo!

Dann teste mal diesen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A5:A10")
If Not Intersect(Target, Bereich) Is Nothing Then
If Target.Count > 1 Then
Application.EnableEvents = False
For Each Zelle In Target
If Not Intersect(Zelle, Bereich) Is Nothing Then Zelle = UCase(Zelle)
Next Zelle
Application.EnableEvents = True
Else: Target = UCase(Target)
End If
End If
End Sub

 

Du machst Deinem Nick mehr als alle Ehre. Nochmals herzlichsten Dank, es funktioniert einwandfrei!