Eintrag Textbox in Zelle verhindern
20.09.2005 08:19:04
Josef
Mit folgendem Makro werden beim Verlassen einer ComboBox in einer Userform
die Werte von den Textboxen in die entsprechenden Zellen in dem Arbeitsblatt "Binf neu (2)" eingetragen.
Was müßte ich bitte wo ändern oder anders machen, wenn ich z.B. keinen Eintrag machen, sondern nur die Userform schliessen möchte?
Danke
Josef
Private Sub cboListe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If bln1Init = False Then
With Sheets("Binf neu (2)")
Range(.Cells(Range("AE65536").End(xlUp).Row + 1, 31), _
.Cells(Range("AP65536").End(xlUp).Row + 1, 42)).NumberFormat = "000"
.Cells(Range("AE65536").End(xlUp).Row + 1, 31).Value = fBHZ.bhztxt6.Text
.Cells(Range("AF65536").End(xlUp).Row + 1, 32).Value = fBHZ.bhztxt7.Text
.Cells(Range("AG65536").End(xlUp).Row + 1, 33).Value = fBHZ.bhztxt8.Text
.Cells(Range("AH65536").End(xlUp).Row + 1, 34).Value = fBHZ.bhztxt9.Text
.Cells(Range("AI65536").End(xlUp).Row + 1, 35).Value = fBHZ.bhztxt10.Text
.Cells(Range("AJ65536").End(xlUp).Row + 1, 36).Value = fBHZ.bhztxt11.Text
.Cells(Range("AK65536").End(xlUp).Row + 1, 37).Value = fBHZ.bhztxt12.Text
.Cells(Range("AL65536").End(xlUp).Row + 1, 38).Value = fBHZ.bhztxt13.Text
.Cells(Range("AM65536").End(xlUp).Row + 1, 39).Value = fBHZ.bhztxt14.Text
.Cells(Range("AN65536").End(xlUp).Row + 1, 40).Value = fBHZ.bhztxt15.Text
.Cells(Range("AO65536").End(xlUp).Row + 1, 41).Value = fBHZ.bhztxt16.Text
.Cells(Range("AP65536").End(xlUp).Row + 1, 42).Value = fBHZ.bhztxt17.Text
End With
End If
End Sub