VBA Schleifen
06.02.2016 13:28:53
Kathleen
Wenn jetzt bestimmte Optionen erfüllt sind, soll eine Tabelle durchsucht werden und die Suchwerte nacheinander in ein anderes Tabellenblatt geschrieben werden.
Irgendwie krieg ich aber die Schleife nicht vernünftig aufgebaut, so dass er mit zwar die richtigen Ergebnisse in das andere Tabellenblatt schreibt, aber dies solange tut bis ein neuer Treffer gefunden wurde. Habe dann beispielsweise 4 mal suchergebniss 1, dann 2 mal sucherergebnis 2 usw.
Wie muss ich dann die Schleife richtig aufbauen? Ich hab nen Brett vorm Kopf.
Hier die Schleife:
Dim cboDicke As String
Dim cboFarbe As String
Dim lngLZ As Long
lngLZ = Sheets("tabelle1").Cells(1048576, 1).End(xlUp).Row
cboDicke = ComboBox1.Value
cboFarbe = ComboBox2.Value
For i = 1 To lngLZ
If optR1HL1 = True And optR7HL1 = True Then
Sheets("Tabelle1").Select
If Cells(i, 2) = cboDicke And Cells(i, 3) = cboFarbe And Cells(i, 4) Like "*HL 1*" And Cells(i, 5) Like "*HL 1*" _
Then Sheets("Tabelle1").Range("A" & i, "H" & i).Copy
Sheets("Tabelle3").Cells(i, 1).PasteSpecial Paste:=xlPasteAll
Next
Danke
Kathleen