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

Zeilen verschieben

Zeilen verschieben
09.09.2002 10:26:48
Rainer W

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

Betreff
Datum
Anwender
Anzeige
Re: Zeilen verschieben
09.09.2002 10:30:04
L.Vira
Schau dir mal Cut destination:= an!
Re: Zeilen verschieben
09.09.2002 10:37:29
Rainer W
wie lege aber ich den Range Bereich für die markierten Zellen fest?

Rainer

Re: Zeilen verschieben
09.09.2002 10: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 12: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

Anzeige
Re: Zeilen verschieben
09.09.2002 12: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

Anzeige
Re: Zeilen verschieben
09.09.2002 15:13:33
L.Vira
Hab dir doch einen fuktionierenden Code gepostet.
Dein Code ist dafür nicht geeignet.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige