Übertrag in Zeile statt Spalte + Runden ...
Andreas
kann mir bitte jemand sagen, was ich an folgendem Code ändern muss,
so dass die Werte wie von mir gewünscht in die Zellen der
Zeile "4" geschrieben werden (siehe "Liste_Ziel")?
Irgendwas stimmt noch nicht, weil bislang werden sie noch in die Spalte "B", also B4, B5, B6 ... geschrieben:
Sub Uebertrag()
Dim Liste_Quelle As Range, Liste_Ziel As Range
Set Liste_Quelle = Range("B3,C3,D3,E3,F3,G3,H3")
Set Liste_Ziel = Range("B4,C4,D4,E4,F4,G4,H4")
For Each cell In Liste_Quelle
If cell.Offset(0, 1).Value > 0 Then
Liste_Ziel.Cells(1, 1).Value = cell.Value '**
Set Liste_Ziel = Liste_Ziel.Offset(1)
End If
Next
End Sub
** hier möchte ich die Zahl noch gerundet haben und wenn's eine 3-stellige Zahl ist sollen nach der Rundung noch 10 abgezogen werden bei einer 4-stelligen Zahl nach der Rundung 100 usw.
Vielen Dank im Voraus,
Andreas
Anzeige