Dateneinlesen aus Exceldatei (Internet)
29.04.2009 10:45:54
Franz
von meiner geöffneten Excelmappe "Aufnahme" möchte ich auf eine Exceldatei im Internet zugreifen und
in die Excelmappe "Aufnahme" die Daten einlesen. Mit cbgemarkung (Combobox) möchte ich als erstens die Combobox über die Exceldatei im Internet füllen und zwar mit dem Bereich A3:A395. Nach Auswahl von der Combox "cbgemarkung" soll aus der Exceldatei im Internet die Daten in der Zeile (2 und 3) meiner ausgewählten Zeile in meine geöffneten Excelmappe eingelesen werden. Anbei mein VBA-Lösungsvorschlag. Nur leider kann ich die Daten nicht einlesen! Hat jeamand eine Idee?
Danke.
Gruß Franz
Private Sub cbgemarkung_Change()
Dim rng As Range
Dim sPage As String
Dim s As String
Dim zeile As Long
Dim Gemarkungen As Worksheet
Application.ScreenUpdating = False
sPage = "http://www.......xls"
Workbooks.Open Filename:=sPage
Set Gemarkungen = _
ActiveWorkbook.Worksheets("Gemarkungen")
s = cbgemarkung.Text
zeile = 3
Do While Not IsEmpty(Gemarkungen.Cells(zeile, 1))
If Gemarkungen.Cells(zeile, 1).Value = s Then
Tabelle1.txtGemeinde.Text = Sheets("Gemarkungen").Cells(zeile, 2).Value
Tabelle1.txtStandort.Text = Sheets("Gemarkungen").Cells(zeile, 3).Value
Exit Do
End If
zeile = zeile + 1
Loop
End Sub