Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Datenüberprüfung

VBA Datenüberprüfung
14.12.2012 13:44:35
PeTeR
Hallo VBA-Profis,
wie prüfe ich per VBA, ob in der Zelle bereits eine Datenüberprüfung hinterlegt ist?
if cells(i,4).validation.?=true then
Vielen Dank für eure Hilfe
PeTeR

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datenüberprüfung mit SpecialCells prüfen
14.12.2012 14:10:22
Daniel
Hi
ist vielleicht nicht das eleganteste, aber es funktioniert:
Dim rngVal As Range
On Error Resume Next
Set rngVal = Intersect(Cells(i, 4), Cells.SpecialCells(xlCellTypeAllValidation))
On Error GoTo 0
If Not rngVal Is Nothing Then ...
Gruß Daniel

If IsError(Cells(i,4).Validation.Type) Then
14.12.2012 14:18:37
NoNet
Hallo PeTeR,
mir fällt da nur eine Möglichkeit per On Error ein :
Sub TestValidation()
Dim objVal
On Error Resume Next
Set objVal = ActiveCell.Validation
If IsError(objVal.Type) Then
MsgBox "Zelle besitzt keine Datenüberprüfung !", , Err.Number
Else
MsgBox "Zelle besitzt Datenüberprüfung Typ " & objVal.Type
End If
Set objVal = Nothing
End Sub
Gruß, NoNet

Anzeige
AW: VBA Datenüberprüfung
14.12.2012 14:36:03
PeTeR
Hallo Daniel, hallo NoNet,
WOW - ich bin beeindruckt - echt stark :-))
Vielen Dank für eure Hilfe!!
PeTeR

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige