Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Zeilen kopieren erweitern"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren