Da mir in der Vergangenheit schon sehr geholfen wurde hier, versuche ich es erneut.
Ich habe eine Excel-Tabelle, bei der ich dabei bin, diese so vorzubereiten, dass ich in naher Zukunft ausschließlich über Schaltflächen und Dialogfelder die Daten bearbeite.
Ich habe eine UserForm geschaffen, die dafür da ist einen neuen Eintrag (neue Zeile) in der Datenbank zu erstellen. Die dazugehörige Prozedur jedoch hat noch irgendwo einen Fehler.
Ich bitte um Unterstützung!
Prozedur:
Private Sub cmdSpeichern_Click()
Dim Zeile As Variant
Dim LetzteZeile As Variant
'Ablehnen, falls kein Name für das Objekt eingetragen ist
If txtObjektname.Text = "" Then
MsgBox "Bitte einen Namen für das Objekt eintragen!", vbInformation
Exit Sub
End If
If txtIdentnummer = "" Then
MsgBox "Bitte eine Identnummer aus der DLS 4000 ermitteln!"
Exit Sub
End If
'Alle Identnummern durchsuchen
'Zeile = 5
'Do While Cells(Zeile, 2).Value ""
'Falls neue Identnummer bereits vorhanden
'If StrConv(Cells(Zeile, 2).Value) = IdentNeu Then
'MsgBox "Fehler: Die Identnummer ist bereits vergeben", vbCritical
'Exit Sub
'End If
'Zeile = Zeile + 1
'Loop
'Letzte Zeile ermitteln
LetzteZeile = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
'Neue Zeile einfügen falls notwendig
If Zeile