Zeilen kopieren erweitern

Bild

Betrifft: Zeilen kopieren erweitern von: geri
Geschrieben am: 06.04.2005 13:17:02

Hallo

mit diesem Macro kopiere ich Zeilen wenn Inhalt "1234"
was muss ich anpassen wenn ich Zeilen "1234" + "2345" + "3456" ...
auch kopieren will

Sub datcopy()
Dim ByI As Integer
Dim InSpalte As Integer
Dim LoZeile As Integer

LoZeile = 8
InSpalte = 1
With Worksheets("All")
For ByI = 8 To 4000
If .Cells(ByI, 7) = "1234" Then
.Range(Cells(ByI, 1), Cells(ByI, 16)).Copy _
Destination:=Worksheets("Diverse").Cells(LoZeile, InSpalte)
LoZeile = LoZeile + 1
End If
Next ByI
End With

Danke für Lösungsansatz

gruss geri

Bild


Betrifft: AW: Zeilen kopieren erweitern von: Dr.
Geschrieben am: 06.04.2005 13:20:02

Moin,

entweder Du erweiterst Deine If-Klausel mit OR, was aber schnell unübersichtlich wird. Daher würde ich mir an Deiner Stelle mal die Select Case Anweisung ansehen.


Bild


Betrifft: AW: Zeilen kopieren erweitern von: Uduuh
Geschrieben am: 06.04.2005 13:20:47

Hallo,
Sub datcopy()
Dim ByI As Integer
Dim InSpalte As Integer
Dim LoZeile As Integer

LoZeile = 8
InSpalte = 1
With Worksheets("All")
For ByI = 8 To 4000
Select Case .Cells(ByI, 7)
Case "1234", "2345", "3456"
.Range(Cells(ByI, 1), Cells(ByI, 16)).Copy _
Destination:=Worksheets("Diverse").Cells(LoZeile, InSpalte)
LoZeile = LoZeile + 1
End Select
Next ByI
End With

Gruß aus'm Pott
Udo



Bild


Betrifft: Perfect mit Case, DANKE (oT) von: geri
Geschrieben am: 06.04.2005 13:27:15

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen kopieren erweitern"