Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Suche "x" verwende Zellwert als Zähler
Stevie
Hi Zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Suche "x" verwende Zellwert als Zähler
03.05.2010 16:40:23
fcs
Hallo Stevie,
das Makro - Gerüst sieht etw so aus.
Gruß
Franz
Sub Suchen_X()
Dim Zeile As Long, wks As Worksheet, iZaehler As Long
Set wks = Sheets("Daten")
With wks
.Select
'Spalte G (7) abarbeiten
For Zeile = 2 To .Cells(.Rows.Count, 7).End(xlUp).Row
If LCase(.Cells(Zeile, 7)) = "x" Then
'Anzahl Schleifen machen gemäß Wert in spalte E (5)
For iZaehler = 1 To .Cells(Zeile, 5)
.Cells(Zeile, 6) = iZaehler 'Zähler in Spalte F eintragen
'Makro Aktion Anfang
'Makro Aktion Ende
Next
End If
Next
End With
MsgBox ("Alle ""X"" abgearbeitet")
End Sub

Anzeige
AW: VBA Suche "x" verwende Zellwert als Zähler
03.05.2010 16:52:37
Stevie
Hi Franz,
bist auf jeden Fall mein Held für heute. Merci

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige