Hallo
Ich versuche mal mein Problem zu erklären ;)
Ich habe zwei Tabellen (Eingang und Grafik)
In der Tabelle Eingang gebe ich die Daten und ein und er schreibt dann einen gewissen Wert in die Grafik Tabelle.
Darunter mal einen Teil meines Codes (Worksheet.Change - Tabelle Eingang)
Set ws = ActiveWorkbook.Worksheets("Eingang")
Set wsGrafik = ActiveWorkbook.Worksheets("Grafik")
.
.
.
If (ws.Cells(zeile, 2) Like "E") Then
namen = ws.Cells(zeile, 1)
datum = ws.Cells(zeile, 24)
sdatum = MonthName(Month(datum))
If (ws.Cells(zeile, 22) <> "") Then
wert = ws.Cells(zeile, 22)
'Call searchColumn(94, 135)
On Error Resume Next
fnd = Application.WorksheetFunction.Match(namen, Range(wsGrafik.Cells(94, 2), wsGrafik.Cells(135, 2)), 0)
fndMonat = Application.WorksheetFunction.Match(sdatum, wsGrafik.Rows(4), 0)
On Error GoTo 0
If (fnd > 0 And fndMonat > 0) Then
wsGrafik.Cells(fnd, fndMonat) = wsGrafik.Cells(fnd, fndMonat) + wert
Else
MsgBox "Spalte nicht gefunden in Grafik", vbOKOnly, "Achtung!"
End If
fnd = Application.WorksheetFunction.Match(namen, Range(wsGrafik.Cells(94, 2), wsGrafik.Cells(135, 2)), 0)
Bei dieser Zeile kommt die Fehlermeldung: Method 'range' of object' _Worksheet' failed
würde mich freuen, auch wenn die beschreibung nicht perfekt ist, wenn mir wer weiterhelfen kann
danke im voraus
lg