Makro addiert immer noch nicht...
18.06.2004 14:20:42
Maze
ich versuche die Programmierung meines Makros zu verändern.
Der Makro überträgt Zahlen von einem Blatt ins nächste und soll die Zahlen bei doppelt vorkommenden Artikelnummern adieren.
Weiß jemand wie es geht und kann es ändern?!
Gruß
Matthias
Sub Zahlen__rein()
Const Eingabe = "Artikel Statistik Monat.xls"
Const Ausgabe = "Artikel Statistik Monat.xls"
Dim KdNr As String
Dim Artikel As String
Dim l As Long
Dim summe As Integer
Dim Betrag As String
Dim Monat As String
'Bildschirmaktuaklisierung ausschalten
Application.ScreenUpdating = False
Sheets("Admindaten").Activate
Monat = Range("O8").Value
Sheets("download").Activate
Range("A2").Select
For l = 1 To ActiveSheet.UsedRange.Rows.Count
'Daten in Variablen schreiben
KdNr = ActiveCell.Value
Artikel = ActiveCell.Offset(0, 1).Value
Betrag = ActiveCell.Offset(0, 2).Value
'Ausgabedatei aktivieren und suchen
Sheets("Datenbank").Activate
Columns("A:A").Select
On Error GoTo fehlerm
summe = 0
Selection.Find(What:=KdNr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Select 'Auf Artikel-Spalte positionieren
Do While ActiveCell.Value <> ""
If ActiveCell.Value = Artikel Then summe = summe + ActiveCell.Offset(0, Monat + 1).Value = Betrag: Exit Do
ActiveCell.Offset(1, 0).Select
Loop
Sheets("download").Activate
ActiveCell.Offset(1, 0).Select
Next l
'Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
Exit Sub
fehlerm:
MsgBox "" & Artikel & " nicht gefunden!" & Chr(13) _
& " bitte Artikel einfügen und Makro erneut starten!"
End Sub