Als beispiel sage ich mal 1-30 A und B in der Spalte A stehen die Indexwete 1-30 eben und in der Spalte B
Steht die Info, die in meine Listbox eingelesen wird.
Wenn ich nun eines der Zeilen in der Listbox Anklicke ist es dann möglich aus der Zeile in Spalte C eine Zusatzinfo in das Userform (Textfeld oder dergleichen( einzublenden, was jeweil je nachdem welche Stelle ich in der Listbox anklicke eben immer wieder Akualisiert ohne das Userform zu schließen.
Ich gebe euch mal den Code mit dazu das ihr sehen könnt wie mein Userform gebastelt ist.
[Code]
Public rowToUpdate As String
Dim values(272)
Dim offset As Integer
Private Sub btnOk_Click()
If skillBox.ListIndex > -1 Then Call setData
End Sub
Private Sub skillBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call setData
End Sub
Private Sub skillBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If (KeyCode = 13) Then
Call setData
End If
End Sub
Private Function setData()
Dim skillcom As Integer
skillcom = values(skillBox.ListIndex) + 7
If Not Sheets("Skills").Range("C" & rowToUpdate).Comment Is Nothing Then
Sheets("Skills").Range("C" & rowToUpdate).Comment.Delete
End If
Sheets("Skills").Range("AG" & rowToUpdate) = values(skillBox.ListIndex)
Sheets("Skills").Range("C" & rowToUpdate).AddComment Sheets("skilldat").Range("C" & _
skillcom).Text
Call skilldef
skillForm.Hide
End Function
Private Sub UserForm_Activate()
Dim skillCol As String
Dim valueCol As String
Dim counter As Integer
offset = 8
skillBox.Clear
For counter = 0 To 264
skillCol = "B" & counter + offset
valueCol = "A" & counter + offset
If (Sheets("skilldat").Range([skillCol]).Value "") Then
values(counter) = Sheets("skilldat").Range([valueCol]).Value
skillBox.AddItem (Sheets("skilldat").Range([skillCol]).Value)
End If
Next counter
skillBox.SetFocus
End Sub
Private Function skilldef()
Dim skillpos As Integer
skillp = rowToUpdate
'def. from Skillname
Sheets("Skills").Range("C" & skillp).Formula = _
"=IF(AG" & skillp & " """"," _
& "LOOKUP(AG" & skillp & ",skilldat!A8:A272,skilldat!B8:B272),"""")"
'def. from Catboni > skill
Sheets("Skills").Range("R" & skillp).Formula = _
"=IF(AG" & skillp & " """"," _
& "LOOKUP(AG" & skillp & ",skilldat!A8:A272,skilldat!E8:E272),"""")"
'def. from Skillsum
Sheets("Skills").Range("Z" & skillp).Formula = _
"=IF(AH" & skillp & " """",(SUM(P" & skillp & ":X" & skillp & ")),"""")"
'Def. from Standard Skill
If (Sheets("Skills").Range("AH" & skillp).Value = "C") Then
Sheets("Skills").Range("P" & skillp).Formula = _
"=IF(AH" & skillp & " """"," _
& "IF(H" & skillp & "=0,-15," _
& "IF(H" & skillp & " """"," _
& "IF(H" & skillp & "=0,-30," _
& "IF(H" & skillp & " """"," _
& "IF(H" & skillp & "
[/Code]