VBA Suche "x" verwende Zellwert als Zähler
Stevie
habe im Moment ein xls Sheet mit folgendem Spaltenaufbau:
A - Nummer, B-Auftrag, C-Name, D-Ort, E-Packstücke, F-leer , G-Druck
dazu habe ich ein Marko geschrieben das nun Spalte A nach einer bestimmten Nummer durchsucht und alle gefunden Zeilen mit dieser Nummer in Spalte "G" durchsucht und mit einem "x" markiert.
Hier mal das Marko:
Sub Suchen()
Sheets("Daten").Select
Range("G2:G65000").Select
Selection.ClearContents
Dim Suche As Object, Treffer1 As String
Dim Testvalue As String
Testvalue = Inputbox("Nummer angeben")
Set Suche = Cells.Find("" & Testvalue & "", lookat:=xlPart)
If Not Suche Is Nothing Then
Treffer1 = Suche.Address
Do
Cells(Suche.Row, 7).Value = "x"
Set Suche = Cells.FindNext(Suche)
Loop While Not Suche Is Nothing And Treffer1 Suche.Address
End If
MsgBox ("Packstücke füllen")
End Sub
Nun würde ich ganz gerne in einem seperaten Marko nach den in Spalte G mit "X" markierten Zeilen suchen,
in der ersten gefunden Zeile den Zellwert aus E lesen und dann in der Zelle in F mit dem Zähler "1" starten, einen Beliebingen Befehl ausführen, dann den Zellwert in F um 1 erhöhen und das Marko mit einem Loop solange laufen lassen bis der Zellwert in E und F gleich ist. Danach die nächste Zeile mit "X"
suchen und das Spiel von vorne beginnen lassen, bis alle Zeilen mit "X" abgearbeitet worden sind.
Vielleicht kann mir da jemand einen Tip geben wie ich als VBA Greenhorn an die Sache ran gehen soll....
Vielen Dank.
Grüßle Stevie
Anzeige