Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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
[VBA] UserForm leeren
30.06.2014 18:00:49
Andreas
Hallo zusammen,
ich habe ein Problem mit einem VBA-Optimierungstool.
Dieses zeigt mir die optimale Verteilung in einem Portfolio in einer UserForm an, wenn ich das Tool aber mehrmals durchführe, löscht es nicht die alten Werte. Was muss ich in meinem Code ändern?
Hier ist der Code zur Befüllung:

ActiveWorkbook.ActiveSheet.Cells(3, Aktienzahl + 8) = "Optimales Portfolio im  _
Tangentialpunkt"
For i = 1 To Aktienzahl
ActiveWorkbook.ActiveSheet.Cells(4, Aktienzahl + i + 8) = "Aktie" & i
ActiveWorkbook.ActiveSheet.Cells(5, Aktienzahl + i + 8) = Gewichtung(i, Max)
Ausgabe.Label1.Caption = Ausgabe.Label1.Caption & vbLf & Gewichtung(i, Max)
Next i
Vielen Dank und viele Grüße,
Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: [VBA] UserForm leeren
30.06.2014 18:20:21
Matze
Hallo Andreas,
so richtig kapier ich noch nicht was du genau willst.
Wenn alle Eingabefelder TextBoxen oder Comboboxen gelehrt werden sollen,
dann kannst du mit NAMEderUF.unload alles löschen.
Gruß Matze

oder so..
30.06.2014 18:28:04
Spenski
Dim objControl As Control
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
Next
gruss

AW: oder noch anders,..
30.06.2014 18:33:43
Matze
Sub UFLoeschen()
Dim objCtrl As Control
For Each objCtrl In UserForm1.Controls
If TypeName(objCtrl) = "TextBox" Or TypeName(objCtrl) = "ComboBox" Then
objCtrl.Value = ""
End If
Next
End Sub

Anzeige
AW: [VBA] UserForm leeren
30.06.2014 20:06:47
Andreas
Danke!

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige