Zellen kopieren unter einer Bedingung
27.05.2004 10:31:27
Peter
in meiner Tabellestehen in Spalte C Zahlen wenn nun in Spalte H ein "NEIN" steht sollen nur diese Zahlen von C nach A kopiert werden.
das nein wird mit folgender Formel ermittelt.
=WENN(C2="";"";WENN(SUMME(D2:G2)=0;"NEIN";(SUMME(D2:G2))))
Das ist mein Versuch.Klappt aber nicht.
Sub test444()
Dim zelle, str As String, strg As String, aa As String
On Error Resume Next
'Range("A2:A2010").Select
' Selection.ClearContents
Sheets("elt").Select
For Each zelle In Range("H:H")
If zelle.Value = "NEIN" Then
str = str & zelle.AddressLocal(False, False) & ","
End If
Next
strg = Left(str, Len(str) - 1)
aa = Range(strg).Offset(0, -5).Select
'Range(aa).Select
Selection.Copy
'Range(strg).Select
'ActiveCell.Offset(0, -2).Select
Range("A2").Select
' Selection.End(xlUp).Select
' Selection.End(xlDown).Offset(2, 0).Select
' Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Peter