Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

TextBox Wert Löschen | Herbers Excel-Forum


Betrifft: TextBox Wert Löschen von: Heinz H
Geschrieben am: 19.01.2012 11:07:04

Hallo Leute
Ich habe eine UF,wo mit den TextBoxen Werte eingetragen werden.
Nun möchte ich statt Werte eintragen,das Werte gelöscht werden.

Zb. in Textbox TextBoxE gebe ich eine 4 ein. nun wird in Sheets "Einbringt." eine 4 eingetragen.
Nun möchte ich aber die 4 löschen.

Könnte mir dazu bitte jemand helfen ?

Danke
Heinz

'Eintragen
Private Sub CommandButton1_Click()
Dim i As Integer
Dim Zeile As Integer
    Application.ScreenUpdating = False
If TextBoxE <> "" Then
    Zeile = UserForm_Stunden.TextBoxHidden.Value
   For i = 27 To 256
    If ThisWorkbook.Worksheets("TextBoxE").Cells(Zeile, i).Text = "" Then
Sheets("Einbringt.").Unprotect Password:="vetro"
        ThisWorkbook.Worksheets("Einbringt.").Cells(Zeile, i) = TextBoxE.Value
        Exit For
    End If
   Next i
End If

Sheets("Einbringt.").Protect Password:="vetro"
UserForm_Stunden.Hide


If TextBoxÜ <> "" Then
    Zeile = UserForm_Stunden.TextBoxHidden1.Value
   For i = 183 To 256
    If ThisWorkbook.Worksheets("Üst").Cells(Zeile, i).Text = "" Then
Sheets("Üst").Unprotect Password:="vetro"
        ThisWorkbook.Worksheets("Üst").Cells(Zeile, i) = TextBoxÜ.Value
        Exit For
    End If
   Next i
End If
Sheets("Üst").Protect Password:="vetro"

TextBoxÜ = ""
TextBoxE = ""

UserForm_Stunden.Hide
    Application.ScreenUpdating = True

End Sub

'Eintragen
Private Sub TextBoxE_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim Regex As Object
    Set Regex = CreateObject("vbScript.Regexp")
    With Regex
        .Pattern = "(^\d+\.\d+$|^\d+\.$|^\d+$)"
        If .test(TextBoxE.Text & Chr(KeyAscii)) = False Then KeyAscii = 0
    End With
TextBoxE = ""
End Sub

'Eintragen
Private Sub TextBoxÜ_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim Regex As Object
    Set Regex = CreateObject("vbScript.Regexp")
    With Regex
        .Pattern = "(^\d+\.\d+$|^\d+\.$|^\d+$)"
        If .test(TextBoxÜ.Text & Chr(KeyAscii)) = False Then KeyAscii = 0
    End With
TextBoxÜ = ""
End Sub

  

Betrifft: Was löschen von: Harald Kapp
Geschrieben am: 19.01.2012 12:38:58

Hallo Heinz,
willst Du die 4 in dem Sheet löschen, oder die 4 aus der Textbox löschen? Wird mir nicht ganz klar.

Im Sheet löschen:
ThisWorkbook.Worksheets("Einbringt.").Cells(Zeile, i) = ""

In der Textbox löschen:
TextBoxE = ""

Gruß
Harald


  

Betrifft: AW: Was löschen von: Heinz H
Geschrieben am: 19.01.2012 12:43:06

Hallo Harald

Ich möchte die 4 im Sheets löschen.

Danke Heinz


Beiträge aus den Excel-Beispielen zum Thema "TextBox Wert Löschen"