---

Tabelle.xlsx.txt

Hallo!

In meiner Tabelle1 soll in den Spalten B bis L nach dem Wert 4 gesucht werden.
Wenn die Zahl gefunden wurde, soll das Datum in Spalte A in Tabelle2 geschrieben werden.
Wenn das Datum allerdings jünger ist, soll es nicht übernommen werden.

Bsp.: Spalte B (01.01.1987)
      14.9.1986 wird kopiert
      5.10.1986 wird kopiert
      19.10.1986 wird kopiert
      25.1.1987 wird nicht kopiert
      29.3.1987 wird nicht kopiert

Da diese Aufgabe nur mit VBA zu lösen ist, würde Ich um eure hilfe bitten.

------------------
Mit freundlichen Grüßen

CADdoctor

[Diese Nachricht wurde von CADdoctor am 28. Jun. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Doc,

an der Dateiendung Deines Anhangs erkenne ich, dass es sich um ein File ohne Makros handelt (sonst wäre es eine .xlsm).

Bitte erlaube mir die Frage, was Du von diesem Forum erwartest: Soll Dir jemand den kompletten Code schreiben? Mach' ich gerne, Stundensatz ist dreistellig, Anfrage per PM SCNR .

Vorschlag: Fang' irgendwo an. Wenn Du konkrete Fragen zu einzelnen Schritten - auch in VBA - hast, wird Dir hier sicher geholfen:
-Datum vergleichen ist glaube ich kein Problem.
-Bereich kopieren und einfügen wahrscheinlich auch nicht
-Kennst Du den Macro-Recorder?

Viel Erfolg

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

meinst du das so:

Code:

---

Sub Uebertragen()
  Dim lngZeileStart As Long
  Dim lngZeileZiel As Long
  Dim intSpalteStart As Integer
  lngZeileStart = 2
  With Worksheets("Beispiel")
      For intSpalteStart = 2 To 12
        Cells(1, intSpalteStart).Copy .Cells(intSpalteStart - 1, 1)
        For lngZeileStart = 2 To 33
            If Cells(lngZeileStart, intSpalteStart) = 4 Then
                Cells(lngZeileStart, 1).Copy .Cells(intSpalteStart - 1, _
                  IIf(IsEmpty(.Cells(intSpalteStart - 1, .Columns.Count)), _
                  .Cells(intSpalteStart - 1, .Columns.Count).End(xlToLeft).Column, .Columns.Count) + 1)
            End If
        Next lngZeileStart
      Next intSpalteStart
  End With
End Sub

---

Code muss ausgeführt werden wenn Tabelle1 aktiv ist.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code.txt

Hallo!

@Paulchen
Nein, Ich erwarte mir nicht dass mir jemand den kompletten Code schreib!
Da mein Ansatz bis dato recht dürftig ist, dachte Ich jemand könnte mir einen guten Ansatz liefern.
Code siehe Anhang!

@Beverly
Danke, Danke!
Dein Code macht genau das, was Ich seit gestern versuche hinzubekommen!
Ich versuche noch, das Datum in den Spalten B1 bis L1 mit dem Datum in Spalte A2 bis A33 zu vergleichen.
Jedes Datum das jünger als das in B1 bsi L1 ist, soll nicht kopiert werden.
z.B.: für den 1.1.1987 werden der 25.01.1987 und der 29.03.1987 nicht kopiert!

------------------
Mit freundlichen Grüßen

CADdoctor

[Diese Nachricht wurde von CADdoctor am 29. Jun. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP