Schleife beenden bis... dann..
11.03.2016 15:18:51
Maren
ich möchte mit Vba folgende Anweisung formulieren.
Gebe in Blatt A alle Werte aus Blatt B Spalte 13 bis zur letzten Zeile (Es sind leere Zeilen zw den Werten, bis zu 3 untereinander)
Gebe daraufhin beginnend in der letzten Zeile von Spalte 13, Werte aus Spalte 10
Option Explicit
Dim I As Long, II As Long, III As Long, IIII As Long, V As Long, x As Long, y As Long
Sub MonateHTLJuliPOList()
II = 2
III = Worksheets("Juli 15").Cells(Rows.Count, 13).End(xlUp).Row
IIII = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
V = Worksheets("Juli 15").Cells(Rows.Count, 10).End(xlUp).Row
For x = 2 To III Step 1
For y = 2 To V Step 2
If Worksheets("Juli 15").Cells(x, 13) "" Then
Worksheets("Tabelle8").Cells(II, 1).Value = Worksheets("Juli 15").Cells(x, 13).Value
II = II + 1
Next x
Ifelse Worksheets("Juli 15").Cells(y, 10) "" Then
Worksheets("Tabelle8").Cells(IIII, 1).Value = Worksheets("Juli 15").Cells(y, 10).Value
IIII = IIII + 1
Next y
End If
End Sub
Ich erhalte den Fehler Next ohne For, und die IfElse Bedingung ist auch rot.
Vermutlich hab ich das ganze stark verkompliziert...
Vielen Dank für Hilfe,
Maren