| 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 |
r.mueller@sz-online.de |
| eMail |
|
| Am |
28. September 2008 um 07:58:00 |
| Antwort |
Hallo
he
Schööler zfwez aufstehen!
Schreibe 50 mal an die Tafel:
"Ich soll immer den richtigen Betreff wählen"
"Excel + Version (???)"
Setzen + Eintrag ins MuttiheftOption Explicit 'immer In 1. Codezeile!!!!!!
Sub MachsMal()
Dim wksTab As Worksheet
Dim wksNeu As Worksheet
Dim strZeile As String
Dim Name As Sheets
Dim lngTabCount As Long
Dim lngSpalteNeu As Long
Dim lngZeile As Long
Set wksNeu = ThisWorkbook.Worksheets.Add
'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
For lngTabCount = 0 To ListBox11.ListCount - 1
If ListBox11.Selected(lngTabCount) Then
strZeile = ListBox11.List(lngTabCount) ' = Quelle Worksheetname
Set wksTab = ActiveWorkbook.Worksheets(strZeile)
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 << und wo hast diesen gepostet da kommts eigentlich darauf an
'Code
'weitere Tabs , nach Abfrage der Listbox11, durchlaufen
End If
Next
End Sub ein schleifchenzähler ist unnötig den du hast je immer die letzte Zeile in die du geschrieben hast
Gruß
|
|
| [ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ] |
|
|
Zum Seitenanfang