Zelleninhalt 2 Bedingungen zuweisen VBA

[windydave]

Hallo,

Ich habe folgendes Problem:

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.

MfG David Keil

[BoskoBiati]

Hi,

warum muß es VBA sein?

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C
1	Datum	Modultyp A	Modultyp B
2	07.05.2018	ED-DREG
3	08.05.2018
4	09.05.2018
5	10.05.2018
6	11.05.2018
7	12.05.2018
8	13.05.2018
9	14.05.2018		RF-LUOM

Zelle	Formel
B2	=WENNFEHLER(INDEX(Tabelle1!$A:$A;AGGREGAT(15;6;ZEILE(Tabelle1!$A$1:$A$3)/(Tabelle1!$C$1:$C$3=$A2)/(Tabelle1!$B$1:$B$3=TEIL(B$1;6;10));1));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[shift-del]

Hallo

Ich hätte auf <=$A2 getippt.

[windydave]

Vielen Dank !

[MisterBurns]

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

End Sub