Werte aus einer Excel Tabelle in eine andere importieren.

Private Sub cmdExport_Click()

'In diesem Beispiel ist Tabelle1 die Haupttabelle und Tabelle2 die temporäre Tabelle.  
'In Tabelle1 stehen die Namen der Entnahmestellen in Spalte A beginnend bei Zeile 3.  
'Die Tage der Entnahme stehen in Zeile 2 beginnend bei Spalte B  
'In Tabelle2 (tempoärer Tabelle) stehen die Namen der Entnahmestellen in Spalte A beginnend bei Zeile 3.  
'Der Entnahmentag steht in Zelle B2.  
'Darüber hinaus existiert ein Button in der temporären Tabelle.  
'Beim Klicken wird der unten zu sehende Code ausgeführt.  

On Error Resume Next

Dim i, j, k As Integer
Dim Tag As Date

'Tag der aktuellen Werte einlesen  
Tag = Sheets("Tabelle2").Cells(2, 2)  

'temporäre Tabelle zeilenweise durchlaufen  
For i = 3 To Sheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeLastCell).Row  
    
    'Hauptabelle zeilenweise durchlaufen bis zum Match  
    For j = 3 To Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row  
           
        'Namen der Entnahmenstellen beider Tabellen vergleichen  
        If Sheets("Tabelle2").Cells(i, 1) = Sheets("Tabelle1").Cells(j, 1) Then  
            
            'Spalten Haupttabelle durchlaufen bis zum Match  
            For k = 2 To Sheets("Tabelle1").Cells(2, Columns.Count).End(xlToLeft).Column  
            
                'Richtige Spalte in Hauptabelle suchen  
                If Tag = Sheets("Tabelle1").Cells(2, k) Then  
                
                    'Wert von temporärer in Haupttabelle schreiben  
                    Sheets("Tabelle1").Cells(j, k) = Sheets("Tabelle2").Cells(i, 2)  
                
                    Exit For
                End If
    
            Next k
    
            Exit For
        End If
    
    Next j
    
Next i

If Err.Number = 0 Then
    MsgBox "Übertrag erfolgreich"  
Else
    MsgBox Err.Description
End If

End Sub