Microsoft Excel

Herbers Excel/VBA-Archiv

Change Ereignis

Betrifft: Change Ereignis von: Kurt K
Geschrieben am: 20.11.2014 18:09:11

Guten Abend,
leider funktioniert mein Worksheet_Change nicht.
Wenn ich diese Zeile verwende ja:
Set lrgRange = Range("C26:C50, C92:C115, C156:C179, C220:C243")
aber leider nicht die wenn ich noch Bereiche anhänge.
siehe Makro.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntNewValue As Variant

Dim lrgRange As Range
On Error GoTo ERR_Handler

Set lrgRange = Range("C26:C50, C92:C115, C156:C179, C220:C243")  ', C283:306")   ', C347:C370")

If Intersect(Target, lrgRange) Is Nothing Then Exit Sub

With Target
    If .Count = 1 Then
    Select Case .Value
            Case "wir": vntNewValue = "Wir lieferten und montierten im"
            Case "ro": vntNewValue = "Rolladen"
            Case "jal": vntNewValue = "Jalousien"
            Case "ar": vntNewValue = "Arbeitslohn"
            Case "fa": vntNewValue = "Montagefahrzeug"
            Case "pau": vntNewValue = "Fahrtk"
            Case "ma": vntNewValue = "Markisen"
            Case "ver": vntNewValue = "Versteuerung"
    Case Else: vntNewValue = .Value
        End Select
        Application.EnableEvents = False
        .Value = vntNewValue
    End If
End With
ERR_Handler:
Application.EnableEvents = True

End Sub
gruß Kurt k

  

Betrifft: vieleicht weil ein C fehlt oT. von: Tino
Geschrieben am: 20.11.2014 18:53:33




  

Betrifft: AW: vieleicht weil ein C fehlt oT. DANKE ich... von: Kurt K
Geschrieben am: 20.11.2014 21:02:33




 

Beiträge aus den Excel-Beispielen zum Thema "Change Ereignis"