zusätzliche Anfrageschleife einbauen
28.01.2008 15:32:00
Silva
Hallo zusammen,
ich bekomme den letzten Baustein in meinen Code nicht reingeschrieben und hoffe auf eure Hilfe. Der Code sieht bisher ausschnittsweise folgendermassen aus:
Sub arhival()
Dim ar As Worksheet
Dim ash As Worksheet
Set ar = Sheets("Archiv")
i = 1
oi = 2
Set ash = ActiveSheet
ar.Activate
afm = ar.AutoFilterMode
ar.AutoFilterMode = False
Range("A6").Select
'dient dem finden der letzen Zahl einer automatisch generierten Laufnummer und soll diese dann fortsetzen
If Selection = "" Then
orow = 6
onum = 1
ElseIf ar.Cells(7, 1) = "" Then
orow = 7
onum = 2
Else
Selection.End(xlDown).Select
orow = Selection.Row + 1
onum = Selection + 1
End If
Cells(orow, 1) = onum
ash.Activate
... weitere Anweisungen folgen im code (hier nicht relevant)
Jetzt möchte ich gerne noch folgende Anweisung in den Code einbinden (sinngemäss). Von der Logik her soll es so aussehen:
While (Cells(a, 2).Value ash.Cells(10, 22).Value) ' mache die Aktion solange bis der Wert der aktuellen Zelle mit dem Wert in einer anderen Zelle (in einem anderen Tabellenblatt) übereinstimmt. "a" soll dabei eine Laufvariable sein, die in Spalte 2 von Zeile 6 bis zur letzten Zeile durchläuft (a=a+1).
If Cells(a, 2).Value = ash.Cells(10, 22).Value Then ' wenn die Werte übereinstimmen dann
orow = a ' setzte folgende Wert an
onum = 2
Else
a = a + 1 ' sonst gehe eine Zeile weiter
End If
Wend
und hier soll er jetzt, wenn er eine Übereinstimmung gefunden hat, bei ash. activate weitermachen ( und die gefundene Zellpoistion zum reinschreiben der Daten verwenden).
Ich hoffe ihr versteht mein Anliegen und freue mich auf eure Rückmeldungen.
Gruss, Silva