ich habe ein Problem:
Ich habe in Excel 2 Spalten in denen Gewichte stehen. Daneben wird durch ein Makro 2 weitere Spalten eingefügt. In der ersten wird die Differenz der Gewichtsspalten berechnen, die zweite ist eine Kommentarspalte. Es gibt vier Kommentare(Fälle) die auftreten können:
Const sCom1 As String = "Gross & Net w. missing!"
Const sCom2 As String = "Gross w. kleiner Net w.!"
Const sCom3 As String = "Gross w. = Net w."
Const sCom4 As String = "Gross w. - Net w. größer 2"
Jetzt muss ich nur noch das umsetzen:
'In dieser Schleife....
For Each rgCell In rgColGw
iRow = rgCell.Row - 1
Set rgGW = rgColGw.Cells(iRow, 1)
Set rgNW = rgColNw.Cells(iRow, 1)
Set rgComment = rgColComment.Cells(iRow, 1)
Set rgDiff = rgColNwGwDiff.Cells(iRow, 1)
rgDiff.Value = rgGW.Value - rgNW.Value
If rgGW.Value + rgNW.Value = 0 Then rgComment.Value = sCom1
If rgDiff.Value AN DIESER STELLE DAS KLEINER-ZEICHEN DENKEN "0,000" Then rgComment.Value = sCom2
If........
Wie geht das denn für die restlichen Fälle? Ich habe da schonmal was probiert. Der erste klappt ja auch, aber der zweite schreibt seinen Kommentar überall hin wo der Wert 0 und kleiner 0 ist. Aber er soll es ja nur machen, wenn er kleiner 0 ist. Hilfe!! Kann mir jemand helfen?
Dank vorab.
Gruss, MarryJo