Kopieren wenn Wert
06.09.2007 10:06:26
Daniel
Ich habe versucht mir einen eigenen VBA code zu basteln.
Leider funktioniert er nicht ganz so wie gedacht.
Ich will Werte kopieren, wenn in B ein bestimmter Wert steht.
Im Moment wird aber immer nur eine Zeile, nämlich die 1. in der die Bedingung
erfüllt ist, kopiert.
Was muss ich ändern?
Und dann noch: Wie kann ich nur die Inhalte kopieren lassen?
Danke
Code:
Sub Textfeld148_BeiKlick()
Dim endupOpenTrades As Long
Dim endupCSFB_Mail
Dim i As Integer
Dim Heute As String
Dim laRQ As Long, laRS As Long
Application.ScreenUpdating = False
Worksheets("CSFB_Mail").Range("A:C").Value = ""
endupOpenTrades = Range("A65536").End(xlUp).Row
Heute = Sheets("Open Trades").Range("Y1").Value
For i = 2 To endupOpenTrades
If Range("B" & i).Value = Heute Then
endupCSFB_Mail = Worksheets("CSFB_Mail").Range("A65536").End(xlUp).Row
Range("A" & i & ":C" & i).Copy
Worksheets("CSFB_Mail").Select
Range("A" & endupCSFB_Mail + 1).Select
ActiveSheet.Paste
End If
Next i
Worksheets("CSFB_Mail").Range("G1").Select
Application.ScreenUpdating = True
End Sub
Anzeige