Datenüberprüfung via VBA
07.05.2019 09:19:39
David
Da ich Daueraufträge habe, habe ich eine zweite Tabelle angefangen wo nur die Daueraufträge stehen.
Bei der Ausgaben liste, ist ein Button mit Dauerauftrag wo er dann die Daten in meine Liste überträgt. Eine Datenüberprüfung habe ich aufgrund mehrere Faktoren einprogrammiert. Hier erstmal ein kleiner Ausschnitt vom Code:
'Kunde auswahl
kunde_zahl = Worksheets("Einstellungen").Cells(1048576, 1).End(xlUp).Row
stringa = "Bitte wählen"
For i = 3 To kunde_zahl
stringa = stringa + "," + Worksheets("Einstellungen").Cells(i, 1)
Next i
'Währung auswahl
W_zahl = Worksheets("Einstellungen").Cells(1048576, 2).End(xlUp).Row
stringb = "Bitte wählen"
For w = 3 To W_zahl
stringb = stringb + "," + Worksheets("Einstellungen").Cells(w, 2)
Next w
Hier zählt der in der Tabelle Einstellungen die Kunden und die Währungen, damit er sie dann als Auswahl für die Zelle mit einschreibt.
Für die einzelnen Positionen ist eine if schleife für die einzelnen Zeilen da.
und so trägt er es ein:
'Kundenauswahl eintragen
Range("D7").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=stringa
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Problem ist das sobald ich das ausführe und abspeichere, kommt die Meldung:Wir haben ein Problem bei einigen Inhalten in "xxx.xlsm" erkannt. Sollen wir so viel wie möglich wiederherstellen? Wenn Sie der Quelle dieser Arbeitsmappe vertrauen, klicken sie auf "Ja"
danach sind alle Buttons verschwunden und meine VBA Codes total durcheinander. Also mehrere Tabellen etc sind nicht mehr da wo sie sein sollten.
Hat jemand eine Idee woran das liegen könnte?