Thema Datum  Von Nutzer Rating
Antwort
Rot 2 x Worksheet_Change in der gleichen Tabelle
23.10.2015 15:42:42 Gerhard Müller
NotSolved
23.10.2015 15:57:08 Gast91226
Solved
24.10.2015 14:31:37 Gerhard Müller
NotSolved

Ansicht des Beitrags:
Von:
Gerhard Müller
Datum:
23.10.2015 15:42:42
Views:
324
Rating: Antwort:
  Ja
Thema:
2 x Worksheet_Change in der gleichen Tabelle

Wie kann ich diese 2 Privat Sub Worksheet_Cange in einen 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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot 2 x Worksheet_Change in der gleichen Tabelle
23.10.2015 15:42:42 Gerhard Müller
NotSolved
23.10.2015 15:57:08 Gast91226
Solved
24.10.2015 14:31:37 Gerhard Müller
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar