Typenkonflikt / WorksheetFunction.Index
14.03.2020 22:03:54
YellOh77
in Tabelle1 stehen in Spalte A verschiedene Orte, diese können von der Anzahl mitunter variieren,
die Spalten daneben enthalten Monatswerte jeweils von Jan bis Dez.
In Tabelle2 erfolgt die Auswahl des gewünschten Orts in A1, in A2 wird nur als Prüfwert die Zeilennummer des Eintrags zurückgegeben, A3 soll die Jahressumme anzeigen.
Ich bekomme allerdings nur eine Typenunverträglichkeit zurück, habe aber leider keinen blassen Schimmer, wie ich den auflösen kann. Für etwaige Hilfe bin ich schon jetzt dankbar!
Marc
Public Sub BedingtSummieren()
Dim varArr As Variant
Dim lngLastRow As Long
Dim rngRowNum As Range
Dim Suchwert As String
Suchwert = Sheets("Tabelle2").Range("A1").Value
lngLastRow = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
varArr = Sheets("Tabelle1").Range("B1:M" & lngLastRow)
With Worksheets("Tabelle1")
Set rngRowNum = Sheets("Tabelle1").Range("A1:A" & lngLastRow).Find(what:=Suchwert, LookIn:= _
xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not rngRowNum Is Nothing Then
Sheets("Tabelle2").Range("A2").Value = rngRowNum.Row 'wird hier nur zur Prüfung genutzt
End If
End With
Sheets("Tabelle2").Range("A3").Value = _
WorksheetFunction.Sum(WorksheetFunction.Index(varArr, rngRowNum)) ' hier taucht die Unverträ _
glichkeit auf; Soll die Jahressumme für den Ort ausgeben
End Sub