Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Inhalt aud Textboxen löschen
#1
Hallo Forum,

ich habe mir eine Userform mit mehreren Textboxen erstellt,
jetzt möchte ich wenn ich neue Daten eingenen möchte das die Inhalte der Textboxen gelöscht wird!

die Textboxen habe ich zur besseren bearbeitung umbenannt. z.B txtDatum, txtName, txtEingang usw.

Gibt es eine elegantere Lösung als: txtDatum = "" ?

Gruß Klaus
Gruß Klaus

es Grüßt der niederRhein! 17

Office 2010
to top
#2
Hallo Klaus,

hier eine kleine Prozedur mit der Du diverse Steuerelemente zurücksetzen kannst, wenn Du Dir die Prozedur
auf einen CommandButton legst:

Code:
Sub SteuerelementeZurücksetzen_Click()
Dim Steuerelement As Control

Application.ScreenUpdating = False
Select Case TypeName(Steuerelement)
          Case "TextBox": Steuerelement = ""
          Case "CheckBox": Steuerelement = False
          Case "ComboBox": Steuerelement = ""
          Case "ListBox": Steuerelement =""
          Case "OptionButton": Steuerelement = False
End Select
Application.ScreenUpdating = True
End Sub

Gruß
Max
to top
#3
Hallo Klaus,

wenn alle Textboxen geleert werden sollen, kannst Du sie so in einer chleife leeren:

Code:
Private Sub CommandButton1_Click()
   Dim oControl As Control
   For Each oControl In Me.Controls
      If Left(oControl.Name, 3) = "Txt" Then
         oControl = ""
      End If
   Next
End Sub

Dabei wird davon ausgegangen, dass die Bezeichnungen immer mit "Txt" beginnen.

Wenn Du einzelne ausschließen möchtest, muss dann noch eine weitere If Abfrage rein genommen werden.
Gruß Atilla

Excel 2007
to top
#4
Hallo Max,

fehlt da nicht die For Each Schleife:

Code:
Private Sub CommandButton1_Click()
   Dim Steuerelement As Control
  
   For Each Steuerelement In Me.Controls
      Select Case TypeName(Steuerelement)
                Case "TextBox": Steuerelement = ""
                Case "CheckBox": Steuerelement = False
                Case "ComboBox": Steuerelement = ""
                Case "ListBox": Steuerelement = ""
                Case "OptionButton": Steuerelement = False
      End Select
   Next
End Sub
Gruß Atilla

Excel 2007
to top
#5
Hallo Max,

bei deinem Beispiel, gibt er eine Fehlermeldung an das die Variable nich deklariert ist!
ich habe Variable zwar deklariert, warscheinlich aber falsch!

Dim Steuerelement As Object

Hallo Atilla,

bin Beispiel funktioniert, muß aber immer zweimal das Makro starten,
da immer eine Textbox erst beim zweiten mal geleert wird.

Gruß Klaus
Gruß Klaus

es Grüßt der niederRhein! 17

Office 2010
to top
#6
Hallo Klaus,

das kann ich nicht nachvollziehen.
Dann müsste bei dir noch irgendwo Code sein, der das Löschen beim ersten mal verhindert.

Ich hatte in Max Version etwas ergänzt, hast du es mit meiner Ergänzung mal getestet.
Gruß Atilla

Excel 2007
to top
#7
(29.01.2015, 11:59)atilla schrieb: Hallo Max,

fehlt da nicht die For Each Schleife:

...

Hallo Atilla,

natürlich Blush.

Danke für die Ergänzung und sorry Klaus.

Gruß
Max
to top
#8
(29.01.2015, 12:59)Nukleus schrieb: Hallo Max,

bei deinem Beispiel, gibt er eine Fehlermeldung an das die Variable nich deklariert ist!
ich habe Variable zwar deklariert, warscheinlich aber falsch!

Dim Steuerelement As Object

...

Gruß Klaus

Hallo Klaus,

wahrscheinlich ist das beim Kopieren verloren gegangen.
Oben im Code steht es drin.

Gruß
Max
to top
#9
Guten morgen ihr beiden,

ich möchte mich bei euch , Max und Atilla bedanken!!! 43

es lag wohl am Blattschutz, das nicht sofort alle Textboxen zurück gesetzt worden sind,
jetzt funktionieren beide Makros!

Vielen Dank!
Gruß Klaus

es Grüßt der niederRhein! 17

Office 2010
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  [VBA] Einfärben von Textboxen über Schleife Rabe 4 79 25.11.2016, 22:04
Letzter Beitrag: schauan
  Zelle löschen wenn leer mit nachrückendem Inhalt - Fehlermeldung #NV Algor 4 552 06.02.2016, 20:37
Letzter Beitrag: Kuwer
  "Nicht lesbarer Inhalt" nach dem Löschen von Kommentaren new officer 4 1.582 16.12.2015, 23:25
Letzter Beitrag: new officer
  Textboxen mit schleife füllen oder leeren sinikaeg 6 2.019 30.03.2015, 13:22
Letzter Beitrag: sinikaeg
  Formular Textboxen anspringen Eisbubi 5 1.187 26.01.2015, 17:38
Letzter Beitrag: Steffl
  VBA: 12 Textboxen auf einmal in UF Bernie 5 1.098 15.01.2015, 11:21
Letzter Beitrag: Bernie
  Werte aus Textboxen an Tabelle Bernie 13 2.694 25.09.2014, 12:31
Letzter Beitrag: Bernie
  leere Textboxen abfangen - wegen addieren WergibtmirRat 9 2.772 05.07.2014, 19:58
Letzter Beitrag: pefeu
  Textboxen mit Auswahl einer Combobox nacheinander füllen WergibtmirRat 15 5.855 29.06.2014, 13:07
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste