Hi Marta
Bin Mir nicht ganze sicher ob es so passt.
Gibt mit Sicherheit auch schönere Lösungen (z.b. über Arrays)
Vorgehensweise war in diesem Fall zu zählen, wieviele Zeilen in Tabelle 2 schon belegt worden sind --> Dim X
und einfach die nächste zu nutzen -->X +1
Schön nein, aber funktionieren sollte es
Gruß
Sub Uebertragen2()
Dim i As Integer, Y As String, x As Long
For i = 1 To 6
If Tabelle1.Cells(i, 2) < 2 Then
Y = Tabelle1.Cells(i, 4).Value
x = WorksheetFunction.CountIf(Tabelle2.Columns(3), "<>")
Tabelle2.Cells(x + 1, 3).Value = Y
End If
Next i
End Sub
|