zwei If schlaufen

hallo ihr klaren köpfe! ;-)
ich habe hier zwei if schlafen. ich möchte folgendes:
falls der wert aus spalte A dem wert "1" entspricht, dann soll er zum countif und vlook hüpfen. Falls innerhalb des Vlook nichts gefunden wird, soll er "hab nix gefunden" ausweisen. Und wenn der Wert in Spalte A der Wert nicht 1 entspricht, dann soll er "Wert ungleich 1" ausweisen.
mir explodiert jetzt dann der kopf - kann einfach nicht mehr klar denken, ich habe das gefühl ich bin nahe dran, aber bin trotzdem steckengeblieben.
hier wäre noch der code.
option explicit


Sub umsatz()
' macht Abfrage damit nur Lageraufträge verarbeitet werden ("1Stock")
For i = 1 To iend Step 1
iend = Range("A65536").End(xlUp).Offset(1, 0).Row ' letzte beschriebene Zelle in Spalte A,  _
Zeilennummer
If Cells(i, 1).Value = 1 Then
' macht schlaufe für sverweis
For lngZeile = lngAbZeile To lngBisZeile
If Application.WorksheetFunction.CountIf(wksQuelle.Range(wksQuelle.Columns( _
wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteAnfang)), wksZiel.Cells(lngZeile, lngSpalteZielA))  >0 Then
wksZiel.Cells(lngZeile, lngSpalteZielA + 7).Value = _
Application.WorksheetFunction.VLookup(wksZiel.Cells(lngZeile, lngSpalteZielA),  _
wksQuelle.Range(wksQuelle.Columns(wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteZiel)), 2, False)
Else
wksZiel.Cells(lngZeile, lngSpalteZielA + 7).Value = "Hab da nix gefunden!"
End If
Next
End If
Next
End Sub

danke vielmals für euer hilfe!
Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub umsatz() ' macht Abfrage damit nur Lageraufträge verarbeitet werden ("1Stock") iend = Range("A65536").End(xlUp).Offset(1, 0).Row ' letzte beschriebene Zelle in Spalte A, _ Zeilennummer For i = 1 To iend Step 1 If Cells(i, 1).Value = 1 Then ' macht schlaufe für sverweis For lngZeile = lngAbZeile To lngBisZeile If Application.WorksheetFunction.CountIf(wksQuelle.Range(wksQuelle.Columns( _ wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteAnfang)), wksZiel.Cells(lngZeile, _ lngSpalteZielA)) >0 Then wksZiel.Cells(lngZeile, lngSpalteZielA + 7).Value = _ Application.WorksheetFunction.VLookup(wksZiel.Cells(lngZeile, lngSpalteZielA), _ wksQuelle.Range(wksQuelle.Columns(wksQuelleSpalteAnfang), wksQuelle.Columns(wksQuelleSpalteZiel) _ ), 2, False) Else wksZiel.Cells(lngZeile, lngSpalteZielA + 7).Value = "Hab da nix gefunden!" End If Next End If Next End Sub

hi
ne, eigentlich dachte ich das sei für euch leicht machbar. die meinung war, dass die sachen wie vlookup etc. hier stimmen und lediglich der aurbau der bestehenden schlaufen zu verändern wäre. nun, ich denke ich habe mich hier getäuscht, da ich nicht immer abschätzen kann wie schwierig etwas zu lösen ist.
bezüglich vlookup hat das problem woanders gelegen. ich hatte genau das versucht einzubauen, hab aber den entsprechenden tipp erst später bekommen. das hat dann funktioniert. die anderen tipps haben entweder nicht geklappt oder ich war zu blöd.
falls es dich interessiert wie "ich" das problem in den griff gekriegt habe betätige die suche mit "vlookup rainer" und klick den ersten eintrag an.
ich denke aber dass ich das aktuelle problem nun anders lösen werde - oder mal einen anderen lösungsansatz inbetracht ziehe, da die ganze rechnerei auch ohne zusätzliche if schlaufe (ob wert in spalte a wert 1 enspricht) schon gegen 1 min rechnet.
trotzdem vielen dank :-)
gruss
rainer

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread