Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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


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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige