Mehrere Bedingungen
18.12.2018 09:57:11
Georg
In Spalte C, D , E steht entweder eine 1 oder leer.
Starten tut alles ab Zeile 6:
Steht in C6 eine 1, dann soll der Wert aus B6 in G6 geschrieben werden, dann nächste Zeile.
Steht in D6 eine 1 dann soll in H6 der Wert aus B6 geschrieben werden.
Das Problem, der erste Wert in Spalte D ist D15, und er schreibt dann den Werte von B15 nach H15.
Ich hätte aber gerne, dass er in H6 anfängt.
Hat das mit der Reihenfolge des Codes zu tun?:
DANKE für einen Tipp.
Sub BpxStatus()
Dim wsh As Worksheet
Dim i As Long
Dim j As Long
j = 6
ThisWorkbook.Worksheets("Tabelle2").Activate
Application.Calculation = xlCalculationManual
'Auslesen Nachrekrutierung muss erfolgen
With ThisWorkbook.Worksheets("Tabelle2")
For i = 6 To 88
If .Cells(i, 3).Value = 1 Then
ThisWorkbook.Worksheets("Tabelle2").Cells(j, 7).Value = ThisWorkbook.Worksheets(" _
Tabelle2").Cells(i, 2)
j = j + 1
End If
Next i
End With
'----------------------------------------------------------------------------------------------- _
'Auslesen Offener Personalbedarf
With ThisWorkbook.Worksheets("Tabelle2")
For i = 6 To 88
If .Cells(i, 4).Value = 1 Then
ThisWorkbook.Worksheets("Tabelle2").Cells(j, 8).Value = ThisWorkbook.Worksheets(" _
Tabelle2").Cells(i, 2)
j = j + 1
End If
Next i
End With
'----------------------------------------------------------------------------------------------- _
'Auslesen Personalbedarf gedeckt
With ThisWorkbook.Worksheets("Tabelle2")
For i = 6 To 88
If .Cells(i, 5).Value = 1 Then
ThisWorkbook.Worksheets("Tabelle2").Cells(j, 9).Value = ThisWorkbook.Worksheets(" _
Tabelle2").Cells(i, 2)
j = j + 1
End If
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub