Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren wenn Wert

Forumthread: Kopieren wenn Wert

Kopieren wenn Wert
06.09.2007 10:06:26
Daniel
Hallo!
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren wenn Wert
06.09.2007 11:22:35
Beni
Hallo Daniel,
zweimal "i" gleiche Zeile
Gruss Beni

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 ' 


Anzeige
AW: Kopieren wenn Wert
06.09.2007 11:26:49
Daniel
Das ist aber nicht das Problem, oder?
Der Ausschnitt besitmmt ja lediglich den Bereich der kopiert werden soll.
Also wenn i = 3 dann A3:C3.
Mein Problem ist, dass er scheinbar nur ein "i" abarbeitet.

AW: Kopieren wenn Wert
06.09.2007 11:34:00
Chaos
Servus Daniel,
Die Schleife so ändern:
Sheets("CSFB_Mail").Activate
For i = 2 To endupOpenTrades
If Sheets("Open Trades").Range("B" & i).Value = Heute Then
Sheets("Open Trades").Range("A" & i & ":C" & i).Copy
Sheets("CSFB_Mail").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End If
Next i
Dann geht das.
Gruß
Chaos

Anzeige
AW: Kopieren wenn Wert
06.09.2007 11:38:17
Daniel
Danke!
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige