Supportnet / Forum / Tabellenkalkulation
Suchergebnisse/Abfrage automatisch kopieren
Frage
Hallo Jungs,
ich habe folgendes Problem:
Ich habe ein Sheet mit Aufträgen, und aus diesen Aufträgen möchte ich alle mit der Auftragsnummer die wiederum auf einem seperaten Blatt steht kopieren, und auf das Blatt der Auftragsnummer ausgeben.
Soll heissen er soll aus allen Aufträgen, diejenigen ausspucken, auf die die Bedingung zutrifft.
Hatte sowas ähnliches vor ca. 3 Wochen schon mal gesucht, und eingermassen auch hinbekommen. Nur find ich den Thread irgendwie nich mehr ..
Grüße und danke schonmal ...
Antwort 1 von waddehaddedudeda
Ach ja das Suchergebniss besteht dann natürlich nicht nur aus der zelle in der die gefundene Artikelnummer steht, sondern auch noch aus dem Rest der Zeile ... Er müsste also die gefundene Zeile kopieren ...
Antwort 2 von JoeKe
Hallo waddehaddedudeda,
folgender Code sucht in der Spalte A auf der Tabelle1 den Wert, der auf Tabelle2 in A1 steht und kopiert bei Übereinstimmung die Zeile auf Tabelle2 in die jeweils erste freie Zeile der Spalte A.
Sub auftrag()
Dim zeile As Long, zelle As Long
zelle = 1
Do While Cells(zelle, 1) <> ""
If Cells(zelle, 1) = Sheets("Tabelle2").Range("A1") Then ´zeile = zelle.Row
Rows(zelle).Copy Destination:=Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
zelle = zelle + 1
Loop
End Sub
MfG
JöKe
folgender Code sucht in der Spalte A auf der Tabelle1 den Wert, der auf Tabelle2 in A1 steht und kopiert bei Übereinstimmung die Zeile auf Tabelle2 in die jeweils erste freie Zeile der Spalte A.
Sub auftrag()
Dim zeile As Long, zelle As Long
zelle = 1
Do While Cells(zelle, 1) <> ""
If Cells(zelle, 1) = Sheets("Tabelle2").Range("A1") Then ´zeile = zelle.Row
Rows(zelle).Copy Destination:=Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
zelle = zelle + 1
Loop
End Sub
MfG
JöKe
Antwort 3 von JoeKe
´zeile = zelle.Row der Teil muss raus.