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

suchen und übertragen

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
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige