27.03.2017, 09:59
Huhu,
hab mal wieder ein kleines Problem. Und zwar würde ich gerne etwas zu einer zelle addieren, die ich vorher aber nach zeile und spalte erstmal suchen muss.
als Beispiel
[F]
Februar
[6] Hundefutter 5,76€
Ich suche also beispielsweise nach Hundefutter und möchte dann zu den 5,76€ im Februar noch 1,20€ dazu addieren.
Bisher hab ich folgendes:
leider scheitert das ganze genau an Zeile --> Set Treff = .Offset(RowOffset(rnge), columnOffset(Mon))
Hat jemand nen Schubs in die richtige Richtung für mich?
Liebe Grüße
Claudia
hab mal wieder ein kleines Problem. Und zwar würde ich gerne etwas zu einer zelle addieren, die ich vorher aber nach zeile und spalte erstmal suchen muss.
als Beispiel
[F]
Februar
[6] Hundefutter 5,76€
Ich suche also beispielsweise nach Hundefutter und möchte dann zu den 5,76€ im Februar noch 1,20€ dazu addieren.
Bisher hab ich folgendes:
Code:
Dim rnge As Range
Dim Mon As Range
Dim Treff As Range
Dim Kosten
Kosten = Sheets("Ausgang").Cells(5, 6).Value
With Sheets("Bestand").Rows(2)
Set rnge = .Find(What:=Sheets("Ausgang").Cells(5, 3), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Set Mon = .Find(What:=Sheets("Ausgang").Cells(5, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Set Treff = .Offset(RowOffset(rnge), columnOffset(Mon))
If Not rnge Is Nothing Then
Treff.Value = Treff.Value + Kosten
Else: MsgBox "Artikel nicht gefunden"
End If
End With
leider scheitert das ganze genau an Zeile --> Set Treff = .Offset(RowOffset(rnge), columnOffset(Mon))
Hat jemand nen Schubs in die richtige Richtung für mich?
Liebe Grüße
Claudia