Daten auswählen
29.09.2008 13:28:00
Ludwig
Ich möchte aus einem Datenblatt Daten per VBA selektieren und in das aktuelle Arbeitsblatt einlesen lassen. Dazu gibt es in der Arbeitsdatei einen Button "Daten lesen". Danach wird das Datenblatt geöffnet und der User kann einen Datensatz (steht in einer beliebigen Zeile des Tabellenblattes) auswählen.
Kann mir jemand auf die Sprünge helfen wie man die Auswahl programmiert - gibt es gar ein Beispiel? Ich muß also entsprechend der Auswahl an die Zeilennummer kommen.
Ich habe schon gesucht aber bin leider nicht fündig geworden!
Hier mein bisheriger Code:
Private Sub CB_DatenLesen_Click()
Dim TB1, TB2 As Worksheet
Dim DatenbankDateiExtern As Workbook
Dim DatenZähler, x, y, i As Integer
'Application.ScreenUpdating = False
'Application.DisplayAlerts = False
On Error Resume Next
Set TB1 = Worksheets("INPUT")
Set TB2 = Worksheets("Datenbank")
'Set DatenbankDateiExtern = Workbooks.Open(Filename:=ThisWorkbook.Path & "\DatenbankExtern.xlsx" _
)
'DatenbankDateiExtern.Sheets("DatenbankExtern").Activate
TB2.Select
y = ?
'Daten aus der Zeile y werden Namen zugeordnet
'In der ersten Zeile des Datenblattes stehen die verwendeten Variablennamen
While IsEmpty(TB2.Cells(1, x)) = False
Range(TB2.Cells(y, x).Text) = TB2.Cells(2, x).Value
x = x + 1
Wend
End Sub
Vielen Dank im voraus!
Gruß Ludwig