Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeilen kopieren mit VBA
07.11.2006 10:46:27
helena
Hallo hätte kleines Problem zu löschen
dies funktionert einwandfrei wenn Begriff vorhanden, kopiere
Inhalt von Spalte A-D
LoZeile = 4
InSpalte = 1
With Worksheets("All")
For ByI = 4 To 500
If .Cells(ByI, 1) = "x" Then
.Range(Cells(ByI, 1), Cells(ByI, 4)).Copy _
Destination:=Worksheets("IM").Cells(LoZeile, InSpalte)
LoZeile = LoZeile + 1
End If
Next ByI
End With
als Variante A
gibt es möglichkeit das ich zB Spalten A-D; F; J-K kopiere aneinander gereiht
als Variante B
oder an gleichen Platz kopiert wie Ursprungs Spalte
weis noch nicht welches besser ist für das Erscheinungsbild A oder B.
DANKE
gruss helena

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren mit VBA
07.11.2006 11:07:24
Rudi
Hallo,

Sub tt()
Dim vntTmp(1 To 1, 1 To 7)
Dim ByI As Integer, LoZeile As Long, inSpalte As Integer
LoZeile = 4
inSpalte = 1
For ByI = 4 To 500
With Worksheets("All")
If .Cells(ByI, 1) = "x" Then
vntTmp(1, 1) = .Cells(ByI, 1)
vntTmp(1, 2) = .Cells(ByI, 2)
vntTmp(1, 3) = .Cells(ByI, 3)
vntTmp(1, 4) = .Cells(ByI, 4)
vntTmp(1, 5) = .Cells(ByI, 6)
vntTmp(1, 6) = .Cells(ByI, 10)
vntTmp(1, 7) = .Cells(ByI, 11)
With Worksheets("IM")
.Range(.Cells(LoZeile, 1), .Cells(LoZeile, 7)) = vntTmp
End With
LoZeile = LoZeile + 1
End If
End With
Next ByI
End Sub

Gruß
Rudi
Anzeige
AW: Zeilen kopieren mit VBA
07.11.2006 11:29:24
helena
DANKE
es funktioniert und ist Variabel so kann ich beides Varianten lösen
gruss helena
AW: Zeilen kopieren mit VBA
07.11.2006 11:29:26
helena
DANKE
es funktioniert und ist Variabel so kann ich beides Varianten lösen
gruss helena

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige