29. März 2024, 15:49
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0407
  W03: Listbox
 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!
]
[ VB-/VBA-Forum | Archiv 0407 | Archiv-Übersicht ]
 Antworten
W03: Listbox - zfwez 11. April 2008 um 19:08:42
Re: Listbox - Gerd 12. April 2008 um 14:14:06
Re: Listbox - zfwez 12. April 2008 um 15:22:19
Re: Listbox - Gerd 12. April 2008 um 15:45:03
Re: Listbox - zfwez 12. April 2008 um 19:48:10
Re: Listbox - r.mueller@sz-online.de 12. April 2008 um 21:04:49
Re: Listbox - zfwez 12. April 2008 um 22:57:33
Re: Listbox - r.mueller@sz-online.de 13. April 2008 um 00:42:51

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