Clever-Excel-Forum

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

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

Hallo

Ich hätte auf <=$A2 getippt.

Vielen Dank !

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

windydave

BoskoBiati

shift-del

windydave

MisterBurns