suchen und übertragen

Forumthread: suchen und übertragen

21.08.2004 18:45:22

Ulf

Hallo Ihr Excelprofis
Ich habe folgendes Problem.
In der Tabelle1 in Spalte D stehen Datumse, in Spalte H Nummern und in Spalte M,N und O Zeiten.
Wenn in Tabelle2 A1 eine 8 steht möchte ich das
wenn in Tabelle1 Spalte D das Datum in den Monat 8 liegt und
wenn in Spalte M,N oder O größer 0 ist,
das Datum aus Spalte D in Tabelle2 Spalte B in die erste frei Zeile
die Nummer aus Spalte H in Tabelle2 Spalte C
die Zeiten aus Spalte M,N und O in Tabelle2 Spalte D,E und F .
Wenn der erste Wert gefunden dann weitersuchen. Nächstes Suchergebnis Werte übertragen wie oben.
Das Ganze bis nichts mehr zu finden ist.
Beispiel Datei habe ich mit hochgeladen.
https://www.herber.de/bbs/user/9924.xls
Im Voraus vielen Dank
Ulf

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: suchen und übertragen

Beni
AW: suchen und übertragen

22.08.2004 10:59:09

Ulf
AW: suchen und übertragen

Beni
AW: suchen und übertragen

23.08.2004 23:29:11

Ulf

AW: suchen und übertragen

Beni

Hallo Ulf,
Gruss Beni


Sub Daten_übertragen()
For i = 6 To Cells(Rows.Count, 4).End(xlUp).Row
With Sheets("Tabelle2")
lz = .Cells(Rows.Count, 4).End(xlUp).Row + 1
If Month(Cells(i, 4)) = .Cells(1, 1) Then
If Cells(i, 13) > 0 Or Cells(i, 14) > 0 Or Cells(i, 13) > 0 Then
Cells(i, 4).Copy .Cells(lz, 2)
Cells(i, 8).Copy .Cells(lz, 3)
Cells(i, 13).Copy .Cells(lz, 4)
Cells(i, 14).Copy .Cells(lz, 5)
Cells(i, 15).Copy .Cells(lz, 6)
End If
End If
End With
Next i
End Sub

AW: suchen und übertragen

22.08.2004 10:59:09

Ulf

Hallo Beni
Erst einmal vielen Dank.
Er sagt mir Variable nicht definiert
Ich habe es dann so geändert.
Ist das so ok.


Sub Daten_übertragen()
Dim i
Dim lz
For i = 6 To Cells(Rows.Count, 4).End(xlUp).Row
With Sheets("Tabelle2")
lz = .Cells(Rows.Count, 4).End(xlUp).Row + 1
If Month(Cells(i, 4)) = .Cells(1, 1) Then
If Cells(i, 13) > 0 Or Cells(i, 14) > 0 Or Cells(i, 13) > 0 Then
Cells(i, 4).Copy .Cells(lz, 2)
Cells(i, 8).Copy .Cells(lz, 3)
Cells(i, 13).Copy .Cells(lz, 4)
Cells(i, 14).Copy .Cells(lz, 5)
Cells(i, 15).Copy .Cells(lz, 6)
End If
End If
End With
Next i
End Sub

Gruß Ulf

AW: suchen und übertragen

Beni

Hallo Ulf,
ist gut, noch besser wäre
Dim i, lz As Integer
Gruss Beni

AW: suchen und übertragen

23.08.2004 23:29:11

Ulf

Hallo Beni
Danke für die Hilfe
Klappt alles super
Gruß Ulf

Beliebteste Forumthreads (12 Monate)

Forumthread: suchen und übertragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread