TextBoxes anpassen
22.05.2020 09:19:35
Wolfgang
den nachfolgenden Code konnte ich gestern unter Recherche entdecken. Ich würde allerdings gerne anstelle der TextBoxes 1-7 die TextBoxes 11-17 (ist Zufall) berücksichtigt haben. Meine Versuche, den Code anzupassen, sind leider gescheitert. Es erscheint eine Fehlermeldung Index außerhalb des gültigen Bereichs. Für eine Rückmeldung, Hilfestellung wäre ich sehr dankbar.
Herzliche Grüße - Wolfgang
Private Sub CommandButton1_Click()
Dim i As Integer
Dim arrModule As Variant
With Worksheets("Administrativ")
.[T1] = "Überlegt wurde der Besuch folgender Module:" '
.[T1] = Application.Substitute(.[T1], Chr(10), " ")
.Range("T2:T8").ClearContents
'Mod 1 bis Mod 7
arrModule = Array("Modul 1", "Modul 2", "Modul 3", "Modul 4", "Modul 5", "Modul 6", " _
Modul 7")
For i = 1 To 7 'hier hatte ich bereits auf 11-17 geändert - was übersehe ich?
If Controls("TextBox" & i).Text "" Then
.Cells(i + 1, 20) = arrModule(i - 1) & Chr(10) & Controls("TextBox" & i).Text & _
Chr(10) & "Woche/n"
.Cells(i + 1, 20) = Application.Substitute(.Cells(i + 1, 20), Chr(10), " ")
Else
.Cells(i + 1, 20) = ""
End If
Next
End With
If MsgBox("Daten in Zwischenablage nehmen?", vbYesNo) = 6 Then
'löscht leere Zeilen und nimmt Zellen in Zwischenablage
Leerzeilen_loeschen
ZwA
End If
End Sub