Microsoft Excel

Herbers Excel/VBA-Archiv

Hilfe, Hilfeeee!!

Betrifft: Hilfe, Hilfeeee!! von: sg
Geschrieben am: 17.09.2004 16:49:04

hallo excel freunde,
ich war heute schonmal auf unserem forum, und ich verspräche euch das ist meine letzets Versuch heute.
Habeviellec versucht, danke an alle aber das ist alles unvollstöndig;;!!!
Sehen Sie meine Beispiel!!

https://www.herber.de/bbs/user/11020.xls


Gruss+danke sg

Ps_grosses kompliment für unsere Forum,,Ihr sind die besten !!

  


Betrifft: AW: Hilfe, Hilfeeee!! von: Dieter.K
Geschrieben am: 17.09.2004 16:57:53

Hallo sg (sicher hast Du auch einen Namen ;-)

Du musst die Ausgabeverknüpfung von Listenfeld 2 auf K2 setzen. Dann funktioniert es.

Gruß
Dieter.K


  


Betrifft: AW: Hilfe, Hilfeeee!! von: sg
Geschrieben am: 17.09.2004 17:28:03

hallo dieter,
mit deinem Vorschlag hat es funkioniert,,
Was meinst du dazu,,??

Sub ListenEintrag()
    Dim i As Byte
    Dim Daten(31, 3) As String
    For i = 1 To 31
        Liste.AddItem
        Daten(i - 1, 0) = Worksheets(1).Cells(i, 1).Value
        Daten(i - 1, 1) = Worksheets(1).Cells(i, 2).Value
        Daten(i - 1, 2) = Worksheets(1).Cells(i, 3).Value
    
    Next i
    Liste.List = Daten()
 End Sub


Bei Debuggen bekomme ich die Fehlermeldung Variable nicht definiert.
Kannst du mir ein tip geben wie komme ich witer mit diese Prozedur??

gruss sg