AW: VB-Listbox in Tabelle, markierte Zeile bestimmen
20.04.2011 14:02:17
Rudi
Hallo,
selber festlegen welcher Eintrag blau hinterlegt ist, waere natuerlich schoen wenn das ginge ohne das Click-Event auszuloesen
Dazu musst du dir den Listindex merken und wieder setzen. Das löst aber das Click-Event aus.
Zu deinem Code: Tippst du gerne?
CBDevice.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 15).Value
CBLocation.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 17).Value
CBUser.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 20).Value
CBUserLog = Workbooks(strNaData).Worksheets(strShData).Cells(k, 21).Value
CBProcess.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 19).Value
CBStatus.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 6).Value
CBPrio.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 7).Value
CBError.Value = Workbooks(strNaData).Worksheets(strShData).Cells(k, 5).Value
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "PC" Then PC.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "TL" Then TL.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "TS" Then TS.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "CS" Then CS.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "IC" Then IC.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "MA" Then MA.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "PE" Then PE.Value = True
If Workbooks(strNaData).Worksheets(strShData).Cells(k, 8).Value = "IT" Then IT.Value = True
kann man wunderbar zu
With Workbooks(strNaData).Worksheets(strShData)
CBDevice.Value = .Cells(k, 15).Value
CBLocation.Value = .Cells(k, 17).Value
CBUser.Value = .Cells(k, 20).Value
CBUserLog = .Cells(k, 21).Value
CBProcess.Value = .Cells(k, 19).Value
CBStatus.Value = .Cells(k, 6).Value
CBPrio.Value = .Cells(k, 7).Value
CBError.Value = .Cells(k, 5).Value
Select Case .Cells(k, 8).Value
Case "PC": PC.Value = True
Case "TL": TL.Value = True
Case "TS": TS.Value = True
Case "CS": CS.Value = True
Case "IC": IC.Value = True
Case "MA": MA.Value = True
Case "PE": PE.Value = True
Case "IT": IT.Value = True
End Select
End With
verkürzen.
Gruß
Rudi