seit einigen Tagen bin ich dabei, Excel mehr und mehr zu nutzen um meinen Arbeitsalltag zu vereinfachen.
Immer wenn ich nicht weiter gekommen bin, wurde ich im Netz fündig, insbesondere hier. Vielen Dank dafür
Nun habe ich ein Frage, für die ich bislang noch keine Antwort finde konnte.
Folgendes Szenario:
Ist:
Im Arbeitsblatt Dasboard wird eine Abfrage von der Auftragsnummer im Arbeitsblatt Auftraege gestartet.
Sprich:
Wenn die Zelle A2 Dasboard gleich Zelle A Auftraege ist, werden die Zellen danach im Arbeitsblatt Auftrag_X , zur weiteren Bearbeitung ausgegeben.
Soweit so gut.
Wunsch:
Zu der Abfrage Auftragsnummer soll gleichzeitig eine Abfrage der Spalte C, Angebot im Arbeitsblatt Auftraege stattfinden.
Sprich:
Also egal ob man in Spalte A2 vom Dashboard eine Auftragsnummer oder ein Angebot eingibt, sollen die Zellen A und C Auftraege abgefragt und die passenden Zellen danach im Arbeitsblatt Auftrag_X ausgegeben werden.
Wenn die Auftragsnummer & Angebotsnummer nicht vorkommen, soll eine Messagebox mit einem Hinweis Auftrag nicht vorhanden ausgegeben werden.
Ich hoffe, dass war verständlich und ihr könnt mir helfen.
Anbei Bilder und der Code, wie er momentan funktioniert.
Dim lngLetzte As Long
Dim lngQuelle As Long
Dim lngZiel As Long
lngZiel = 2
With Worksheets("Auftraege")
' benutzte Zeile in Spalte A
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' Schleife über alle Zeilen von 1 bis zur letzten ermittelten Zeile
For lngQuelle = 1 To lngLetzte
' laufende Zelle in A ist gleich Auftragsnummer
If .Cells(lngQuelle, 1) = Worksheets("Dashboard").Cells(2, 1) Then
' laufende Zeile kopieren nach Auftrag_X Zielzeile
.Rows(lngQuelle).Copy Worksheets("Auftrag_X").Cells(lngZiel, 1)
' Zielzeile um 1 erhöhen
lngZiel = lngZiel + 1
End If
Next lngQuelle
End With
Danke
Grüße Patrick