Funktioniert soweit auch, nur :
Bei meiner Abfrage kommen z.B. 9 solche Felder heraus, es wird aber nur der letzte Wert in meine Zeile geschrieben.
Ich will aber das der erste Wert in die Tabelle gschrieben wird, dannach eine Zeile hinunter springt und dort den zweiten Wert einträgt, u.s.w.
Hier der Code, welchen ich verwende :
Sub Bereitschaft_auslesen_SE()
For Spalte = 13 To 43
For Zeile = 21 To 46
With ActiveSheet.Cells(Zeile, Spalte)
Range(ActiveSheet.Cells(Zeile, Spalte).Address).Select
If .Value = "2" And .Interior.ColorIndex = 6 Then Worksheets("Bereitschaft_SE").Range("c9").Value = Cells(ActiveCell.Row, 11).Value
End With
Next Zeile
Next Spalte
End Sub