Wert undgleich dann kopieren...
04.12.2003 16:22:00
Thomas H:
habe vor 1-2 Wochen mal ein Programm hier bekommen, das auch einwandfrei funktionierte... :) (funktioniert theorethishc immernoch)
hätte folgendes Problem...
hierzu der Code:
Sub exp()
Dim c As Range
Dim laRQ As Long, laRZ As Long
Application.ScreenUpdating = False
laRQ = Cells(Rows.Count, 7).End(xlUp).Row
For Each c In Sheets(file2).Range("G1:G" & laRQ)
If c.Value skaskz "AEM" & c.Value skaskz st & c.Value skaskz "TDP" & c.Value skaskz "Sinf" & c.Value skaskz "R&S" Then
laRZ = Sheets("Rest").Cells(Rows.Count, 1).End(xlUp).Row
If laRZ = 1 And Sheets("Rest").Range("A1").Value = "" Then laRZ = 0
Rows(c.Row).Copy
Sheets("Rest").Range("A" & laRZ + 1).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next c
Application.ScreenUpdating = True
End Sub
zum verständnis:
ska = spize klammer auf
skz = spize klammer zu
steht für ungleich
...das programm soll die Spalte G nach den angegebeben werten durchsuchen (st ist eine variable), also wenn alle ungleich der angegebenen Werte sind, sollen dann in das Tabellenblatt Rest geschrieben werden.
mein Problem ist das er alle Werte in Tabelle Rest schreibt. Ich denk ir das es ein ganz sinnloser Fehler ist, aber ich komm nimma weiter und bitte mal wieder um Hilfe
MfG
Thomas Hauswirth