Excel Liste mittels Makro erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim objRange As Range If Target.Address = "$D$1" Then '// Hier Deine Datenüberpr./Listenzelle anpassen...!!! On Error Resume Next Set objRange = Target.SpecialCells(xlCellTypeSameValidation) On Error GoTo 0 If objRange Is Nothing Then With Target.Validation Call .Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$A$1:$A$10") '// Hier Dein Listenbereich anpassen...!!! .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Else Set objRange = Nothing End If End If End Sub

Hallo Thorsten,

ich habe doch nicht geschrieben "ich gehe davon aus" sondern "ich ging davon aus". Meine Aussage bezog sich also auf den Zeitpunkt bevor Du mir den Unterschied zwischen einem Listenfeld und einer Datengültigkeitsliste erläutert hast. In meiner Annahme, dass der Code meiner "Datengültigkeitsliste" jeden Profi hier im Forum sofort erkennen lässt, von was ich rede, habe ich den gepostet. OK, wenn dieser Code natürlich auch für diverse andere Funktionen/Listen/usw. verwendet werden und somit nicht eindeutig dieser Datengültigkeistliste zugeordnet werden kann, funktioniert das natürlich nicht. Da habe ich dann mit meiner Absicht, das jeder gleich erkennt, was ich meine, wohl ins Klo gegriffen.

Sorry, ich erstelle zu 99% meine Makros mit dem Recorder. Danach bastle ich dann oft viele Tage daran, um mein Ziel zu erreichen. Und wenn es dann mal funktioniert kann es gut sein, dass ich ein zwei Jahre überhaupt keine Makros mehr basteln muss. Dann ist das für mich wie ein totaler Neuanfang.

Aber da Du ja nun weißt, nach was ich hier suche, kannst Du mir ja vielleicht weiterhelfen..... wenn nicht eventuell ja Mullit???

Meine Tabelle ist wie folgt aufgebaut: In den Zeilen 1-4 habe ich Nur ein paar Textangaben und die Spaltenüberschriften.
Der Eingabebereich beginnt in Zeile 5 und endet in Zeile 99. Ich brauche also keine Tausende von Datensätzen. Meistens reichen 30 im Monat. Habe halt mal bis Zeile 99 die Formeln reinkopiert. Beim Ausdrucken wird geprüft, bis wohin was drin steht und der Druckbereich angepasst. In Spalte B steht das Arbeitsdatum. Hier wollte ich bewirken, dass ohne Datum nichts geht. Ich rufe also bei fast allen Formeln in der Tabelle zunächst ab, ob in der Spalte B was steht. Steht da nix drin, kann in andere Spalten auch nichts eingegeben werden bzw. es wird nichts angezeigt oder halt eine leere Zelle. Der Datenbereich von 5 bis 99 findet sich in meinem Code für die Wiederherstellung eines Formelfeldes. Das war der längere Codeschnipsel. Hier habe ich ja den Bereich irgendwie festgelegt und die Formel selbst enthält mittels Indirekt + Zeile() ja einen variablen Bezug. Damit funktioniert der Code egal in welcher Zeile (5-99). Ähnlich so wie wenn man eine Formel durch Ziehen runterkopiert. Da werden ja die Zellbezüge automatisch angepasst (solange die keine $$ haben).

Dieses Datengültigkeitslistenfeld = DGF gibt es logischerweise nun auch in den Zeilen 5-99. Hier hatte ich mit Ziehen und Runterkopieren gearbeitet. Hat soweit funktioniert.

Ein Fehler wird dagegen angezeigt, wenn ich versuche in dieses DGF =WENN(INDIREKT("B"&ZEILE())>"";Monteure!$B$2:$B$5;"leer") einzutragen. Ich bekomme die Formel zwar mit Ignorieren des Fehlers rein, aber das DGF funktioniert dann nicht. Geht das so generell nicht oder ist mein Code falsch?

Wenn es generell nicht geht, hat sich die weitere Frage erledigt. Wenn nicht.....

Der Code, den mir Mullit gepostet hat, ist wohl fix auf eine einzelne DGF Zelle gedacht. Ich brauche aber eine analoge Lösung wie die für eine Formel. Das ich also alle Zellen damit abdecke (in meinem Fall V5-V99). Oder muss ich den Code von Mullit für jede einzelen Zelle erstellen (iiihhhhh)?

Hoffentlich habe ich jetzt nicht schon wieder irgendwas geschrieben, dass kritisiert werden müsste....

Hallo Thorsten,

hier also meine Datei in abgespeckter Form. Habe alle schützenswerten Daten rausgenommen oder geändert. Alles allgemein gehalten.

Wir haben diverse Auftraggeber aus dem gleichen Tätigkeitsfeld. Jeder hat andere Vergütungen. Zeitaufwand rechnet der einen je halbe Stunde ab, der nächste zahlt die erste Stunde voll und dann viertelstündlich usw. usw.

Ich habe deshalb so eine Exceltabelle angelegt, bei der dann alle Preislisten enthalten sind. Ändern sich die Preise, muss ich nur diese Tabelle ändern und alles passt wieder. Zeit wird automatisch über Ankunft Abfahrt ermittelt usw. usw.

Datumsfeld ist zwingend. Dort kein Datum rein, geht es nicht weiter (wenn ich was übersehen habe vielleicht doch, sollte aber nicht sein).

Einige Felder sind einfache Textfelder, wie Kundenname, Auftragsnummer usw.
Eigentlich sollen Eingaben nur in grüne Spalten erfolgen (die gelben rechnen selbst). Aber manchmal kommt es vor, dass wir doch einen Spezialpreis haben, der nicht über die Datenliste bezogen werden kann. Deswegen sperre ich die Felder nicht komplett, so dass man trotzdem was anderes reinschreiben könnte. Macht man da einen Fehler, einfach Feldinhalt löschen und der Makro erzeugt die Formel neu. Das war der Hintergedanke.

Jetzt gibt es in der Tabelle mehrere solcher wie Du Sie nennst Datengültigkeitslistenzellen (wenn ich es richtig sehe, nennt man die Dropdown-Feld - wird jedenfalls beim Googeln so angezeigt. Ist ja aber egal, wir wissen ja was gemeint ist....

Ich muss hier nochmal was einschieben, kann es mir nicht erklären.... wenn ich den Blattschutz aktiviere, funktioniert so eine DGF auf einmal einwandfrei. Warum das zuvor nicht ging (da kam ja eine Meldung hoch, wenn ich aus der Liste einen anderen zulässigen Wert ausgewählt habe - das dies nicht zulässig sei) kapiere ich nicht. Ich bin aber mit dem Problem wohl nicht alleine. Habe beim Googeln Beiträge gefunden, die das genauso schildern.... sonst wäre ich ja überhaupt nicht auf die Idee gekommen......

Wie dem auch sei. Du siehts sicherlich anhand meines Codes, dass alle Formelfelder über die gleiche Weise wiederherstellbar sind. Ich suche nun also den Code, wie das analog mit so einem DGF funktioniert. Es ist mir nicht gelungen, den Code des DGF mit Indirekt und Zeile() so hinzubekommen, dass er grundsätzlich funktioniert. Entweder es geht einfach da nicht oder ich bau den Code falsch zusammen. Die Formeln sind alle mit Indirekt und Zeile() versehen. Man kann die ganzen Zellen so einer Spalte leeren und dann füllt der Makro sie wieder auf....

Genauso sollte dies auf für die DGF funktionieren.

Ich kann es mir immer noch nicht erklären. Selbst wenn der Blattschutz aus ist, leert man diese Zellen bleibt trotzdem die DGF Funktion erhalten. Keine Ahnung, wie man die zerstören konnte, aber irgendwie schafft es immer einer..... mir ist es auch schon ab und an passiert, dass ich mit der Maus über ein Tabellenblatt fahre und vielleicht zu früh klicke. Anstelle eine Zelle zu aktivieren treffe ich dieses kleine Quadrat an der rechtenn unteren Zellecke und zieh die Maus noch zwei cm weiter und schon habe ich was kopiert, was ich gar nicht wollte....

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim enmXlDVType As XlDVType If Not Intersect(Target, Range(Cells(5, 22), Cells(99, 22))) Is Nothing Then '// Hier jetzt Dein Bereich V5-V99...!!! On Error Resume Next enmXlDVType = Target.Validation.Type If Err.Number > 0 Then On Error GoTo 0 With Target.Validation Call .Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$A$1:$A$10") '// Hier Dein Listenbereich anpassen...!!! .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End If End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim enmXlDVType As XlDVType If Not Intersect(Target, Range(Cells(5, 25), Cells(99, 25))) Is Nothing Then '// Hier jetzt Dein Bereich Y5-Y99...!!! On Error Resume Next enmXlDVType = Target.Validation.Type If Err.Number > 0 Then On Error GoTo 0 With Target.Validation Call .Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=IF(B" & Target.Row & ">"""",$A$1:$A$10,"""")") '// Hier Dein Listenbereich Tabelle anpassen...!!! .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Excel Liste mittels Makro erstellen

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread