Zeilen verschieben

09.09.2002 12:26:48

Rainer W

Re: Zeilen verschieben

09.09.2002 12:30:04

L.Vira

Schau dir mal Cut destination:= an!

Re: Zeilen verschieben

09.09.2002 12:37:29

Rainer W

wie lege aber ich den Range Bereich für die markierten Zellen fest?

Rainer

Re: Zeilen verschieben

09.09.2002 12:46:01

L.Vira

du hast gepostet es geht um Zeilen. Frag in einer Schleife die entsprechende Zellfarbe ab.
Option Explicit
Sub Zeilen()
Dim lz As Long, z As Long, z2 As Long
lz = [a65536].End(xlUp).Row
For z = lz To 1 Step -1
If Cells(z, 1).Interior.ColorIndex = 3 Then
z2 = z2 + 1
Rows(z).Cut Destination:=Sheets("Tabelle2").Rows(z2)
End If
Next
End Sub

Re: Zeilen verschieben

09.09.2002 14:02:38

Rainer

Hab hier nen Code, allerdings löscht es mir die Leerzeilen in Tabelle1 nicht automatisch. Dann hab ich immnoch das Prob mit der Farbmarkierung in Spalte B der Tabelle1. Den Code mit .Interior.ColorIndex anzupassen anstatt "x") krieg ich nicht hin, der Debugger wird immer gestartet. Hab leider zu wenig Coding-Kentnisse ;-(

Sub Zeile_kopieren()
'Werte in Abhängigkeit der 3. Spalte in ein neues Arbeitsblatt
'hintereinander in Zeilen schreiben
Dim lngQRow As Long
Dim lngZRow As Long
Nochmal:
For lngQRow = 1 To Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row

If Worksheets(1).Cells(lngQRow, 3) = "x" Then

lngZRow = Worksheets(2).Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets(1).Cells(lngQRow, 1).EntireRow.Cut Worksheets(2).Cells(lngZRow, 1).EntireRow
GoTo Nochmal
End If
Next
End Sub

Re: Zeilen verschieben

09.09.2002 14:02:43

Rainer

Hab hier nen Code, allerdings löscht es mir die Leerzeilen in Tabelle1 nicht automatisch. Dann hab ich immnoch das Prob mit der Farbmarkierung in Spalte B der Tabelle1. Den Code mit .Interior.ColorIndex anzupassen anstatt "x") krieg ich nicht hin, der Debugger wird immer gestartet. Hab leider zu wenig Coding-Kentnisse ;-(

Sub Zeile_kopieren()
'Werte in Abhängigkeit der 3. Spalte in ein neues Arbeitsblatt
'hintereinander in Zeilen schreiben
Dim lngQRow As Long
Dim lngZRow As Long
Nochmal:
For lngQRow = 1 To Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row

If Worksheets(1).Cells(lngQRow, 3) = "x" Then

lngZRow = Worksheets(2).Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets(1).Cells(lngQRow, 1).EntireRow.Cut Worksheets(2).Cells(lngZRow, 1).EntireRow
GoTo Nochmal
End If
Next
End Sub

Re: Zeilen verschieben

09.09.2002 17:13:33

L.Vira

Hab dir doch einen fuktionierenden Code gepostet.
Dein Code ist dafür nicht geeignet.

Zeilen verschieben

Forumthread: Zeilen verschieben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Zeilen verschieben

Forumthread: Zeilen verschieben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread