vielleicht kann mir da jemand helfen
ich müsste von tabelle1 den Rechnungsbetrage kopieren und in einer Tabelle (nach Kundennummer und Monat ) einfügen
vielen dank im voraus
Option Explicit
Public Sub Store_billing_amount()
Dim objCell As Range
Dim lngMonth As Long
With Worksheets("Liste")
Set objCell = .Columns(1).Find(What:=Worksheets("Rechnung").Cells(11, 6).Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
lngMonth = Month(Worksheets("Rechnung").Cells(15, 6).Value)
.Cells(objCell.Row, lngMonth * 2 + 5).Value = .Cells(objCell.Row, lngMonth * 2 + 5).Value + _
Worksheets("Rechnung").Cells(35, 7).Value
Set objCell = Nothing
Else
Call MsgBox("Kundennummer nicht gefunden.", vbExclamation, "Hinweis")
End If
End With
End Sub
Im Worksheet "Rechnung" befindet sich am Ende des Namens ein Leerzeichen. Bitte lösche das, bevor du testest.