Argument übergeben, mit oder ohne =
19.11.2007 17:42:00
Peter
Mit nachstehendem Code rufe ich den Makro Validation auf. Im zweiten Argument muss ich das "=" ü _ bergeben, damit die Liste im Range "Soll_Haben" erkannt wird. Nun möchte ich gerne trotzdem nur "Soll_Haben" übergeben und dann das "=" (Gleichzeichen) irgendwie im bei "Formula1:=VListName" mitberücksichtigen. Ich habe jedoch den Dreh bis jetzt nicht gefunden, wie das "=" hier hineingeflickt werden kann. Ich habe mir vorgestellt, ich könnte, wenn ich bei Call Validation als 2. Argument nur "Soll_Haben" übergebe, dann im
Sub Validation anstelle von Formula1:=vListName
"="&vListName", doch das funktioniert nicht.
Wer kann mir helfen?
Danke für eine Rückmeldung, Peter
Call Validation("SOLLHABEN", "=Soll_Haben")
Option Explicit
Sub Validation(vRange As String, vListName As String)
Call ATabellenschutz_deaktivieren_alle
With Range(vRange).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=vListName
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub