Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Datenüberprüfung - Liste - VBA | Herbers Excel-Forum


Betrifft: Datenüberprüfung - Liste - VBA von: Jonathan
Geschrieben am: 28.01.2010 23:36:59

Hey,

ich möchte via VBA in einer Zelle eine Liste einfügen, hier mein Code:

    If Target.Column = 6 And Target.Row > 2 And Cells(Target.Row, Target.Column).Value <> ""  _
Then
    MsgBox "ok"
        With Cells(Target.Column + 1, Target.Row).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=BA" & Cells(Target.Column, Target.Row).Value
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
Das klappt auch, allerdings wird beim Auswählen der betreffenden Zelle nun nicht mehr der "typische" Pfeil angezeigt. Ich kann lediglich mit ALT+Pfeiltaste die Werte der Liste auswählen.

Wo liegt der Fehler?

Danke!!

LG

  

Betrifft: AW: Datenüberprüfung - Liste - VBA von: Jonathan
Geschrieben am: 28.01.2010 23:55:06

Hey,

hat sich erledigt, war ein kleiner Fehler im Code....


  

Betrifft: AW: Datenüberprüfung - Liste - VBA von: Jonathan
Geschrieben am: 28.01.2010 23:56:03

Hey,

hat sich erledigt - war ein kleiner Fehler im Code...