Array für mehrere TextBoxen

Hallo liebe VBA-Gemeinde.
Ich möchte gern über eine Checkbox "chk_Dienstreise" viele Textboxen, Radiobutton und ComboBoxen steuern. Dabei habe ich an ein Array gedacht und mit meinen Anfänger-Latein folgendes gebastelt.

Private Sub chk_Dienstreise_Click()
If chk_Dienstreise = False Then
With txt_Zieladresse
.Enabled = False    'deaktiviert
.BackColor = &H8000000F     'grau
End With
Else
With txt_Zieladresse
.Enabled = True     'aktiviert
.BackColor = RGB(255, 255, 255) 'weiss
End With
End If
End Sub

Hier soll mit Deaktivieren der Checkbox als Beispiel die TextBox "txt_Zieladresse" deaktiviert und grau hinterlegt werden. Wenn die CheckBox aktiviert wird, soll die TextBox wieder beschreibbar sein.
Das möchte ich mit mehreren Objekten auf der UF machen.
Um nicht einzeln alles aufzulisten, dachte ich an Array.
Ist die Idee umsetzbar?
Mein Versuch


Private Sub chk_Dienstreise_Click()
Dim arrFelder(), i As Byte
arrFelder = Array("txt_Zieladresse", "txt_Abgabe")
If chk_Dienstreise = False Then
For i = 0 To UBound(arrFelder())
arrFelder(i).BackColor = &H8000000F     'grau
arrFelder(i).Enabled = False     'deaktiviert
Next
Else: Exit Sub
End If
End Sub

führt nicht zum Ergebnis.
Ist die Überlegung überhaupt sinnvoll?
LG
Peer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If Not chk_Dienstreise.Value Then For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = &H8000000F 'grau .Enabled = False 'deaktiviert End With Next Else: Exit Sub End If

If Not chk_Dienstreise.Value Then For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = &H8000000F 'grau .Enabled = False 'deaktiviert End With Next Else For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = '? andere Farbe .Enabled = True 'aktiviert End With Next End If

If Not chk_Dienstreise.Value Then sbTxtboxEnabledOrNot False, &H8000000F Else sbTxtboxEnabledOrNot True, ? = deine andere Farbe für aktiviert End If Sub sbTxtboxEnabledOrNot(ByVal YesOrNo As Boolean, ByVal farbe As Long) Dim objItem As Object For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = farbe .Enabled = YesOrNo 'wenn False, dann deaktiviert / wenn True, dann aktiviert End With Next End Sub

If Not chk_Dienstreise.Value Then If MsgBox("Datenfelder wirklich löschen´?", _ vbYesNo, "Daten der Dienstreise löschen") = vbNo Then Exit Sub sbTxtboxEnabledOrNot False, &H8000000F Else sbTxtboxEnabledOrNot True, ? = deine andere Farbe für aktiviert End If Sub sbTxtboxEnabledOrNot(ByVal YesOrNo As Boolean, ByVal farbe As Long) Dim objItem As Object For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = farbe .Enabled = YesOrNo 'wenn False, dann deaktiviert / wenn True, dann aktiviert End With Next If YesOrNo = False Then 'hier alle Befehle rein, mit denen Txt- und andere Boxen geleert werden End If End Sub

Private Sub chk_Dienstreise_Click() Dim objItem As Variant If Not chk_Dienstreise.Value Then If MsgBox("Datenfelder wirklich löschen´?", _ vbYesNo, "Daten der Dienstreise löschen") = vbNo Then Exit Sub Else For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = &H8000000F 'grau .Enabled = False 'deaktiviert End With Next End If End Sub

Private Sub chk_Dienstreise_Click() Dim objItem As Variant If chk_Dienstreise.Value = False Then If MsgBox("Datenfelder wirklich löschen´?", vbYesNo, _ "Daten der Dienstreise löschen") = vbNo Then Exit Sub If vbYes Then For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = &H8000000F 'grau .Enabled = False 'deaktiviert End With Next End If End If End Sub

Hallo Peer,
einfach so:

Private Sub chk_Dienstreise_Click()

    Dim objItem As Variant

    If chk_Dienstreise.Value Then

        For Each objItem In Array(txt_Zieladresse, txt_Abgabe)

            With objItem

                .BackColor = vbWhite
                .Enabled = True

            End With
        Next

    Else

        If MsgBox("Datenfelder wirklich löschen ?", _
            vbYesNo Or vbQuestion, "Daten der Dienstreise löschen") = vbYes Then

            For Each objItem In Array(txt_Zieladresse, txt_Abgabe)

                With objItem

                    .BackColor = &H8000000F
                    .Enabled = False
                    .Text = vbNullString

                End With
            Next
        End If
    End If
End Sub

Code lesen und versuchen zu verstehen !!!
Gruß
Nepumuk

Private Sub chk_Dienstreise_Click() Dim objItem As Variant If chk_Dienstreise.Value Then For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = vbWhite .Enabled = True End With Next Else If MsgBox("Datenfelder wirklich löschen ?", _ vbYesNo Or vbQuestion, "Daten der Dienstreise löschen") = vbYes Then For Each objItem In Array(txt_Zieladresse, txt_Abgabe) With objItem .BackColor = &H8000000F .Enabled = False .Text = vbNullString End With Next Else: chk_Dienstreise.Value = True End If End If End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array für mehrere TextBoxen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread