ZÄHLENWENN Problem in VBA
30.03.2007 15:05:00
Andreas
ich habe ein Problem und zwar folgendes:
Ich habe ein Makro dass verschiedene Zeilen durchsucht und dabei die Zellinhalte vergleicht. Stimmt ein Wert überein, merkt es sich diese Zelle und fügt es zu einem Range hinzu.
Dieser wird nachher in einen String umgewandelt und dann in eine Excel-Formel hinzugefügt. Allerdings kann es vorkommen dass die Range verschiedene Zeilen beinhaltet. Hier ist dann der Knackpunkt, dass ZÄHLENWENN ja nicht mehrere Bedingungen verarbeiten kann. Wie kann ich das anders lösen? Hat jemand eine Idee?
Vielen Dank schonmal im Vorraus
Andreas
hier das Makro:
Sub test()
Worksheets("Auswertung").Activate
Dim KW As Integer
Dim bigrange As Range
Dim bigrangeA1 As String
For i = 1 To 53
KW = i
Set bigrange = Nothing
For j = 2 To 32
Set s = Worksheets("1. Quartal")
s.Activate
If s.Cells(4, j).Value = KW Then
If bigrange Is Nothing Then
Set bigrange = s.Range(s.Cells(6, j), s.Cells(6, j))
Else
Set bigrange = Application.Union(bigrange, _
s.Range(s.Cells(6, j), s.Cells(6, j)))
End If
ElseIf s.Cells(34, j).Value = KW Then
If bigrange Is Nothing Then
Set bigrange = s.Range(s.Cells(36, j), s.Cells(36, j))
Else
Set bigrange = Application.Union(bigrange, _
s.Range(s.Cells(36, j), s.Cells(36, j)))
End If
'ElseIf s.Cells(64, j).Value = KW Then
'ElseIf...
'ElseIf...
End If
Next
bigrangeA1 = bigrange.Address(False, True, xlA1, True)
Worksheets("Auswertung").Cells(4, i + 10).FormulaLocal = _
"=ZÄHLENWENN(" & bigrangeA1 & ";Init!$F$3)"
Next
End Sub
Um das fette gehts