Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1800to1804
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

bestimmte TB in Array und Schleife

bestimmte TB in Array und Schleife
23.12.2020 08:44:32
Peer
Guten Morgen.
Ich möchte gern bei bestimmte TextBoxen die Eigenschaften ändern. Dabei habe ich mir gedacht, _ entweder mit einer With-Anweisung zu arbeiten

Select Case btn_EditZulagen.Caption
'Editieren der Werte
Case "Edit"
With txt_Stand
'.BorderStyle =  = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectSunken
.BackStyle = fmBackStyleOpaque
.Locked = False
End With
btn_EditZulagen.Caption = "OK"
With txt_ZulageFeiertag
End With
'Änderung abschließen
Case "OK"
With txt_Stand
'.BorderStyle = fmBorderStyleNone
.BackStyle = fmBackStyleTransparent
.SpecialEffect = fmSpecialEffectFlat
.Locked = True
End With
btn_EditZulagen.Caption = "Edit"
End Select
oder durch Vereinfachung mit einer Schleife.
Als erstes wollte ich die bestimmten TB in ein Array einlesen und dann mit einer Schleife zu arbeiten.
Mein derzeitiger Stand ist

Private Sub btn_EditZulagen_Click()
Dim txtZulagen, i As Integer, ctrl As control
txtZulagen = Array(txt_ZulageSamstag, txt_ZulagenSonntag, txt_ZulagenFeiertag,, txt_Stand)
For Each ctrl In Me.Controls(txtZulagen)
With Me.Controls(txtZulagen)
.SpecialEffect = fmSpecialEffectSunken
.BackStyle = fmBackStyleOpaque
.Locked = False
End With
Next ctrl
End Sub
Habe ich (wieder) Gedankenfehler?
Kann mir jemand auf die Sprünge helfen?
LG
Peer

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte TB in Array und Schleife
23.12.2020 09:05:58
Daniel
Hi
Wenn, dann so:
dim txtZulagen
Dim crtl
txtZulagen = Array("txt_ZulageSamstag", "txt_ZulagenSonntag", "txt_ZulagenFeiertag", "txt_Stand" _
)
For each crtl in txtZulagen
With me.controls(crtl)
End with
Next
Gruß Daniel
AW: bestimmte TB in Array und Schleife
23.12.2020 10:05:02
Peer
Super Daniel.
Ich habe den Code dank deiner Hilfe so angepaßt.

Private Sub btn_EditZulagen_Click()
Dim txtZulagen
Dim ctrl
txtZulagen = Array("txt_ZulageSamstag", "txt_ZulageNacht", "txt_ZulageSonntag", " _
txt_ZulageFeiertag", "txt_Stand", "txt_SZ2", "txt_SZ3", "txt_FAE")
Select Case btn_EditZulagen.Caption
'Editieren der Werte
Case "Edit"
For Each ctrl In txtZulagen
With Me.Controls(ctrl)
.SpecialEffect = fmSpecialEffectSunken
.BackStyle = fmBackStyleOpaque
.Locked = False
End With
Next ctrl
btn_EditZulagen.Caption = "OK"
'        'Änderung abschließen
Case "OK"
For Each ctrl In txtZulagen
With Me.Controls(ctrl)
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Locked = True
End With
Next ctrl
btn_EditZulagen.Caption = "Edit"
End Select
End Sub
Gruß Peer
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige