Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
Anzeige
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


Anzeige
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


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

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige