[E2k]Eingaben in einem bestimmten Bereich in Grossbuchstaben :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[E2k]Eingaben in einem bestimmten Bereich in Grossbuchstaben

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 16

Verfasst am: 05.03.2008, 20:31

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 05.03.2008, 21:26

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 16

Verfasst am: 05.03.2008, 21:52

Unfassbar, wie schnell das geht. Funktioniert!

Herzlichen Dank!

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 16

Verfasst am: 06.03.2008, 08:34

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?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 06.03.2008, 10:00

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

magic59
Newbie
Newbie

Anmeldedatum: 05.03.2008
Beiträge: 16

Verfasst am: 06.03.2008, 10:23

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Mehrere Nachschlagefelder in einem Fo...	cd_com	Microsoft Access Hilfe	1	29.11.2008, 19:41
	Benötige Hilfe bei einem Excel-Diagramm	justintime	Microsoft Excel Hilfe	1	28.11.2008, 18:05
	Spalte überprüfen, bestimmten Text na...	CrazyCat	Microsoft Excel Hilfe	8	27.11.2008, 14:05
	Eine Auswahlliste mit Verknüpfung zu ...	anscfz06	Microsoft Excel Hilfe	4	19.11.2008, 22:36
	Bereich eingrenzen	Harro	Microsoft Excel Hilfe	6	16.11.2008, 21:52

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de