Prüfen leere Zeile
22.10.2004 13:21:50
Eva
Im folgenden Code möchte ich results auslesen. Im Moment bleibt aber die Zeile, wohin eingelesen werden soll (ZeileAuslesen) immer die gleiche, anstatt in der Spalte die Werte nach unten hin einzufüllen. Wie kann ich geschickt einpflegen, dass das Einlesen klappt?
Danke für eure Hilfe.
Code:
Sub Auslesen()
Dim wsOverview As Object
Dim wsAuslesenBSC_Abt As Object
Dim ZeileActual As Long
Dim ZeileLower As Long
Dim ZeileUpper As Long
Dim ZeileAuslesen As Long
Set wsOverview = Workbooks("Template_IFD_Standortziele_04_05.xls").Worksheets("Overview")
Set wsAuslesenBSC_Abt = Workbooks("Risikoverfolgung07102004.xls").Worksheets("Auslesen BSC_Abt")
For ZeileActual = 9 To 259 Step 5
ZeileLower = ZeileActual + 4
ZeileUpper = ZeileActual + 3
ZeileAuslesen = 6
If wsOverview.Cells(ZeileUpper, 13) > wsOverview.Cells(ZeileLower, 13) Then
'rot
If wsOverview.Cells(ZeileActual, 13) < wsOverview.Cells(ZeileLower, 13) Then
wsOverview.Cells(ZeileActual, 13).Copy
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).PasteSpecial Paste:=xlValues
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).Select
Selection.FormatConditions.Delete
Selection.Interior.ColorIndex = 3
End If
'gelb
End If
If wsOverview.Cells(ZeileUpper, 13) < wsOverview.Cells(ZeileLower, 13) Then
'rot
If wsOverview.Cells(ZeileActual, 13) > wsOverview.Cells(ZeileLower, 13) Then
wsOverview.Cells(ZeileActual, 13).Copy
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).PasteSpecial Paste:=xlValues
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).Select
Selection.FormatConditions.Delete
Selection.Interior.ColorIndex = 3
End If
'gelb
End If
If wsOverview.Cells(ZeileUpper, 13) = wsOverview.Cells(ZeileLower, 13) Then
wsOverview.Cells(ZeileActual, 13).Copy
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).PasteSpecial Paste:=xlValues
wsAuslesenBSC_Abt.Cells(ZeileAuslesen, 4).Select
Selection.FormatConditions.Delete
Selection.Interior.ColorIndex = 7
End If
Next ZeileActual
End Sub