Datenübernahme mit Bedingung

Bild

Betrifft: Datenübernahme mit Bedingung
von: hans
Geschrieben am: 14.04.2005 13:33:18
Hallo,
ich habe die folgende Tabelle:
VRG VERS ST Date1 Date2
1 1 x 01.01.2005 02.01.2005
1 2 x 01.01.2005 03.01.2005
1 3 z 01.01.2005 04.01.2005
1 4 z 01.01.2005 05.01.2005
2 1 x 02.01.2005 10.01.2005
2 2 z 02.01.2005 12.04.2005
2 3 z 02.01.2005 13.04.2005
Aus dieser Tabelle jeweils das erste Date2 übernommen werden, wenn folgende Bedingung erfüllt ist: Status=z und Date1 kleiner Date 2:
Zum Schluß möchte ich die Tabelle folgendermaßen darstellen:
VRG VERS ST Date
1 1 z 04.01.2005
2 2 z 12.04.2005
Weiß hier vielleicht jemand eine Lösung??
Vielen Dank
Hans

Bild

Betrifft: AW: Datenübernahme mit Bedingung
von: Fritz
Geschrieben am: 14.04.2005 14:17:09
Hi Hans,
anbei eine Lösung, wie ich Dein Problem verstanden habe.

https://www.herber.de/bbs/user/21143.xls

Wolltest Du das so?

Fritz
Bild

Betrifft: AW: Datenübernahme mit Bedingung
von: Herbert H.
Geschrieben am: 14.04.2005 14:26:23
hallo Hans,
ich habe gesehen,daß du von Fritz auch schon eine Lösung hast...
weil ich sie schon gemacht habe,hier mein Lösungsansatz...
ausgerichtet auf Spalte A-E


Public Sub x()
Dim i, lz%, lzT%
lz = Cells(Rows.Count, 1).End(xlUp).Row
lzT = Cells(Rows.Count, 8).End(xlUp).Row
For i = 2 To lz
   If Cells(i, 3) = "z" And _
     Cells(i, 4) < Cells(i, 5) Then
     lzT = Cells(Rows.Count, 8).End(xlUp).Row + 1
     Range(Cells(i, 1), Cells(i, 3)).Copy Cells(lzT, 8)
     Cells(i, 5).Copy Cells(lzT, 11)
   End If
Next
End Sub

     
gruß Herbert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datenübernahme mit Bedingung"