title image


Smiley Re: VBA Schnelle Datenübernahme ?
Hallo,

keine Ahnung ob ich dich richtig verstanden habe...

versuch mal das (aber noch nicht am Original)







Sub test()

'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  



Pfad = ThisWorkbook.Path & "\"

Quelldatei = "LB KOMPLETT.xls"



Workbooks.Open Filename:=Pfad & Quelldatei

Worksheets("Pickliste").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)

  End If  



Next Zeile



'schließen ohne speichern

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.DisplayAlerts = True



End Sub  





Gruß

Alfons





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: