Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1176to1180
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
Inhaltsverzeichnis

Code "abkürzen"

Code "abkürzen"
Gegga
Hallo nochmal...
Wollte gerade folgenden Code für ca 50 Optbuttons verwenden:
Private Sub UserForm_Initialize()
OB_1.Caption = Worksheets("Fill In").Range("C2")
If OB_1.Caption = "" Then
OB_1.Visible = False
End If
OB_2.Caption = Worksheets("Fill In").Range("C3")
If OB_2.Caption = "" Then
OB_2.Visible = False
End If
OB_3.Caption = Worksheets("Fill In").Range("C4")
If OB_3.Caption = "" Then
OB_3.Visible = False
End If
OB_4.Caption = Worksheets("Fill In").Range("C5")
If OB_4.Caption = "" Then
OB_4.Visible = False
End If
End Sub
Lässt sich das ned in "verkürzter Schreibweise" bewerkstelligen? Da tipper ich mir ja nenWolf ;)
Gruß Gegga

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code "abkürzen"
15.09.2010 14:09:08
EvilRik
Hallo Gegga,

Private Sub UserForm_Initialize()
for zae1=1 to 50
with userform1.controls("OB_" & zae1)
.caption=worksheets("Fill in").cells(1+zae1,"C")
if .caption="" then .visible=false else .visible=true
end with
next zae1
end sub

Gruß Henrik
AW: Code "abkürzen" VIELEN DANK!!! owT
15.09.2010 14:33:07
Gegga
.
AW: Code "abkürzen" weitere Frage
15.09.2010 15:16:21
Gegga
Hallo nochmal...
Jetzt würde ich folgendes benötigen
es sollte bei klick auf CommandButton überprüft werden ob mindestens 1 OptButton von diesen 50 angeklickt ist, wenn nicht, MsgBox mit Hinweis.
Wenn min 1 Opt Button angeklickt Commandbutton2 enabled.
Vielen Dank nochmal
Anzeige
AW: Code "abkürzen" weitere Frage
15.09.2010 16:02:29
EvilRik
Hallo Gegga,
In das Click Ereignis deines ersten Buttons deiner Userform einfügen:

Private Sub CommandButton1_Click()
call OB_True_Anzahl
End Sub

In ein allgemeines Modul (zB: Modul1) einfügen:
Sub OB_True_Anzahl()
Dim zae1 As Integer, Anzahl As Integer
With UserForm1
For zae1 = 1 To 50
If .Controls("OB_" & zae1).Value = True Then Anzahl = Anzahl + 1
Next zae1
If Anzahl > 0 Then
.CommandButton2.Enabled = True
Else
.CommandButton2.Enabled = False
MsgBox "Treffen Sie mindestens eine Auswahl!", vbInformation
end if
End With
End Sub

Gruß Henrik
Anzeige
AW: Code "abkürzen" weitere Frage DANKE!!!! owT
15.09.2010 17:57:49
Gegga

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige