ich habe beim Betätigen des CMD-Buttons folgende Fehlermeldung:
"Fehler beim Komilieren, unzulässiger oder nicht ausreichend def. Verweis"
Hier der Code, zur Info, der Code stoppt bei
" .Cells(lngNeueReihe, 2).Value = cboProzess.Value 'Planlauf-Prozess
"
LG
Jessi
Private Sub cmdDatenschreiben_Click()
Dim lngNeueReihe As Long
If cboAutor.Value = "" _
Then
MsgBox "Leider können Sie keinen neuen Plan erfassen." _
& vbLf & "Sie müssen sich autorisieren!" _
_
& vbLf & "Das Erfassungsdatum wird automatisch hinterlegt", _
vbInformation, "Hinweis für: " & Application.UserName
Else
'Neue Reihe berechnen
lngNeueReihe = Application.Max(Range("A65536").End(xlUp).Row + 1, 6)
'Werte eintragen
With ActiveSheet
.Cells(lngNeueReihe, 1).Value = "x" 'X
' cboProzess.value wird erst weiter unten - nach logischer Befüllung - in die Tabelle erfasst
.Cells(lngNeueReihe, 3).Value = Me.cboPhase.Value 'Phase
.Cells(lngNeueReihe, 4).Value = Me.cboGewerk.Value 'Gewerk
.Cells(lngNeueReihe, 5).Value = Me.cboEntwurfsabschnitt.Value 'Abschnitt
.Cells(lngNeueReihe, 6).Value = Me.cboBauwerk.Value 'Bauwerk
.Cells(lngNeueReihe, 7).Value = Me.cboPlanart.Value 'Planart
.Cells(lngNeueReihe, 8).Value = Me.CboPlannummer.Value 'Plannummer
.Cells(lngNeueReihe, 9).Value = Me.cboAenderungsindex.Value 'Änderungsindex
.Cells(lngNeueReihe, 10).Value = Me.cbostatus.Value 'Status
.Cells(lngNeueReihe, 11).Value = Me.cboPlaner.Value 'Planer
.Cells(lngNeueReihe, 12).Value = Me.txtBemerkungPlanuebergabe.Value 'Bemerkung zu Planuebergabe
.Cells(lngNeueReihe, 13).Value = Me.txtBeschreibungPlaninhalt.Value 'Beschreibung zu Planinhalt (Freitext)
.Cells(lngNeueReihe, 14).Value = Me.txtFormat.Value
.Cells(lngNeueReihe, 15).Value = Me.txtMaßstab.Value
.Cells(lngNeueReihe, 16).Value = Me.optFarbe.Value
.Cells(lngNeueReihe, 17).Value = Me.txtSeiten
.Cells(lngNeueReihe, 19).Value = Me.cboAutor.Value
.Cells(lngNeueReihe, 20).Value = Now
End With
'Bedingungen überprüfen, welche Werte in cboProzess.value geschrieben wird
If cboGewerk.Value = "EP" & cboPhase.Value = "IB" & cboEntwurfsabschnitt.Value = "DE" Then
cboProzess.Value = "Entwurfsplanung Konstr. Ing-Bau Deutschland"
.Cells(lngNeueReihe, 2).Value = cboProzess.Value 'Planlauf-Prozess
End With
End If
'Prozesszeichenkette basierend auf cboProzess.Value
Select Case cboProzess.Value
Case "Entwurfsplanung Konstr. Ing-Bau Deutschland"
' BF-BM Block
.Cells(lngNeueReihe, 58).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 59).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 60).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 61).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 62).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 63).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 64).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 65).Value = "xxx" 'XXX Markierung
' CE-CG Block
.Cells(lngNeueReihe, 83).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 84).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 85).Value = "xxx" 'XXX Markierung
' CH-CL Block
.Cells(lngNeueReihe, 86).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 87).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 88).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 89).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 90).Value = "xxx" 'XXX Markierung
' CM-CQ Block
.Cells(lngNeueReihe, 91).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 92).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 93).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 94).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 95).Value = "xxx" 'XXX Markierung
' CR-CT Block
.Cells(lngNeueReihe, 96).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 97).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 98).Value = "xxx" 'XXX Markierung
' CU-CW Block
.Cells(lngNeueReihe, 99).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 100).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 101).Value = "xxx" 'XXX Markierung
' CX-CZ Block
.Cells(lngNeueReihe, 102).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 103).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 104).Value = "xxx" 'XXX Markierung
' DJ-DL Block
.Cells(lngNeueReihe, 114).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 115).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 116).Value = "xxx" 'XXX Markierung
' CM-DO Block
.Cells(lngNeueReihe, 117).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 118).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 119).Value = "xxx" 'XXX Markierung
' DP-DU Block
.Cells(lngNeueReihe, 120).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 121).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 122).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 123).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 124).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 125).Value = "xxx" 'XXX Markierung
Case "Entwurfsplanung Konstr. Ing-Bau Schweiz"
' BF-BM Block
.Cells(lngNeueReihe, 58).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 59).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 60).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 61).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 62).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 63).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 64).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 65).Value = "xxx" 'XXX Markierung
' CE-CG Block
.Cells(lngNeueReihe, 83).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 84).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 85).Value = "xxx" 'XXX Markierung
' CH-CL Block
.Cells(lngNeueReihe, 86).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 87).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 88).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 89).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 90).Value = "xxx" 'XXX Markierung
' CM-CQ Block
.Cells(lngNeueReihe, 91).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 92).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 93).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 94).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 95).Value = "xxx" 'XXX Markierung
' CR-CT Block
.Cells(lngNeueReihe, 96).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 97).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 98).Value = "xxx" 'XXX Markierung
' CU-CW Block
.Cells(lngNeueReihe, 99).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 100).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 101).Value = "xxx" 'XXX Markierung
' CX-CZ Block
.Cells(lngNeueReihe, 102).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 103).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 104).Value = "xxx" 'XXX Markierung
' DJ-DL Block
.Cells(lngNeueReihe, 114).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 115).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 116).Value = "xxx" 'XXX Markierung
' CM-DO Block
.Cells(lngNeueReihe, 117).Value = "xxx" 'XXX Markierung
.Cells(lngNeueReihe, 118).Value = "xxx" 'XXX Markierung