Re: Spalten formatieren
- From: Thomas Ramel <t.ramel@xxxxxxxx>
- Date: Thu, 30 Jun 2005 15:08:21 +0200
Grüezi bustue
bustue schrieb am 30.06.2005
> gibt es eine Möglichkeit folgenden Code auf
> mehrere unabhängige Spalten zu ändern:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column <> 5 Then Exit Sub
> Target.Value = UCase(Target.Value)
> End Sub
JA; dafür gibt es mehrere Varianten:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A:A,E:E,G:G"))
If Not Target Is Nothing Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1, 5, 7
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Select
End Sub
Vielleicht solltest Du noch berücksichtigen, dass auch mehr als eine Zelle
gleichzeitig geändert werden kann, oder diesen Fall zuerst noch abfangen.
Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
Microsoft Excel - Die ExpertenTipps:
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)
.
- References:
- Spalten formatieren
- From: bustue
- Spalten formatieren
- Prev by Date: Re: Läuft trotzdem über "on error " ?
- Next by Date: Re: Pivot-Tabelle: Dateifehler
- Previous by thread: Spalten formatieren
- Next by thread: Automatische Formatierung der Zellen beim Import in Excel XP
- Index(es):
Relevant Pages
|
