UserForm soll auf eine bestimmte Zeile zugreifen
29.07.2015 09:49:12
Frank
ich habe mir ein schönes Formular zusammengebaut. Die Daten daraus werden in einer Liste mit Aufgaben benötigt. Diese Liste hat insgesamt 100 Zeilen, also für 100 Aufgaben. Meine Kollegen sollen nun in einer beliebigen Zeile, z. B. 25 auf eine Button drücken, und für die Aufgabe Nr. 25 die nötigen Eingaben über mein Formular einstellen können. Kurzum: das Formular soll auf die Felder zugreifen, die in der ausgewählten Zeile liegen.
Hier mein bisheriger Code:
Private Sub ListBox_Verantwortlich_Click()
'Werte werden in der Spalte D in der aktiven Zeile benötigt
End Sub
Private Sub TextBox_Bearbeitungsvermerk_Change()
'Werte werden in der Spalte B in der aktiven Zeile benötigt
End Sub
Private Sub TextBox_Beschreibung_Change()
'Werte werden in der Spalte A in der aktiven Zeile benötigt
End Sub
Private Sub userform_Initialize()
With UserForm1.ListBox_Bearbeitungsstatus
.AddItem "neu"
.AddItem "in Arbeit"
.AddItem "erledigt"
.AddItem "terminiert"
.AddItem "verzögert"
.AddItem "gestoppt"
End With
End Sub
Private Sub Abbrechenschaltfläche_Click()
'Beendet die Userform1
Unload UserForm1
End Sub
Private Sub OKSchaltfläche_Click()
'Beendet die Userform1
Unload UserForm1
End Sub
Private Sub Frame_Beschreibung_Click()
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub CommandButton_Löschen_Bearbeitungsvermerk_Click()
'Löscht den Inhalt der TextBox_Bearbeitungsvermerk
If MsgBox("Textfeld wirklich löschen", vbYesNo) = vbYes Then
TextBox_Bearbeitungsvermerk = ""
Else
Exit Sub
End If
End Sub
Private Sub Lösche_Beschreibung_Click()
'Löscht den Inhalt der TextBox_Beschreibung
If MsgBox("Textfeld wirklich löschen", vbYesNo) = vbYes Then
TextBox_Beschreibung = ""
Else
Exit Sub
End If
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox_Bearbeitungsstatus_Click()
'Werte werden in der Spalte C in der aktiven Zeile benötigt
End Sub
Private Sub TextBox_Titel_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Sub UserForm()
UserForm1.Show
End Sub
Frank