Multiselect Code erst ab Zeile A5
21.02.2009 13:12:21
Leon
Sepp hat mir gestern ein total coolen Code für die UF activate und terminate gegeben.
Habe eine kleine Bitte:
Ich würde gerne an der Tabelle erst ab Zeile A5 schreiben.
Wie kann ich den Code so ändern, daß es mir keine Fehler verursacht.
Option Explicit
Option Base 1
Private Sub Commandbutton1_Click()
Dim varPrintTable() As String
Dim iTable As Integer, iVar As Integer
iVar = 1
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
ReDim Preserve varPrintTable(iVar)
varPrintTable(iVar) = ListBox1.List(iTable)
iVar = iVar + 1
End If
Next iTable
Sheets(varPrintTable).PrintOut
End Sub
Private Sub UserForm_Activate()
Dim lngIndex As Long
For lngIndex = 1 To ListBox1.ListCount
ListBox1.Selected(lngIndex - 1) = Worksheets("IstTable").Cells(lngIndex, 3).Value
Next
End Sub
Private Sub UserForm_Terminate()
Dim lngIndex As Long
For lngIndex = 1 To ListBox1.ListCount
Worksheets("IstTable").Cells(lngIndex, 3).Value = ListBox1.Selected(lngIndex - 1) * -1
Next
End Sub
Danke für Eure Hilfe
Gruß
Leon