Typen unverträglich ?
19.01.2009 13:30:00
Heinz
Der untere Code trägt mir Daten in Sheets"311" ein,und druckt diesen aus.
Kein Problem.
Nur bei
If Not Me.TextBox8 Then - Kommt die Fehlermeldung "Typen unverträglich"
Warum ?
Danke, Heinz
Private Sub CommandButton1_Click()
'Werte Eintragen in Maschinen-Blatt
Application.ScreenUpdating = False
Dim wksMaschine As Worksheet, bolDrucken As Boolean
If Not Me.TextBox8 Then
MsgBox "Kein Linie ausgewählt!"
Exit Sub
End If
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
Exit Sub
End If
If Me.ComboBox2.ListIndex = -1 Then
MsgBox "Bitte Namen wählen!"
Exit Sub
Else
If MsgBox("Bitte nicht auf Einzeltropfen vergessen. Drucken ?", _
vbYesNo + vbQuestion, "Daten Eintragen - Drucken?") = vbYes Then
bolDrucken = True
Else
bolDrucken = False
Exit Sub
End If
Set wksMaschine = Worksheets("311")
Application.ScreenUpdating = False
Worksheets("311").Unprotect Password:="test"
Worksheets("311").Visible = True
With wksMaschine
.Range("CA6") = Me.ComboBox1.Value 'Datum
.Range("BR8") = Me.ComboBox2.Value 'Automatenfahrer
.Range("P5") = Me.TextBox2 'Artikelbeschreibung
.Range("BV5") = Me.TextBox3 'ArtikelNummer
.Range("BG8") = Me.TextBox6.Value '+
.Range("AP8") = Me.TextBox7.Value '-
.Range("K8") = Me.TextBox8.Value 'Gewicht
If bolDrucken = True And .Range("K8") "" Then
.PrintOut
Worksheets("311").Visible = xlVeryHidden
End If
End With
End If
End With
Worksheets("311").Protect Password:="test"
End If
Application.ScreenUpdating = True
End Sub
Anzeige