Hi,
ja, ich habe eigentlich Integer dort stehen. Dim last As Integer
Die Zeile habe ich jetzt gelöscht.
Meine ganze Programmierung sieht jetzt so aus:
Option Explicit
Public last As Long
Private Sub CheckBox_uebetragen()
Dim ObCb As Object
Dim LoLetzte As Long
With Worksheets("Reklamationsformular2.xlsm")
If .Range("A65536") = "" Then
LoLetzte = .Range("A65536").End(xlUp).Row + 1
For Each ObCb In Me.Controls
If TypeName(ObCb) = "CheckBox" Then
If ObCb.Value = True Then
.Cells(LoLetzte, ObCb.Tag) = "1"
Else
.Cells(LoLetzte, ObCb.Tag) = "0"
End If
End If
Next ObCb
Else
MsgBox "Es ist keine Zeile mehr frei"
End If
End With
End Sub
Private Sub cb_1_Click()
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = tb_7
Cells(last, 2).Value = tb_1
Cells(last, 3).Value = tb_2
Cells(last, 4).Value = tb_3
Cells(last, 5).Value = tb_4
Cells(last, 6).Value = tb_5
Cells(last, 7).Value = tb_6
Cells(last, 8).Value = ob_1
Cells(last, 8).Value = IIf(ob_1 = True then "Vorauskasse",)
Cells(last, 8).Value = IIf(ob_2 = True, "Paypal", 0)
Cells(last, 8).Value = IIf(ob_3 = True, "Überweisung", 0)
Cells(last, 8).Value = IIf(ob_4 = True, "Rechnung", 0)
Cells(last, 9).Value = tb_10
Cells(last, 10).Value = tb_11
Cells(last, 11).Value = IIf(ob_5 = True, "zu klein", 0)
Cells(last, 11).Value = IIf(ob_6 = True, "zu groß", 0)
Cells(last, 11).Value = IIf(ob_7 = True, "nicht wie erwartet", 0)
Cells(last, 11).Value = IIf(ob_8 = True, "Materialfehler", 0)
Cells(last, 12).Value = tb_12
End Sub
Private Sub cb_2_Click()
Dim sngHeight As Single, sngWidth As Single
sngHeight = Me.Height
sngWidth = Me.Width
Me.Height = 720
Me.Width = 600
Zoom = 85
Me.PrintForm
Me.Height = sngHeight
Me.Width = sngWidth
Zoom = 100
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub ob_1_Click()
Cells(last, 8).Value = "Vorauskasse"
End Sub
Private Sub ob_2_Click()
Cells(last, 8).Value = "Paypal"
End Sub
Private Sub ob_3_Click()
Cells(last, 8).Value = "Überweisung"
End Sub
Private Sub ob_4_Click()
Cells(last, 8).Value = "Rechnung"
End Sub
Private Sub UserForm_initialize()
tb_7 = Date
End Sub
Beim Test motzt er jetzt leider mit der Meldung:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Danach soll ich Debuggen.
Was meint er?
|