Von |
zfwez |
eMail |
|
Am |
11. April 2008 um 19:08:42 |
Frage |
Hallo, habe folgende "Nuß" zu knacken. Nach der Auswahl in der Listbox2 sollen auf der neuen Tab die Werte erscheinen.
Dim lngI As Long Dim lngLetzteSpalte As Long Dim lngSpalte As Long Dim lngSpalteNeu As Long Dim wksTab As Worksheet ’neue Tabelle erstellen On Error Resume Next Do Set wksTest = Nothing Set wksTest = ThisWorkbook.Worksheets("Wavelength-AbsMesswerte_" & CStr(lngNr)) If wksTest Is Nothing Then wksNeu.Name = "Wavelength-AbsMesswerte_" & CStr(lngNr) Exit Do End If lngNr = lngNr + 1 Loop On Error GoTo 0
’Werte in der neuen Tab erstellen[green] lngSpalteNeu = 2 'Spalte B For lngI = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(lngI) Then [green]'?????????? unzulässige Verwendung von Null lngSpalte = ListBox2.List(lngI, 2) lngLetzteSpalte = wksX.Cells(lngZeile, wksX.Columns.Count).End(xlToLeft).Column lngSpalteNeu = lngSpalteNeu + 1 wksNeu.Cells(1, lngSpalteNeu).Value = "Auswahl aus der Listbox !!" wksNeu.Cells(1, lngSpalteNeu).AddComment 'wksNeu.Cells(1, lngSpalteNeu).Comment.Visible = False wksNeu.Cells(1, lngSpalteNeu).Comment.Text Text:=Environ("USERNAME") & Chr(10) & "Abs-Sample1" & Chr(10) & ListBox1.List(lngI, 0) wksNeu.Cells(2, lngSpalteNeu).Value = 0 For lngSpalte = 2 To lngLetzteSpalte Step 2 'wksNeu.Cells(lngSpalte / 2 + 2, lngSpalteNeu).Value = wksTab.Cells(lngZeile, lngSpalte).Value wksNeu.Cells(lngSpalte / 2 + 1, lngSpalteNeu).Value = wksTab.Cells(lngZeile, lngSpalte).Value Next End If Next
Leider funktioniert es nicht so wie es mir Wünsche. Wer könnte mir helfen ? Vielen Dank schon mal für eine Antwort! ] |
|