|
Wie kann ich diese 2 Privat Sub Worksheet_Cange in einer Tabelle "Zusammenlegen" Besten Dank für eine Lösung.
1. Privat Sub Worksheet Change: Großschreibung für das gesamte Wort für Zelle c5:c323 und f5:f323
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("c5:d323,f5:f323")) Is Nothing Then Exit Sub
On Error GoTo CleanUp:
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Value = UCase(.Value)
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub
2. Privat Sub Worksheet Change: 1 Buchstabe von jedem Wort in einer Zeile wird Großgeschrieben für die Spalte 1 =A, 2 =B, 8 =H und 9 =i zB: In Spalte 1 = A Eingabe von gerhard müller Ergebnis wäre Gerhard Müller
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
If Target.Column = 2 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
If Target.Column = 8 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
If Target.Column = 9 Then
On Error GoTo Errorhandler
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target)
End If
Errorhandler: Application.EnableEvents = True
End Sub
=============================================================================================================================
Antwort von Gast91226
Hallo,
also die einfache Möglichkeit wäre du setzt dein Code in eine Sub (Unterroutine) in einem Modul, und der Sub übergibst du "Target".
Die Sub kannst du dann von beiden Worksheets im Change-Ereignis aufrufen.
Somit hast du den Code nur einmal und kannst ihn aus mehreren Blättern aufrufen.
==========================================================================================================================
danke für deine antwort Gast91226.
leider bin ich nur ein anwender von excel und kein VBA profi. sub, modul, target für mich leider nur ???
wäre es für dich möglich das in eine formel zu bringen für VBA da wäre mir sehr geholfen.
Gerhard Müller
|