arbeiten mit Arbeitsblatt

Forumthread: arbeiten mit Arbeitsblatt
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: arbeiten mit Arbeitsblatt

07.04.2006 16:24:50

Ronny

Hallo ans Bord,
in meinem Projekt befinde ich mich auf dem Tabellenblatt "Start".
Mit dem Makro


Private Sub UserForm_Initialize()
MultiPage1.Page2.Visible = False
With Worksheets("Benutzer")
zeile = 10
benutzer:
If Range("A" & zeile) <> "" Then
ListBox1.AddItem (Range("A" & zeile))
ComboBox1.AddItem (Range("A" & zeile))
zeile = zeile + 1
GoTo benutzer
End If
End With
End Sub

möchte ich auf Daten im Blatt "Benutzer" zugreifen.
Wie kann ich das anstellen, dass die Daten "geholt" werden, ohne dass das Blatt "Benutzer" geöffnet wird?
Danke im Voraus
Ronny

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: arbeiten mit Arbeitsblatt

07.04.2006 17:10:18

WernerB.

AW: arbeiten mit Arbeitsblatt

07.04.2006 17:10:18

WernerB.

Hallo Ronny,
versuche es mal so (ungetestet):


Private Sub UserForm_Initialize()
Dim laR As Long, i As Long
MultiPage1.Page2.Visible = False
With Worksheets("Benutzer")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
If laR >= 10 Then
For i = 10 To laR
If Range("A" & i).Value <> "" Then
ListBox1.AddItem .Range("A" & i).Value
ComboBox1.AddItem .Range("A" & i).Value
End If
Next i
End If
End With
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !