ich würde gerne ein Makro schreiben, dass mir ermöglicht Werte kleiner als Null innerhalb einer Spalte zu finden und in die nächste Spalte zu verschieben. Ich habe keine Ahnung wie ich es Excel erklären soll.
Für Hilfe wäre ich echt dankbar!!
Sub aaa()
Dim rngC As Range
Application.ScreenUpdating = False
With Sheets("Tabelle3")
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC
Gruß
Sub bbb()
Dim rngC As Range
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For Each rngC In .Range(.Cells(2, 11), .Cells(.Rows.Count, 11).End(xlUp))
If rngC
End Sub
With Selection
with .Offset(0, 1)
.FormulaR1C1 = "=IF(RC[-1] 0 then
.SpecialCells(xlcelltypeconstants, 1).Offset(0, -1).ClearContents
end if
end with
end with
gruß Daniel