ich habe mir gard mit meinen kleinen Kenntnissen ein Markro erstellt, das mir in verschiedenen Spalten wenn eine entsprchenden Zelle nicht leer ist eine Auswahllsite mit verschiedenen Werten erstellt.
Das Funktoniert auch alles so lange ich es über das VBA Projekt direkt das Modul über den Button starten aussführe.
Wenn ich allerdings Über das Menü in Excel gehe als Extras > Macro > Markro... und dann das entsprechende auswähle wird die Auswahlliste nicht erstellt.
Dann steht in der Auswahlliste nur 1; 2; 3; 4 statt
1
2
3
4
Das verstehe ich nicht was hier falsch ist
Der Code:
Sub List()
Dim wks_ziel As Worksheet, quelle1 As Worksheet
Dim quell_zeile As Long
Dim ziel_zeile As Long
Set wks_ziel = Worksheets("Test script")
lzz = wks_ziel.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile ermitteln
Application.ScreenUpdating = False
For sh1 = 4 To lzz
If wks_ziel.Cells(sh1, 3) "" Or wks_ziel.Cells(sh1, 4) "" Then
wks_ziel.Cells(sh1, 19).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Y; N"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
wks_ziel.Cells(sh1, 14).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Y; N; C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
wks_ziel.Cells(sh1, 15).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="A; B; C; D"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
wks_ziel.Cells(sh1, 16).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="0; 1; 2; 3; 4"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next
sh1 = sh1 + 1
Application.ScreenUpdating = True
End Sub
Kennt Ihr das Problem?Gruß Kisselstein