VBA Code erst weiter wenn...
22.07.2014 16:43:52
Marcy
Hallo zusammen,
ich stehe mal wieder vor einem kleinen Problem.
Ich habe mir was tolles gebastelt, womit ich eine Vorlage fülle, aber perfekt ist es noch nicht.
Die Einträge in Spalte 48&49 sind von den Einträgen in Spalte 4, 14, 15, 18 und 45 abhängig. Das muss erst erledigt sein, bevor Spalte 48&49 gefüllt wird, siehe Kommentar im Code.
Ich könnte es höchstens in zwei Codes aufteilen, wäre aber elegant, wenn es in einem funktioniert.
Wenn ich wüsste wie man es nennt, hätte ich die Suchfunktion benutzen können.
Vielen Dank für Eure Hilfe
Marcy
Sub Ebenen_Sind_angelegt()
Call EventsOff
Dim i As Long
For i = 201 To ActiveSheet.UsedRange.Columns("A").Cells.Count
If Cells(i, 4) = "" Then Cells(i, 4) = Cells(i - 1, 4)
If Cells(i, 14) = "" Then Cells(i, 14) = Cells(i - 1, 14)
If Cells(i, 15) = "" Then Cells(i, 15) = Cells(i - 1, 15)
If Cells(i, 18) = "" Then Cells(i, 18) = Cells(i - 1, 18)
If Cells(i, 45) = "" Then Cells(i, 45) = Cells(i - 1, 45)
'Hier darf es erst weitergehen, wenn die Aufgaben oben erledigt sind.
If Cells(i, 48) = "" Then Cells(i, 48) = Cells(i - 1, 48)
If Cells(i, 49) = "" Then Cells(i, 49) = Cells(i - 1, 49)
Next i
Call EventsOn
End Sub