VBA mit select case und like
02.05.2016 11:21:32
Olli
Habe in Zelle D7 ein Dropdownfeld mit Werten. Kann man für die Werte Auto1 bis Auto4
auch eine like Funktion einbauen (z.B. Like Auto*), da die Werte immer gleich anfangen?
Sonst müsste ich wie unten beschrieben immer wieder eine zus. Case Zeile einfügen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then
With ActiveSheet
Select Case Target
Case ""
Application.Run "Makro1"
Case "M1"
Application.Run "M1"
Case "Auto1"
Application.Run "Auto"
Case "Auto2"
Application.Run "Auto"
Case "Auto3"
Application.Run "Auto"
Case "Auto4"
Application.Run "Auto"
End Select
End With
End If