Von |
zfwez |
Am |
26. September 2008 um 21:30:48 |
Frage |
Hallo, das Auslesen der Daten von meinen zwei Listboxen ist o.k.,nur es wird immer ein neues Tabellenblatt angelegt.Die ausgelesenen Daten sollen jedoch immer in ein neues Blatt geschrieben werden. Wie müsste der Code bzw. wie müsste das Erstellen der neuen Tabelle geändert werden ?? Danke im Voraus
Dim Name As Sheets Dim TabCount As Integer Dim i As Integer Dim Zeile As Integer
For TabCount = 0 To ListBox11.ListCount - 1 If ListBox11.Selected(TabCount) Then StrZeile = ListBox11.List(TabCount) ' = Worksheetname Set wksTab = ActiveWorkbook.Worksheets(StrZeile) Set wksNeu = ThisWorkbook.Worksheets.Add 'hier ein Zeilem Counter einfügen?? 'Daten in eine neue Tab schreiben. lngNr = 1 On Error Resume Next Do Set wksTest = Nothing Set wksTest = ThisWorkbook.Worksheets("Ergebnisse_" & CStr(lngNr)) If wksTest Is Nothing Then wksNeu.Name = "Ergebnisse_" & CStr(lngNr) Exit Do End If lngNr = lngNr + 1 Loop On Error GoTo 0
Application.ScreenUpdating = False 'Achsenbeschriftung in der neuen Tab. wksNeu.Cells(1, 1).Value = "Zeit" wksNeu.Cells(1, 2).Value = "Zeit [sec.]" wksNeu.Cells(1, 3).Value = "Zeit [min.]" wksNeu.Cells(2, 2).Value = 0 wksNeu.Cells(2, 3).Value = 0 wksNeu.Columns(3).NumberFormat = "0.0000" lngSpalteNeu = 3 'Code , auslesen der Zeilen aus der Listbox10 'Code 'Code 'weitere Tabs , nach Abfrage der Listbox11, durchlaufen Next TabCount Set wksNeu = Nothing Set wksTab = Nothing End Sub
Gruß
|
|