Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler bei CMD Button

Fehler bei CMD Button
Jessi
Hallo zusammen,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehler bei CMD Button
12.05.2010 09:52:33
Hajo_Zi
Hallo Jessi,
man könnte vermuten das ist in einer UserForm. Ich baue die nicht nach.

End With nach der Fehlerzeile?-owT
12.05.2010 12:31:28
robert
AW: Fehler bei CMD Button
12.05.2010 10:13:02
xr8k2
Hi Jessi,
schau dir mal in deinem Code den Beginn und das Ende des With-Blockes (der With Blöcke?) an.
Das erste (und glaub ich einzige) "With" endet nach einem Teil der Befehle, dann kommt ein End With ganz ohne (Beginn)-With. Für die dann folgenden Anweisungen fehlt demzufolge der With-Verweis auf das Sheet.
Gruß,
xr8k2
ich bekomme es nicht in den Griff, hier die Datei
17.05.2010 14:22:55
Jessi
hallo zusammen,
danke für die Rückmeldungen, ich bekomme es leider nicht in den Griff. Habe nun mal die Datie beigefügt.
Unter "Stammdaten erfassen" öffnet sich die Userform. Achtung.
Es muss ein Autor eingegeben werden vor dem CMD-Button "Plan erfassen".
https://www.herber.de/bbs/user/69619.zip
Danke vorab für Eure Hilfe!
LG
Jessi
Anzeige
AW: ich bekomme es nicht in den Griff, hier die Datei
17.05.2010 23:41:58
fcs
Hallo Jessi,
so wie ich das sehe hast du eine End If -Anweisung falsch plaziert.
Ist aber bei einer so langen Prozedur schwierig einzuschätzen.
Gruß
Franz
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
'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"
'Neue Reihe berechnen
lngNeueReihe = Application.Max(Range("A65536").End(xlUp).Row + 1, 6)
'Werte eintragen
With ActiveSheet
.Cells(lngNeueReihe, 1).Value = "x" 'X
.Cells(lngNeueReihe, 2).Value = cboProzess.Value 'Planlauf-Prozess
.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 If                                                 'hier löschen #####
'Prozesszeichenkette basierend auf cboProzess.Value
' 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
End Select
End With
End If   '                                             ##### Hier einfügen
End If
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige