Zellen löschen und Anzeiegn
30.05.2020 15:04:12
philipp
ich habe folgendes Makro im Bezug zur Textbox auf einer Userform.
Das wird alles durchgeführt, aber erst wenn ich die Userform geschlossen habe.
Ich habe die Userform mal etwas verschoben, so das ich sehen kann ob der
Buchstabe z.B. U direkt in die Zelle geschrieben wird, leider nicht also erst wenn
ich die UF schließe.
Wieso ?
mfg philipp
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Range("D14") = UCase(TextBox1)
TextBox1 = ActiveSheet.Range("D14").Value
ActiveSheet.Range("D14").Select
Selection = Selection.Value 'für wert zelle setzen, wie ENTER
Dim az
Dim ze
Set az = ActiveSheet.Range("D14") ' ActiveCell
If az = "U" Or az = "K" Or az = "UU" Or az = "F" Then
ze = ActiveCell().Row
Intersect(Range("E:G"), Rows(ze)).Select
Selection.ClearContents
ActiveCell.Offset(0, -1).Activate
End If
UserForm_Initialize
TextBox1.BackColor = vbGreen '&H8000000F 'hellgrau
End Sub