Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro verkürzen

Makro verkürzen
30.10.2004 13:46:20
Rolf
Hallo Excel Profis,
ich habe einige Textfelder ( aus Steuerelement Textbox) und möchte
den Inhalt der folgenden Textboxen löschen.
Das folgende Makro funktioniert auch, aber läßt sich dieses Makro auch verkürzen? (TextBox 31-45 ist in diesem Fall nur zufällig kann auch 31,36,41 sein)

Sub TextBoxleeren()
' Eingabefelder leeren
TextBox31 = "": TextBox32 = "": TextBox33 = "": TextBox34 = "": TextBox35  = "": TextBox36 = "": TextBox37 = "": TextBox38 = "": TextBox39 = "": TextBox40 = "": TextBox41 = "": TextBox42 = "": TextBox43 = "": TextBox44 = "": TextBox45 = ""
End Sub

Vielen Dank im voraus
Rolf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro verkürzen
K.Rola
Hallo,
so z.B.:
Sub Textboxen_leeren()
Dim t As Integer
With Sheets("Tabelle1")
For t = 1 To .OLEObjects.Count
If .OLEObjects(t).ProgId = "Forms.TextBox.1" Then
.OLEObjects(t).Object.Text = ""
End If
Next
End With
End Sub

Gruß K.Rola
AW: Makro verkürzen
30.10.2004 14:47:09
Rolf
Hallo K.Rola,
danke für dein Makro - funktioniert.
Danke auch Horst - dein Makro konnte ich noch nicht zum laufen bringen.
Gruß Rolf
AW: Makro verkürzen
Horst
Versuch's mal mit einer For Next-Schleife, ungefähr so.
For i = 31 to 41 Step 1
TextBoxi=""
Next i
Step 1 muss du angleichen, um die Schrittweite zu erhöhen.
Ich kann es hier zu Hause nicht ausprobieren, da nur auf Arbeit ein Excel-Rechner vorhanden.
Gruss Horst
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige