Thema Datum  Von Nutzer Rating
Antwort
21.07.2016 20:07:20 Nils
NotSolved
Blau Daten aus anderer Excel Datei holen
 21.07.2016 20:28:04 Crazy Tom
*****
NotSolved
21.07.2016 21:52:24 Gast96552
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
21.07.2016 20:28:04		 Views:
718		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus anderer Excel Datei holen

Hi

das geht in meinem Test so

Sub suchen()
    Dim workbookquelle As Workbook
    Dim workbookziel As Workbook
    Dim zelle As Variant
    Dim nummer As Long
    Dim rng As Range
    Dim lngLetzte As Long
    Set workbookziel = ActiveWorkbook
    Set workbookquelle = Workbooks.Open(ThisWorkbook.Path & "\quelle.xlsx", False, True)
    workbookziel.Activate
    workbookquelle.Windows(1).Visible = False
    With workbookquelle.Sheets("Tabelle2")
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Range("A2:A" & lngLetzte)
        For Each zelle In rng
            If Len(zelle.Value) > 0 Then
                nummer = zelle.Value
                Debug.Print nummer
            End If
        Next
    End With
    workbookquelle.Close Savechanges:=False
    Set workbookquelle = Nothing
End Sub

MfG Tom

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.07.2016 20:07:20 Nils
NotSolved
Blau Daten aus anderer Excel Datei holen
 21.07.2016 20:28:04 Crazy Tom
*****
NotSolved
21.07.2016 21:52:24 Gast96552
NotSolved