Frage an Hajo_Z

Forumthread: Frage an Hajo_Z

Frage an Hajo_Z

10.03.2004 20:32:04

walter

Hallo Hajo_Z
Ich möchte zwei deiner VBA-Beispiele ( Großschreibung und automatisch sortieren )
in einer Tabelle ausführen lassen.
Jedes für sich funktioniert super, doch beide zusammen ergeben folgenden Fehler.
Fehler beim Kompilieren - Mehrdeutiger Name: Worksheed_Change
Da ich in VBA noch ganz am Anfang stehe, schaffe ich es nicht, dieses Problem alleine zu lösen.
Für deinen Lösungsvorschlag wäre ich sehr dankbar.
mfg. walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Frage an Hajo_Z

10.03.2004 20:36:18

Hajo_Zi

Hallo Walter
jeder Aktion darf es nur einmal in der Tabelle geben.
Leider hast Du nicht geschrieben für welche Großbuchstabevariante Du Dich entschieden hast. Aber ich hoffe Du kannst Deins einfügen


Private Sub Worksheet_Change(ByVal Target As Range)
'   erstellt von Hajo.Ziplies@web.de
'   automatisch sortieren bei Eingabe im Bereich F4:F34
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("F4:F34")
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, RaBereich) Is Nothing Then ' Zelle ist im Bereich
Range("B3:I34").Sort Key1:=Range("F4"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Exit For
End If
Next RaZelle
'   erstellt von Hajo.Ziplies@web.de  16.08.03
' http://home.media-n.de/ziplies/
'   alle Buchstaben Groß in einem bestimmten Bereich
Application.EnableEvents = False
'   Bereich der Wirksamkeit
Set RaBereich = Range("B3:C20, D1:D7")
'    ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
End If
Next RaZelle
Application.EnableEvents = True
'    ActiveSheet.protect
Set RaBereich = Nothing
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

AW: Danke Hajo_Zi / klappt bis auf............

10.03.2004 21:05:33

walter

Danke Hajo_Zi für deine super schnelle Antwort.
Habe es sofort ausprobiert.
Die Sortierung funktioniert fehlerfrei.
Wenn ich am Listenende einen neuen Namen eingebe, dann wird er richtig sortiert, doch die Großschreibung wird nicht ausgeführt.
Schreibe ich jedoch mitten in der Tabelle einen Namen in Kleinschrift wird es sehrwohl korrigiert.
Der Tabellenbereich ist ( B13:L156 )
Sortiert wird nach Familienname ( D13:D156 ), ebenso soll der Familienname in Großbuchstaben geschrieben werden.
nachmals vielen Dank, walter

AWAutomatisch Sortieren und Großbuchstaben.

10.03.2004 21:08:04

Hajo_Zi

Hallo Walter
eine Beispieldatei wäre nicht schlecht. Aber ich vermute mal ändere die Reihenfolge erst Großbuchstaben und dann Sortierung.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

AW: Danke Hajo_Zi / klappt super

10.03.2004 21:17:16

walter

Danke Hajo_Zi.
Jetzt klappt es echt super.
mfg. walter

AW: Großbuchstaben und Sortierung.

10.03.2004 21:21:53

Hajo_Zi

Hallo Walter
ich vermute mal dies bezieht sich auf den Hinweis
"Aber ich vermute mal ändere die Reihenfolge erst Großbuchstaben und dann Sortierung."

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

Beliebteste Forumthreads (12 Monate)

Forumthread: Frage an Hajo_Z

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread