Forums Neueste Beiträge
 

Spalten Copy statt Zeile

13/09/2009 - 16:08 von Heinz ROGHB346 | Report spam

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range, ColumnC As Range
Dim Y As Long '!!AK-29.08.09
'Was Spalte A geàndert?
If Intersect(Target, Columns(1)) Is Nothing Then GoTo minmax
'Alle Verànderungen in Spalte A prüfen
For Each R In Intersect(Target, Columns(1))
'Ist es ein X?
If R = "x" Then
With Sheets("Einkauf")
'Letzte Zeile in Tabelle2!Spalte A suchen
Y = .Cells(Rows.Count, 1).End(xlUp).Row
'Wenn nicht leer, dann nàchste Zeile
If Not IsEmpty(.Cells(Y, 1)) Then Y = Y + 1
'Zeile kopieren
Rows(R.Row).Copy .Cells(Y, 1)
End With
End If
Next
minmax:
'Geànderte Zellen in Spalte C ermitteln
Set ColumnC = Intersect(Target, Columns("C"))
'Welche da?
If ColumnC Is Nothing Then Exit Sub
'Jede Zelle einzeln durchlaufen
For Each R In ColumnC
Application.EnableEvents = False
If R < Range("D" & R.Row) Then
Range("D" & R.Row) = R
Range("H" & R.Row) = Now() '!!AK-29.08.09
ElseIf R > Range("D" & R.Row) Then
If R > Range("E" & R.Row) Then
Range("E" & R.Row) = R
Range("H" & R.Row) = Now() '!!AK-29.08.09
End If '!!AK-29.08.09
Else
'C4 = D4
End If
Application.EnableEvents = True
Next
End Sub




Hallo
wie oder was muß ich àndern um nicht die gesamte Zeile zu Copieren
ich möchte die Copie auf die Spalten A:H begrenzen !

'Zeile kopieren
Rows(R.Row).Copy .Cells(Y, 1)

MŽfGruß Heinz
 

Lesen sie die antworten

#1 Wolfgang Kutsche
13/09/2009 - 17:50 | Warnen spam
Hallo Heinz,

"Heinz ROGHB346" wrote:
wie oder was muß ich àndern um nicht die gesamte Zeile zu Copieren
ich möchte die Copie auf die Spalten A:H begrenzen !

'Zeile kopieren
Rows(R.Row).Copy .Cells(Y, 1)


mit:
Range(Cells(R.Row, 1), Cells(R.Row, 8)).Copy .Cells(Y, 1)
Gruß Wolfgang
WinXP Home SP3, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de

Ähnliche fragen