Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen kopieren erweitern

Zeilen kopieren erweitern
06.04.2005 13:17:02
geri
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren erweitern
06.04.2005 13:20:02
Dr.
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.
AW: Zeilen kopieren erweitern
06.04.2005 13:20:47
Uduuh
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

Anzeige
Perfect mit Case, DANKE (oT)
06.04.2005 13:27:15
geri
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige