Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Gültigkeit funktioniert nicht immer

Forumthread: VBA Gültigkeit funktioniert nicht immer

VBA Gültigkeit funktioniert nicht immer
03.01.2006 13:39:47
Horst H
Hallo nette Leute im Forum,
habe mir mit Recorder Gültigkeiten aufgezeichnet und in mein VBA eingebunden (mit eigenem Menü). Egal, an welche Position ich das Makro einbinde, mal funktioniert es, mal nicht. Wer kann Tipp geben, wie ich dies in den Griff bekomme? Danke im voraus.
Gruß Horst
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Gültigkeit funktioniert nicht immer
04.01.2006 21:38:49
Markus
Hallo Horst,
da Du das alles mit dem Makrorecorder aufegzeichnet hast könnte genau das der Haken sein. Der Makrorecorder speichert nämlich keine festen Zellbereiche bspw. A1:A10 (wo die Gültigkeitsliste hinterlegt ist), sondern macht das ganze relativ. Also so und so viel Spalten nach rechts so und so viele zeilen nach unten von der Zelle aus die gerade aktiviert ist.
Könnte das der Grund sein?
Markus
Anzeige
AW: VBA Gültigkeit funktioniert nicht immer
05.01.2006 10:38:57
Horst H
Hallo Markus,
ich habe zwar mit dem Recorder aufgezeichnet, aber feste Bezüge eingeragen. Wenn ich eine Mappe solo damit laufen lasse, dann ist die Gültigkeit immer vorhanden. Lasse ich es in meiner Anwendung (VBA mit eigenem Menü etc. ) laufen, ist es so, dass mal die Gültigkeit funktioniert, mal nicht. Habe das script gür die Gültigkeit an die letzte Position gesetzt (lasse alle auf das/die Register einwirkenden Makros vorher durchlaufen), lediglich das autom. Springen zum aktuellen Datum (durch alle Monatsregister 01...12 in der Mappe) kommt dann noch. Auch habe ich es mit Union und Range(Bereiche nacheinander hier) versucht - das kláppte noch weniger. Deshalb diese Bombenlegerformel. Damit funktioniert es wenigstens 1 von 10 mal so. DieMappe ist zu groß (1,5 MB)mit Menüs etc., sonst hätte ich sie hochgeladen. Das script der Gültigkeit folgt unten. Vielleicht fällt dir etwas ein, denn die Gültigkeit benötige ich, weil Leute, die gerade den PC einschalten können, simple Eingaben machen sollen (nur "x" und Zahlen in best. Spalten.
Danke erst einmal! Gruß Horst

Sub Station_Gültigkeiten()
ActiveSheet.Unprotect "2005"
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("O3:BX502").Select
Range("O3").Activate
Selection.Locked = False
Selection.FormulaHidden = False
Range("O3:O502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("P3:P502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("Q3:Q502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("R3:R502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("S3:S502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("T3:T502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("U3:U502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("V3:V502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("W3:W502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("X3:X502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("Y3:Y502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("Z3:Z502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AA3:AA502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AB3:AB502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AC3:AC502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AD3:AD502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AE3:AE502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AF3:AF502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AG3:AG502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AH3:AH502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AI3:AI502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AJ3:AJ502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AK3:AK502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AL3:AL502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AM3:AM502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AN3:AN502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AO3:AO502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AP3:AP502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AQ3:AQ502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AR3:AR502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AS3:AS502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AT3:AT502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AU3:AU502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AV3:AV502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AW3:AW502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AX3:AX502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AY3:AY502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("AZ3:AZ502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BA3:BA502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BB3:BB502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BC3:BC502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BD3:BD502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BE3:BE502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BF3:BF502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BG3:BG502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BH3:BH502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BI3:BI502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BJ3:BJ502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BK3:BK502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BL3:BL502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BM3:BM502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BN3:BN502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BO3:BO502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BP3:BP502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BQ3:BQ502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BR3:BR502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BS3:BS502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BT3:BT502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BU3:BU502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BV3:BV502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BW3:BW502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Bitte nur ein kleines  x  eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("BX3:BX502").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlGreaterEqual, Formula1:="1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Achtung!"
.InputMessage = ""
.ErrorMessage = "Bitte nur ganze Zahlen eingeben!"
.ShowInput = False
.ShowError = True
End With
Range("D3").Select
ActiveWindow.FreezePanes = True
ActiveWorkbook.Save
ActiveSheet.Protect "2005"
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Fehlerbehandlung in vba funktioniert nicht
Henning

Hallo vba-Profis,
bei mir funktioniert die vba-Fehlerbehandlung nicht wie sie soll.
Ich rufe Hyperlinks auf: Zunächst die Online-Version. Falls der Rechner nicht online ist oder keine Verbindung hergestellt werden kann, soll per Fehlerbehandlung im zweiten Schritt die lokale offline-Ver...
29.04.2009 11:56:50
Thread-ID: 1071851
3 Beiträge
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
VBA code funktioniert unter 2003 nicht korekt
alex

Hi
folgender code funktioniert an der stelle activesheet.paste unter 2003 nicht (unter 2007 ohne probleme. ich habe keine ahnung wieso da der befehl der selbe ist den excel 2003 benutzt. Sub Mängelliste() ' Mängelliste Makro On Error Resume Next 'überspringt fehler Workbooks("wartung.xl...
25.10.2009 19:10:33
Thread-ID: 1112051
9 Beiträge
"Dateioeffnen" in VBA funktioniert nicht mehr
Thilo

Hallo zusammen,
ich habe via VBA programmiert, dass ich eine bestimmte Datei per Explorer-Ansicht auswählen kann.
Dies habe ich via "Dateioeffnen" realisiert und bislang hat das auch immer einwandfrei geklappt.
Seit kurzem geht das nicht mehr - ich bekomme die Fehlermeldung:
"F...
14.04.2010 11:15:53
Thread-ID: 1151703
7 Beiträge
Speichern mit VBA:MS Excel funktioniert nicht mehr
Kha

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein VBA-Skript geschrieben, das ca. 120.000 Datensätze (Verträge) nacheinander durchsucht, die Verträge eines Kunden in ein Array schreibt, mit diesen ein paar einfache Berechnungen anstellt und die Ergebnisse pro Kunde anschließend i...
17.09.2010 17:12:15
Thread-ID: 1178320
5 Beiträge
VBA- funktioniert nicht
Christian

Hallo und einen guten Morgen
ich habe in kleines Problem. Eine VBA Programmierung funktioniert unr auf Excel 2007.
Wenn ich es in Excel 2003 starten möchte bringt er folgende Meldung "Objekt unterstützt diese Eigenschaft od. Methode nicht". Vieleicht kann mir jemand den Datensatz ump...
12.10.2010 08:28:53
Thread-ID: 1181824
2 Beiträge
Anzeige
VBA-CommandButton funktioniert nicht richtig
Marko

Hallo zusammen,
ich habe aus meinen früherem Aufgabengebiet noch eine Datei mit einem ganzen Sack voll Makros drin. Die meisten benötige ich jetzt nicht mehr - aber mindestens eines ist dabei, dass ich gern wieder nutzen würde.
Das Makro blendet ein Fenster ein und listet darin alle Tab...
27.05.2011 13:30:15
Thread-ID: 1216327
4 Beiträge
VBA Matrix Function Ausgabe funktioniert nicht
gothino

Hallo zusammen,
habe eine Matrix-Funktion in VBA programmiert, also eine Funktion die ein Datenfeld ausgeben soll und daher mit Strg+Alt+Enter eingegeben wird.
Ausgegeben werden soll das Datenfeld Resultvector(1 to xn), ausgegeben wird aber immer nur genau der erste Wert Resultvector(...
22.10.2011 23:25:13
Thread-ID: 1235011
15 Beiträge
Anzeige
VBA-Hilfe (Excel 2010) funktioniert nicht richtig
Jürgen

Hallo,
ich erlebe bei der Nutzung der VBA-Hilfe folgendes Phänomen: ich kann nach dem Aufruf einer der angebotenen Links klicken oder nach einem Begriff suchen(z. B. "cdate"). Auch das Anklicken (z.B. "Typ-Umwandlungsfunktionen") in der nun angezeigten Trefferliste funktioniert. Im oberen B...
19.05.2012 08:47:07
Thread-ID: 1263965
3 Beiträge
Anzeige
VBA-Code funktioniert nicht bei Punkt-Dateinamen
Wolfango

Hallo zusammen,
untenstehendes Makro habe ich vor einiger Zeit über dieses Forum bekommen.
Mit Hilfe des Makros lassen sich geöffnete Excel-2003-Datein mit einem Klick in das xlsx-2010-Format überführen.
Nun habe ich eine Reihe von Dateien bei denen der Dateiname ein bis drei Pun...
03.08.2012 14:52:50
Thread-ID: 1273705
3 Beiträge
VBA: Simulation funktioniert nicht richtig
Daniel

Sehr geehrte Excel-Anwender,
erstmal eine Frohes Neues Jahr noch allerseits.
Auch möchte ich mich schon vorrab für die freundliche Unterstützung und Hilfe bedanken! Ich komme ohne Hilfe derzeit alleine einfach nicht weiter...
Die komplette Datei mit Beschreibung und Code kann in der...
04.01.2013 15:31:43
Thread-ID: 1292894
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige