Thema Datum  Von Nutzer Rating
Antwort
28.04.2011 13:34:20 Gast78093
Solved
Blau Excel-sheet aus VBA öffnen- Wert heraus lesen-
28.04.2011 14:53:48 Gast51537
NotSolved
29.04.2011 08:07:50 Gast61076
NotSolved
29.04.2011 08:16:05 Gast39211
NotSolved
30.04.2011 00:47:36 TIll
NotSolved

Ansicht des Beitrags:
Von:
Gast51537		 Datum:
28.04.2011 14:53:48		 Views:
1091		 Rating:
     
Antwort:
  Ja
Thema:
Excel-sheet aus VBA öffnen- Wert heraus lesen- 
Hallo, 
so sollte es funktionieren. 

Sub DatenImport()
Application.ScreenUpdating = 0

    'dim
        Dim FileName As Variant
        Dim WB1 As Object, WB2 As Object
        Dim CRange As Range, PRange As Range
        
    'set
        FileName = Application.GetOpenFilename _
       ("Micrsoft Excel-Dateien (*.xlsx),*.xlsx")
        If FileName = False Then Exit Sub
        
    'aktuelles workbook speichern, neues öffnen
        Set WB1 = ActiveWorkbook
        Set WB2 = Workbooks.Open(FileName)
        Set CRange = WB2.Sheets(1).Range("C3")
        Set PRange = WB1.Sheets(1).Range("C3")
        
    'kopieren
        CRange.Copy
        PRange.PasteSpecial
    
    'schließen
        WB2.Close (False)
        WB1.Close (True)
        
Application.ScreenUpdating = 1
End Sub

 

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
28.04.2011 13:34:20 Gast78093
Solved
Blau Excel-sheet aus VBA öffnen- Wert heraus lesen-
28.04.2011 14:53:48 Gast51537
NotSolved
29.04.2011 08:07:50 Gast61076
NotSolved
29.04.2011 08:16:05 Gast39211
NotSolved
30.04.2011 00:47:36 TIll
NotSolved