MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 29.03.2012, 11:53   #1
andi_bln
Neuer Benutzer
Neuer Benutzer
Standard Frage - Validation Range

Hallo,

habe eine Blockeade, ich kann problemlos eine Validation an eine Zelle anhängen, allerding nur mit 7 Items, mehrr geht nicht auf die unten gezeigte weise, wie bekommt man einen vertikalen Scrollbar zustande.

Vielen Dank für jeden Tip ......

Andreas

Public Sub FUelleDropDownValidation()
Dim str$, i%
On Error Resume Next
If SafeArrayGetDim(MsgFeld) = 0 Then
ZielRange.Validation.Delete
Else
str = vbNullString
For i = 0 To UBound(MsgFeld)
str = str & MsgFeld(i) & ","
Next i
' letztes Komma loeschen
str = Mid(str, 1, Len(str) - 1)
With ZielRange.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=str
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = vbNullString
.ErrorMessage = vbNullString
.ShowError = True
End With
End If
End Sub
andi_bln ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:16 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.