AW: Diesen Fehler konnte ich nicht erzeugen ...
15.07.2010 22:55:02
Nepumuk
Hallo,
in die Deklarationen der Klasse:
Option Explicit
Public bol As Boolean
Private llngListIndex As Long
Das Doppelklick-Event der Listbox:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Me.ListBox1.ListIndex >= 0 Then
llngListIndex = ListBox1.ListIndex
cmbma.Value = ListBox1.List(llngListIndex, 0)
DTPicker1.Value = ListBox1.List(llngListIndex, 1)
Label13.Caption = ListBox1.List(llngListIndex, 2)
txtgpartner.Value = ListBox1.List(llngListIndex, 3)
txtvermittler.Value = ListBox1.List(llngListIndex, 4)
cmbcourtage.Value = ListBox1.List(llngListIndex, 5)
txtalle.Value = ListBox1.List(llngListIndex, 6)
txthelvetia.Value = ListBox1.List(llngListIndex, 7)
DTPicker2.Value = ListBox1.List(llngListIndex, 8)
txtinhalt.Value = ListBox1.List(llngListIndex, 9)
txtanmerkung.Value = ListBox1.List(llngListIndex, 10)
End If
cmdschreiben.Visible = False
cmdkorrektur.Visible = True
End Sub
Das Klick-Event des Commandbuttons:
Private Sub cmdkorrekturok_Click()
Dim Antwort As Integer
With Worksheets("Datenbank")
.Unprotect Password:="Helvetia"
Cells(llngListIndex + 2, 1).Value = Me.cmbma.Value
Cells(llngListIndex + 2, 2).Value = Me.DTPicker1.Value
Cells(llngListIndex + 2, 3).Value = Me.Label13.Caption
Cells(llngListIndex + 2, 4).Value = Me.txtgpartner.Value
Cells(llngListIndex + 2, 5).Value = Me.txtvermittler.Value
Cells(llngListIndex + 2, 6).Value = Me.cmbcourtage.Value
Cells(llngListIndex + 2, 7).Value = Me.txtalle.Value
Cells(llngListIndex + 2, 8).Value = Me.txthelvetia.Value
Cells(llngListIndex + 2, 9).Value = Me.DTPicker2.Value
Cells(llngListIndex + 2, 10).Value = Me.txtinhalt.Value
Cells(llngListIndex + 2, 11).Value = Me.txtanmerkung.Value
.Protect Password:="Helvetia"
End With
cmdkorrektur.Visible = False
cmdkorrekturok.Visible = False
cmdneuerkontakt.Visible = True
cmbma.Enabled = 0
DTPicker1.Enabled = 0
Label13.Enabled = 0
txtgpartner.Enabled = 0
txtvermittler.Enabled = 0
cmbcourtage.Enabled = 0
cbxneu.Enabled = 0
txtalle.Enabled = 0
txthelvetia.Enabled = 0
cbxlfd.Enabled = 0
DTPicker2.Enabled = 0
txtinhalt.Enabled = 0
txtanmerkung.Enabled = 0
cbxkeineanm.Enabled = 0
Me.cmbma = ""
Me.cmbcourtage = ""
Me.txtgpartner = ""
Me.txtvermittler = ""
Me.txtalle = ""
Me.txthelvetia = ""
Me.txtinhalt = ""
Me.txtanmerkung = ""
Me.DTPicker1 = Date
Me.DTPicker2 = Date
Me.Label13.Caption = KALENDERWOCHE_DIN(DTPicker1)
Me.cbxlfd = False
Me.cbxneu = False
Me.cbxkeineanm = False
MsgBox "Der ausgewählte Datensatz wurde korrigiert", vbOKOnly + vbInformation, "Helvetia"
End Sub
Und hier auch nochmal:
Private Sub cmdlöschen_Click()
If ListBox1.ListIndex >= 0 Then
With Worksheets("Datenbank")
.Unprotect Password:="Helvetia"
If MsgBox("Wollen Sie den Datensatz " & llngListIndex + 1 & " wirklich löschen.", _
vbYesNo + vbQuestion, "Löschabfrage, nur zur Sicherheit.") = vbYes Then
Tabelle1.Rows(ListBox1.ListIndex + 2).Delete
End If
Me.cmbma = ""
Me.cmbcourtage = ""
Me.txtgpartner = ""
Me.txtvermittler = ""
Me.txtalle = ""
Me.txthelvetia = ""
Me.txtinhalt = ""
Me.txtanmerkung = ""
Me.DTPicker1 = Date
Me.DTPicker2 = Date
Me.Label13.Caption = KALENDERWOCHE_DIN(DTPicker1)
Me.cbxlfd = False
Me.cbxneu = False
Me.cbxkeineanm = False
.Protect Password:="Helvetia"
cmdkorrektur.Visible = False
End With
End If
End Sub
Klick mal in der Menüleiste auf Debuggen - Kompilieren von VBAProjekt. Du hast da Code für zwei Textboxen drin die es nicht mehr gibt.
Gruß
Nepumuk