Thema Datum  Von Nutzer Rating
Antwort
19.12.2018 01:10:34 VBA Anfänger
NotSolved
Blau VBA Importieren bestimmter Zellen aus verschiedenen Spalten mit VBA in eine andere Datei
 19.12.2018 08:14:01 Gast96805
NotSolved

Ansicht des Beitrags:
Von:
Gast96805		 Datum:
19.12.2018 08:14:01		 Views:
444		 Rating:
     
Antwort:
  Ja
Thema:
VBA Importieren bestimmter Zellen aus verschiedenen Spalten mit VBA in eine andere Datei		 
Sub Import_XML()
    Dim varFileToOpen As Variant
    Dim rngFrom As Range, rngTo As Range
    
    varFileToOpen = Application.GetOpenFilename("XML Dateien (*.xml), *.xml")
    If varFileToOpen = False Then Exit Sub
     
    Set rngTo = ThisWorkbook.Worksheets("Spiro Gesamtimport").Range("G15")
     
    With Workbooks.Open(varFileToOpen, Local:=True)
      With .Sheets(1)
         With .Columns("C:C") 'anpassen, hab keine Lust auf mehr XML Testdatenbau
         'With .Columns("J:J")
            Set rngFrom = Range(.Cells(4), .Cells(.Rows.Count).End(xlUp))
            Set rngFrom = rngFrom.Resize(, 4)
            rngFrom.Copy Destination:=rngTo ' Ziel-Blatt (Test) anpassen *****
         End With
      End With
        .Close SaveChanges:=False
    End With
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
19.12.2018 01:10:34 VBA Anfänger
NotSolved
Blau VBA Importieren bestimmter Zellen aus verschiedenen Spalten mit VBA in eine andere Datei
 19.12.2018 08:14:01 Gast96805
NotSolved