AW: Summe bilden
25.07.2015 15:55:13
susison
...oh das ging ja gut, damit hab ich nicht gerechnet. Es ist aber nicht ganz so, wie ich mir das vorstelle.Ich hab schon ein Makro, welches die Werte in Spalte A verarbeitet, ich dachte man könnte einen weiteren Code einfach dazu schreiben und dann könnte ich zwei Aktionen gleichzeitig durchführen.
Hier ist der bisherige Code:
Sub HT()
Dim c As Range, Bereich As Range
For Each c In Sheets("HT").Range("A1:A100")
If c.Value > 0 Then
If Not Bereich Is Nothing Then
Set Bereich = Union(Bereich, c, c.Offset(0, 1))
Else
Set Bereich = Union(c, c.Offset(0, 1))
End If
End If
Next
If Not Bereich Is Nothing Then _
Bereich.Copy Destination:=Sheets("Formular").Range("A" & _
Sheets("Formular").Cells(Rows.Count, 2).End(xlUp).Row + 1)
Set Bereich = Nothing
Sheets("HT").Range("A1:A100").ClearContents
End Sub
Gruß Susison