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

Datenübernahme mit Bedingung

Datenübernahme mit Bedingung
14.04.2005 13:33:18
hans
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenübernahme mit Bedingung
14.04.2005 14:26:23
Herbert
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
Anzeige

180 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige