Microsoft Excel

Herbers Excel/VBA-Archiv

Makro ohne select



Thema: Makro ohne select

Betrifft: Makro ohne select
von: Harald K
Geschrieben am: 27.09.2002 - 21:14:32

Hallo im Excelforum,
folgendes Makro sollte ohne select auskommen, ist das möglich.
ich fülle damit eine Listbox (in Userform) mit daten aus einer zweiten Exceldatei.


Private Sub UserForm_Initialize()
    Dim tb As Worksheet
    Dim lR%
    Set tb = Workbooks("Daten.xls").Sheets("Material")
    lR = tb.Cells(Rows.Count, 1).End(xlUp).Row
    Workbooks("Daten.xls").Activate
    Sheets("Material").Select
    Range("A2:E" & lR).Select
    With lstWaren
        .RowSource = Selection.Address
    End With
End Sub

Vielen Dank für eure Hilfe

Gruß Harald

  

Re: Makro ohne select
von: Nike
Geschrieben am: 27.09.2002 - 21:31:05

Hi,
in etwa so:

Private Sub UserForm_Initialize()
    Dim tb As Worksheet
    Dim lR%
    Set tb = Workbooks("Daten.xls").Sheets("Material")
    lR = tb.Cells(Rows.Count, 1).End(xlUp).Row
    Workbooks("Daten.xls").Activate
    With lstWaren
        .RowSource = Sheets("Material").Range("A2:E" & lR).Address
    End With
End Sub

Bye

Nike

  

Re: Makro ohne select
von: ChristianG
Geschrieben am: 27.09.2002 - 21:38:49

Hallo Harald,

vielleicht funktioniert das:


Private Sub UserForm_Initialize()
    Dim tb As Worksheet
    Dim lR%
    Set tb = Workbooks("Daten.xls").Sheets("Material")
    lR = tb.Cells(Rows.Count, 1).End(xlUp).Row
    tb.Activate
    With lstWaren
        .RowSource = Range("A2:E" & lR).Address
    End With
End Sub

Bei dem With-Teil bin ich mir nicht sicher, weil ich nicht weiß was lstWaren ist.

Vielleicht hilft Dir das ja etwas.

Gruß
Christian

  

Re: Makro ohne select
von: Harald K
Geschrieben am: 28.09.2002 - 06:47:38

Hallo Nike und Christian,

danke für eure schnelle Hilfe, bin jetzt wieder ein bischen schlauer geworden.
Echt toll wie einem hier geholfen wird!!!

Gruß Harald


  

Re: Makro ohne select
von: Hans W. Herber
Geschrieben am: 28.09.2002 - 08:53:03

Hallo Christian, Harald,

vorsicht, Christian, die Referenzierung stimmt nicht. Du liest zwar die letzte Zellposition aus der Quellarbeitsmappe, den Listenbereich aber aus dem aktiven Blatt ein.

Ich empfehle bei UserForm-ListBoxes das Arbeiten mit ungebundenen Steuerelementen:


Private Sub UserForm_Initialize()
   With Workbooks("Daten.xls").Sheets("Material")
      .Range("A1").CurrentRegion.Columns(1).Value
   End With
End Sub

hans