Zu viele Bedingungen
21.07.2016 01:11:49
hilde
und zwar komme ich nicht auf die Loesung meines Problems.
Es erscheint die Fehlermeldung elseif ohne if, da iwie zu viele Bedingungen dazwischen stehen.
Ich moechte grundsaetzlich einen Wert aus einer Datei in eine andere Kopieren, allerdings soll Excel sich diesen Wert aufgrund von den Bedingungen (siehe Code) selbst ziehen.
Ich stehe auf nem dicken Schlauch.
Dim ws As Worksheet
Dim i As Long
Dim j As Long
'fuer jedes Sheet ab dem 3. sheet in meiner Mappe: dst, soll...
For Each ws In Worksheets
If ws.Index groesserals 2 Then
'...wenn in der ersten Zeile(Quelldatei=src)eine Zelle: "Row 5 -TRU Vendor #" heisst, und dann.. _
For i = 1 To src.Sheets("Sheet1").Cells(1, Columns.Count).End(xlUp).Column
ElseIf Cells(1, i) = "Row 5 -TRU Vendor #" Then
'...wenn in der 2. Spalte der src-Datei ein Wert(Item)=dem Wert der Zelle "Y5"(in dst-Datei) _
ist, dann kopiere den dazugehoerigen Wert aus der Reihe und der Spalte, die "Row 5 -TRU Vendor #" heisst.
For j = 2 To src.Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
Item = Cells(j, 2)
ElseIf Item = dst.ws.Range("y5") Then
Cells(j, i).Copy
dst.ActiveSheet.Cells("AP5").Paste
End If
Next i, j
Vielen Dank im Voraus schon einmal.