Thema Datum  Von Nutzer Rating
Antwort
Rot importieren tabellen von einer zur anderen Exceldatei
 28.07.2014 15:33:46 Gast64193
NotSolved

Ansicht des Beitrags:
Von:
Gast64193		 Datum:
28.07.2014 15:33:46		 Views:
1331		 Rating:
     
Antwort:
  Ja
Thema:
importieren tabellen von einer zur anderen Exceldatei

 

Sub Importieren()
Dim wbQuelldatei    As Workbook
Dim wbZieldatei     As Workbook
Dim strPfadQuelle   As String
Dim i               As Integer
Dim intLastQuelle   As String
Dim intLastZiel     As Integer

strPfadQuelle = "\Users\Gerner.st\Desktop\Mappe2.xlsx"
Set wbZieldatei = ActiveWorkbook
Set wbQuelldatei = Workbooks.Open(strPfadQuelle)


intLastQuelle = wbQuelldatei.Sheets(1).UsedRange.Rows.Count
intLastZiel = wbZieldatei.Sheets(1).UsedRange.Rows.Count
 

With wbQuelldatei.Sheets(1)
  For i = 2 To intLastQuelle
     If .Cells(i, 1).Value = 1 Then
            .Cells(i, 1).EntireRow.Copy
           wbZieldatei.Sheets(1).Cells(intLastZiel + 1, 1).EntireRow.Insert
        intLastZiel = intLastZiel + 1  'Copy-Paste Vorgang
    End If
      Next i
 End With

End Sub

Ich versuche durch VBA tabellen von einer zur anderen excel datei zu importieren, dabei soll immer jeweills bis zur letzten beschriebenen zelle des einen gezält und dann alle werte in eine andere excell datai exportiert werden an die stelle der letzten beschriebenen zelle +1, ich wuerde mich freuen wenn jemand meine bisherige makro die NICHT funktioniert überprüfen könnte und ggf. verbesserungen anmerken wuerde.

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
Rot importieren tabellen von einer zur anderen Exceldatei
 28.07.2014 15:33:46 Gast64193
NotSolved