Guten Abend, komme mit Fehler beim Kompilieren nicht weiter. Mir fehlt ein wenig Unterstützung. Ich erlaube mir mal den Text hier zu veröffentlichen.
Der Fehler steckt in der Zeile: " If Trim(CStr(txtPosNr.Text)) = "" Then "
Nun mal der Text meines Codes:
Private Sub cmdSave_Click()
Dim txtPosNr As Integer ' String
Dim txtNummer As String
Dim txtNachname As String 'lang
Dim txtVorname As String 'lang
Dim txtStrasse As String
Dim txtPLZ As String
Dim txtWohnort As String
Dim txtTelefon As String
Dim txtGemarkung As String
Dim txtJagdbezirk As String
Dim txtFlurstueck As String
Dim txtFlursurstueckNr As String, txtFlaeche As String, txtGemarkung2 As String, txtJagdbezirk2 As String, txtFlurstueck2 As String, _
txtFlurstueckNr2 As String, txtFlaeche2 As String, txtGemarkung3 As String, txtJagdbezirk3 As String, txtFlurstueck3 As String, _
txtFlurstueckNr3 As String, txtFlaeche3 As String, txtGemarkung4 As String, txtJagdbezirk4 As String, txtFlurstueck4 As String, _
txtFlurstueckNr4 As String, TxTFlaeche4 As String, TxTZahlung As String
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If lstData.ListIndex = -1 Then Exit Sub
If Trim(CStr(txtPosNr.Text)) = "" Then
MsgBox "Sie müssen mindestens eine Nummer eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
ausuf = True
If seekArb(txtPosNr, rngRow) Then
Worksheets("Tabelle1").Unprotect
ThisWorkbook.RefreshAll
If rngRow.Cells(, colAtPosNr).Value <> CLng(Trim(CStr(txtPosNr.Text))) Then mvntWert = rngRow.Cells(, colAtPosNr).Value: rngRow.Cells(, colAtPosNr).Value = Trim(CStr(txtPosNr.Text))
If rngRow.Cells(, colAtNummer).Value <> txtNummer.Text Then mvntWert = rngRow.Cells(, colAtNummer).Value: rngRow.Cells(, colAtNummer).Value = txtNummer.Text
If rngRow.Cells(, colAtAnrede).Value <> cboAnrede.Text Then mvntWert = rngRow.Cells(, colAtAnrede).Value: rngRow.Cells(, colAtAnrede).Value = cboAnrede.Text
If rngRow.Cells(, colAtNachname).Value <> txtNachname.Text Then mvntWert = rngRow.Cells(, colAtNachname).Value: rngRow.Cells(, colAtNachname).Value = txtNachname.Text
If rngRow.Cells(, colAtVorname).Value <> txtVorname.Text Then mvntWert = rngRow.Cells(, colAtVorname).Value: rngRow.Cells(, colAtVorname).Value = txtVorname.Text
Der Code geht natürlich noch weiter, aber bis der Fehler markiert wird wenn ich starte ist hier vielleicht schon ersichtlich. Einer erklärenden Nachricht sehe ich mit Dank entgegen. Lisa
Lisas_VBA (3) 
|
