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
Anzeige