29. März 2024, 16:34
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  W03: Erstellen einer Tab aus zwei Listboxen
 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ß
 Antwort:
 Von zfwez
 Am 27. September 2008 um 09:12:39
 Antwort Hallo zusammen,
habe noch einiges versucht, jedoch ohne Erfolg. "Theoretisch" müsste das Erstellen der Tabelle mit WksNeu doch ans Ende des Code geschrieben werden, oder ? Nur wo und wie muss der Zeilen - Counter geschrieben werden ?
Rechtherzlichen Dank im Voraus und allen ein schönes WO
Gruß
zfwez
[ 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