Hilfe
03.12.2004 13:01:32
Micha
kann mir jemand den folgenden Code erklären. Er dient als Beschriftung einer Listbox und gibt ein Ergebnis aus. Nur verstehe ich nicht, wo er die Daten her nimmt...
Danke euch...
Private Sub ListBox1_Click()
Dim x As Byte '- klar
Dim sh As Worksheet '-klar
Set sh = Sheets("Tabelle1")
For x = 2 To 14
sh.[e11] = Me.ListBox1 'ich denke e11 ist das Ausgabefeld
If sh.Cells(x, 8) = sh.Cells(11, 5) Then
sh.Cells(10, 5) = sh.Cells(x, 7)
End If
Next
End Sub
Micha
Anzeige