Habe folgende Frage an Euch:
Habe folgendes Makro geschrieben (Auszug davon):
Sub Test()
Dim w As Integer
For w = 4 To Sheets.Count
If Sheets(w).[c9] = "j" Then
If Sheets(w).[c8] = "III" Then
Sheets(w).[f5] = Sheets(3).[C57]
ElseIf Sheets(w).[c8] = "IV a" Then
Sheets(w).[f5] = Sheets(3).[C57]
ElseIf Sheets(w).[c8] = "IV b" Then
Sheets(w).[f5] = Sheets(3).[C57]
ElseIf Sheets(w).[c8] = "V b" Then
Sheets(w).[f5] = Sheets(3).[C57]
End If
End If
Next
End Sub
Dort werden zwei Bedingungen geprüft und wenn diese erfüllt sind wird aus dem sheet3 ein bestimmter Wert in die Zelle F5 eingetragen.
Nun möchte ich das aber noch eine dritte Bedingung abgefragt wird.
(If Sheets(w).[c9] = "1" Then)
Kann mir jemand sagen wie ich das Makro umschreiben muß?
Gruß
ralle