Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gültigkeitsprüfung / Validation

Gültigkeitsprüfung / Validation
14.10.2003 14:40:47
Maximililan
Hallo Zusammen,
Bin bereits am verzweifeln und braucht dringend eure Hilfe.
Im nachfolgenden Beispiel versuche ich einige Informationen aus dem Objekt Validation aus der einen Mappe in die andere Mappe zu kopieren.

Aber jedes mal wenn Excel auf eine Zelle ohne Gültigkeitsprüfung stösst, bricht es mit der Fehlermeldung „Anwendungs oder objektorientierter Fehler“ ab.

Es muss doch eine Möglichkeit geben, vorab schon die Zelle auf Gültigkeit zu überprüfen.

Bitte helft mir.

Danke danke danke

Maximilian


Sub ZellenGueltigkeit()
'On Error Resume Next
Dim zeile As Long
Dim spalte As Long
zeile = 2
spalte = 1
Dim c As Range
For Each c In Worksheets("Name").UsedRange
On Error GoTo errorhandler
If Len(c.Validation.ErrorMessage) > 0 Then
Sheets("Name2").Application.Cells(zeile, 1).Value = _
c.Address
Worksheets("Name2").Application.Cells(zeile, 2).Value = _
c.Validation.ErrorTitle
Sheets("Name2").Application.Cells(zeile, 3).Value = _
c.Validation.ErrorMessage
zeile = zeile + 1
End If
errorhandler:
Next
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeitsprüfung / Validation
14.10.2003 15:52:59
Ramses
Hallo

der Code müsste so eigentlich funktionieren.
Welche Zeile wird den markiert, wenn das Makro abbricht.

By the Way:
Wenn du einen ErrorHandler einbaust, musst da auch was machen.
Zumindest

Err.Clear

Gruss Rainer
Hallo Rainer
14.10.2003 16:11:03
Maximilian
Die Zeile
If Len(c.Validation.ErrorMessage) > 0 Then
wird markiert.

Und zwar nach dem zweiten Fehleraufruf.

Habe mein Programm erweitert:
Sub ZellenGueltigkeit()
On Error Resume Next
Dim zeile As Long
Dim spalte As Long
zeile = 2
spalte = 1

Dim c As Range


For Each c In Worksheets("settings").UsedRange

If (Len(c.Validation.ErrorMessage) > 0) Then
If Err.Number <> 1004 Then

Sheets("settings2").Application.Cells(zeile, 1).Value = _
c.Address
Worksheets("settings2").Application.Cells(zeile, 2).Value = _
c.Validation.ErrorTitle
Sheets("settings2").Application.Cells(zeile, 3).Value = _
c.Validation.ErrorMessage
zeile = zeile + 1
End If

End If
'errorhandler:
Err.Clear

Jetzt funktioniert es. (Aber leider keine ganz saubere Lösung)
Vielen Dank für deinen Tipp.
Gruss
Maximilian
Anzeige

300 Forumthreads zu ähnlichen Themen


Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
Anzeige

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
Anzeige

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige