Guten Morgen
ich bin zurück. Aber ich entwickle mich langsam in eine Richtung wo mir VBA echt bisschen Spaß macht.
Derzeit versuche ich Daten für ein User Form aus einer anderen Datei zu übernehmen. Ich hatte das ganze schon mal mit einem Find aber das geht diesmal leider nicht. Die Daten sollen direkt in der List Box (in Datei A)angezeigt werden. Die Daten dafür liegen in Datei B welche derzeit immer noch geöffnet wird.
Wo ist das Problem:
Derzeit habe ich es nur geschafft einzelne Werte zu übergeben ODER Werte zu übergeben wenn der Anfang und das Ende klar definiert sind.
Was mir nicht gelungen ist, ist dass ich Daten übergebe obwohl ich mit IngZeileMax in Datei B (rawdata) arbeite. Da dann das Ende nicht definiert ist.
Habe ich etwas übersehen oder ist das Ganze schlicht und ergreifend nicht so einfach möglich. Wenn es zu kompliziert ist, dann lasse ich es lieber. Ist mehr ein Schönheitsfehler da die Datei B eh schreibgeschützt geöffnet wird also unbeabsichige Änderungen sind eh ausgeschlossen.
Auszug aus dem Code:
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Value = Cells(ListBox1.ListIndex + 2, 2).Value
Label1.Caption = Value
End Sub
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Value = Cells(ListBox2.ListIndex + 2, 5).Value
Label2.Caption = Value
End Sub
Private Sub ListBox3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Value = Cells(ListBox3.ListIndex + 2, 8).Value
Label3.Caption = Value
End Sub
Private Sub UserForm_Initialize()
Set src = Workbooks.Open("C:\Users\michi\Desktop\rawdata.xlsx", True, True)
ListBox1.RowSource = "a2:a200"
ListBox2.RowSource = "d2:d10"
ListBox3.RowSource = "g2:g100"
End Sub
Wie immer an diese Stelle schon mal Vielen Lieben Dank und passt auf euch auf
Grüße
Michael
|