Zuweisung verschiedener Werte durch Filter & Suche
14.11.2017 12:54:37
Wanner
ich habe eine lange Zeit nur mitgelesen, dadurch konnten viele Probleme gelöst werden, nun bin Ich aber mit meinem Latein am Ende.
Nun zu meinem Problem.
Beschreibung:
Es gibt eine Excel Tabelle mit 2 Blättern.
Das Makro wird zuerst einen Wert auf Blatt B kopieren und auf Blatt A via Autofilter in Spalte A suchen. Nachdem er die Zeile anzeigt wechselt es wieder auf Blatt B. 3 Spalten nach links gehen. Hier wird das selbe nochmals durchgeführt, kopieren. Wieder auf Blatt A und in der ganzen Zeile 2 suchen.
Bis hier hin funktioniert das VBA!
Ab hier soll er nun eine Zeile tiefer gehen und ein "X" setzen.
Ab dann wieder Blatt B eine Zeile tiefer und wieder von Vorne.
Es geht um ca. 7500 Datensätze. Das angehängte File ist abgespeckt und leider zu groß 5700KB :( Bei Bedarf email an mich (wanner.telekom.gmail.com). Freue mich über jede Hilfe!!!
Problemdarstellung:
Nachdem er den Wert in Zeile 2 gefunden hat, und runter geht funktioniert das mit dem X setzen nicht. Es ging schon mal, jedoch ging er nicht tiefer. Er schreibt dann alles in eine Zeile. Vll hat er auch Probleme mit ausgeblendeten Zeilen und geht deshalb immer nur die "erste" runter.
Hier nochmals das grobe Vorgehen
'Programm soll pro VPSZ die verwendeten Container zuweisen / markieren.
'Vorgehensweise:
'Schleife:
'Selektiere G3 ( 1. Planungsnummer) Blatt Container Liste
'Kopiere selektierte Zelle ( X )
'Wechsel zu Blatt Gesamt Kopie
'Alle Filter löschen
'Spalte 1/A nach X filtern
'Wechsel auf Blatt ContainerListe
'Springe von ausgewählter letzter Zelle 3 Spalten nach links (J3/10,3)
'Kopiere selektiete Zelle ( Y )
'Wechsel zu Blatt Gesamt Kopie
'Selektiere gesamte Zeile 2 & suche nach ( Y )
'Gefundene Zelle ist markiert.
'1 Zelle tiefer gehen
' "X" einfügen
'Nächste Zeile
Bisheriger Code
Sub Makro6()
' Makro 6 Notepad++ Test
'Variablen
Dim suche As Long
Dim suche2 As String
Dim rZelle As Range
Dim Zeile As Range 'Long
suche = 0
suche2 = 0
VarA = 100 ' Wiederholungen
Dim x
x = 0
'----------------------------------------------------------------------------------------------- _
'For Schleife für x = 1 bis Var A
While x