19. Mai 2019, 18:50
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  W03: Erstellen einer Tab aus zwei Listboxen
 Von zfwez
 eMail
 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ß
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
W03: Erstellen einer Tab aus zwei Listboxen - zfwez 26. September 2008 um 21:30:48
Re: Erstellen einer Tab aus zwei Listboxen - zfwez 27. September 2008 um 09:12:39
Re: Erstellen einer Tab aus zwei Listboxen - r.mueller@sz-online.de 28. September 2008 um 07:58:00

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum