ich bin gerade etwas verwirrt:
In einer Datei dokumentiere ich die Ausgabe von Schlüsseln in einem Tabellenblatt.
Da mehrere verschiedene Bereiche mit verschiedenen Schlüsseln vorhanden sind gibt es für jeden Bereich ein eigenes Tabellenblatt zur Dokumentation. Jedes Tabellenblatt hat auch ein eigenes Eingabeformular, wobei die Eingabefelder eigentlich identisch sind. Die Schlüsselnummern sind auf einem anderen Blatt, jeder Bereich in einer eigenen Spalte. Zur Prüfung, ob ein Schlüssel bereits ausgegeben ist verwende ich eine weitere Spalte in die der Vermerk "aus" geschrieben wird.
Das Speichern der Formulardaten funktioniert. Seltsamerweise funktioniert bei 2 Tabellenblättern auch das Schreiben von "aus" in die Hilfsspalte, beim 3. Tabellenblatt wird es aber nicht geschrieben. Der VBA-Code der Formulare und zum Spechern ist identisch, bis auf die Zuordnung der Spalten (Blatt 1 verwendet Spalte 1 und 2, Blatt 2 die Spalten 3 und 4, usw.).
Hier der Code der für das Speichern von "aus" zuständig ist (Blatt 3, Spalten 5 und 6):
' Vermerken dass der Schlüssel ausgegeben ist
With wksData
For ii = 3 To .Columns(5).Find(what:=Me.cmbSchlüsselNr.Value, LookIn:=xlValues, lookat:= _
_
xlWhole).Row
If .Cells(ii, 5).Value = Me.cmbSchlüsselNr.Value Then
.Cells(ii, 6).Value = "aus"
Exit For
End If
Next ii
End With
Woran kann es liegen dass es 2x funktioniert und beim 3.ten Mal nicht mehr?
Vielen Dank für Eure Unterstützung!
Gruß Marcus