Ich würde gerne einen Zelleninhalt (Modulbezeichnung) aus Tabelle 1, welcher einen Modultyp sowie ein Datum besitzt in Tabelle 2 übertragen.
Dabei soll die Modulbezeichnung in die richtige Zelle übertragen werden, sprich die Bedingungen Datum und Modultyp sollen geprüft werden.
Ich würde das gerne mit VBA realisieren jedoch fehlt mir der Ansatz.
Falls noch eine VBA-Lösung gefragt ist wie ursprünglich angegeben:
Code:
Sub uebertragen()
Dim i As Integer
Dim j As Integer
Dim Q As Worksheet
Dim Z As Worksheet
Dim Qletzte As Integer
Dim Zletzte As Integer
Set Q = Sheets("Tabelle1")
Set Z = Sheets("Tabelle2")
Qletzte = Q.Cells(Rows.Count, 1).End(xlUp).Row
Zletzte = Z.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Qletzte
For j = 2 To Zletzte
If Q.Cells(i, 3) = Z.Cells(j, 1) Then
If Q.Cells(i, 2) = "Typ A" Then
Z.Cells(j, 2) = Q.Cells(i, 1)
ElseIf Q.Cells(i, 2) = "Typ B" Then
Z.Cells(j, 3) = Q.Cells(i, 1)
End If
End If
Next j
Next i