Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Textboxen per Script leeren

bestimmte Textboxen per Script leeren
22.10.2017 20:42:32
Jürgen
Hallo,
ich habe ein Tabellenblatt mit verschiedenen TextBoxen. Diese sind unter den namen "Bemerkung_xxxx" in den Eigenschaften betitelt. Die 4 xxxx stehen dabei jeweils immer für eine 4-stellige Zahl die dabei der Textbox vergeben wird.
Dazu nun eine Frage:
Könnten man nun per Button auf dieser Tabellenseite mit einem Click diese TextBoxen "Bemerkung_xxxx" inhaltlich löschen, also allen Text welcher in den Boxen geschrieben worden ist?
Danke & Gruß,
Juergen

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Textboxen per Script leeren
22.10.2017 21:09:06
Nepumuk
Hallo Juergen,
teste mal:
Option Explicit

Public Sub KillText()
    Dim objOLEObject As OLEObject
    For Each objOLEObject In Tabelle1.OLEObjects
        With objOLEObject
            If TypeOf .Object Is MSForms.TextBox Then _
                If Left$(.Name, 10) = "Bemerkung_" Then .Object.Text = vbNullString
        End With
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: perfekt
22.10.2017 21:20:43
Jürgen
Hallo Nepumuk!
vielen Dank für deinen schnelle Lösung!
Genau das suchte ich. Ich hab mich mit einzelnen zusammengeketteten TextBox-Namen abgemüht.
Deines ist super elegant!
Danke & Gruss,
Juergen
AW: Ergänzungsfrage 'OK oder Abbruch'
22.10.2017 22:02:27
Jürgen
Hallo nochmals,
wenn ich vor der entgültigen Löschaktion noch eine Msg Box setzen will, welche 'OK' oder "Abbruch" bietet, wie müsste ich das einpflegen in das Script!?
Danke & Gruss,
Juergen
AW: Abbildung - Symbol VbExclama 'OK oder Abbruch'
22.10.2017 22:08:26
Jürgen
...Nachtrag:
schön wäre es noch, wenn das deutliche Symbol 'VbExclamationmit' dort mit einzubinden.
AW: Ergänzungsfrage 'OK oder Abbruch'
23.10.2017 10:42:31
Nepumuk
Hallo Jürgen,
so:
Option Explicit

Public Sub KillText()
    Dim objOLEObject As OLEObject
    If MsgBox("Texte wirklich löschen?", vbExclamation Or vbOKCancel, "Sicherheitsabfrage") = vbOK Then
        For Each objOLEObject In Tabelle1.OLEObjects
            With objOLEObject
                If TypeOf .Object Is MSForms.TextBox Then _
                    If Left$(.Name, 10) = "Bemerkung_" Then .Object.Text = vbNullString
            End With
        Next
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: bestimmte Textboxen per Script leeren
23.10.2017 06:37:07
Jürgen
sorry, hatte vergessen das Flag auf "unbeantwortet" zu setzen
Das kannst Du mal so...
23.10.2017 08:26:34
Case
Hallo, :-)
... der Spur nach probieren: ;-)
Public Sub KillText()
Dim objOLEObject As OLEObject
For Each objOLEObject In Tabelle1.OLEObjects
With objOLEObject
If TypeOf .Object Is MSForms.TextBox Then _
If Left$(.Name, 10) = "Bemerkung_" Then _
If MsgBox(.Name & " leeren?", vbOKCancel + vbExclamation, _
"TextBox") = vbOK Then .Object.Text = vbNullString
End With
Next
End Sub
Servus
Case
AW: Das kannst Du mal so...
23.10.2017 09:43:10
Juergen
Hallo Case,
vielen Dank für deine Antwort.
Es funktioniert auch soweit, doch jetzt werden alle Boxen der Reihe nach zur Löschung abgefragt.
Könnte man das Script dahingehend modifizieren, dass ALLE genannte TXT-Boxen auf einmal gelöscht werden, nachdem man 'OK" betätigt hat?
Danke & Gruss,
Juergen
Anzeige
So würde die Frage...
23.10.2017 09:47:27
Case
Hallo, :-)
... am Anfang gestellt: ;-)
Public Sub KillText_1()
Dim objOLEObject As OLEObject
If MsgBox("Bemerkung leeren?", vbOKCancel + vbExclamation, "TextBox") = vbOK Then
For Each objOLEObject In Tabelle1.OLEObjects
With objOLEObject
If TypeOf .Object Is MSForms.TextBox Then _
If Left$(.Name, 10) = "Bemerkung_" Then .Object.Text = vbNullString
End With
Next objOLEObject
End If
End Sub
Servus
Case
AW: Danke! alles paletti :)
23.10.2017 10:00:43
Juergen
Hallo Case,
ich danke dir für deine Geduld und Mühe ...und sorry, wenn ich mich missverständlich ausgedrückt habe.
Jedenfalls bin ich wieder einen Schritt weiter, dass das Formular besser flutscht ;-)
Danke & Gruss,
Juergen
Anzeige

299 Forumthreads zu ähnlichen Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Anzeige
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1