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"