title image


Smiley Re: VBA Schnelle Datenübernahme ?
Hi,

> Kann man die Anzahl der Abfragen auch an die aktuell übermittelten Datensätze anpassen ?

> Es würde sicherlich noch was an Geschwindigkeit bringen, wenn nicht generell

> 10.000 ABfragen gefahren werden, sondern eben nur die jeweils übermittelten



Ich weiss nicht genau, was Du mit Anzahl der aktuell übermittelten Datensätze meinst.

Die Daten in der Quelldatei? Welche Spalte? Stichwort: xlup

Mit 10000 läuft es etwa 2 Sekunden...



Mir ist noch ein Fehler beim Tabellenname unterlaufen.

Also nimm besser das hier:







Sub Dateien_vergleichen()

'Aus der Quelltabelle soll die Spalte A (und C) mit Spalte A (und E)aus der Zieltabelle verglichen werden.

'Bei Übereinstimmung soll der Wert aus Spalte D der Quelltabelle in Spalte F der Zieltabelle geschrieben werden.



Dim Zeile As Long  

Dim Pfad As String, Quelldatei As String  



On Error GoTo Fehler    



Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual



Pfad = ThisWorkbook.Path & "\"

Quelldatei = "LB KOMPLETT.xls"



Workbooks.Open Filename:=Pfad & Quelldatei

Worksheets("Pickliste 754").Activate



For Zeile = 1 To 10000  

 

  If Cells(Zeile, 1) = ThisWorkbook.Worksheets("Tabelle1").Cells(Zeile, 1) And _  

     Cells(Zeile, 3) = ThisWorkbook.Worksheets("Tabelle1").Cells(Zeile, 5) Then

     ThisWorkbook.Worksheets("Tabelle1").Cells(Zeile, 6) = Cells(Zeile, 4)

    'ThisWorkbook.Worksheets("Tabelle1").Cells(Zeile, 6).Interior.ColorIndex = 36

  End If  



Next Zeile



'Quelldatei schließen

ActiveWorkbook.Close



Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Exit Sub  



Fehler:



Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _

        & "Beschreibung: " & Err.Description _

       , vbCritical, "da ist leider ein Fehler aufgetreten"



End Sub  







Verräts Du mir noch wie lange dein altes Makro brauchte?



Gruß

Alfons





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: