Office: Kopieren mit VBA bei flexiblen Kriterium

Hallo Zusammen,
nach googlen und durchforsten von 2 Büchern bin ich am Rande der Verzweiflung und hab die Hoffnung, dass mir hier jemand weiter helfen kann.
Es geht darum, bei bestimmten Bedingungen per VBA zu kopieren.

In Blatt1 ist entweder in C19,20,21,22 ein x. In D19,20,21,22 stehen Auswahlkriterien, die flexibel sind (per DropDown).
Wenn in C19 ein x steht, soll das Auswahlkriterium aus D19 übernommen werden.
Dann soll in Blatt2 in der Spalte B nach dem Auswahlkriterium gesucht werden und die Spalten B:AF kopiert werden, wenn in Spalte B das Auswahlkriterium steht.
Das Kopierte soll dann in Blatt3 ab Zelle B5 eingefügt werden (das ist kein Problem).

Wenn in C19 kein x steht, soll in C20 geschaut werden. Der Prozess,der dann folgt, ist fast analog (bis auf eine Änderung *)
Wenn in C20 ein x steht, soll das Auswahlkriterium aus D20 übernommen werden.
Dann soll in Blatt2 in der Spalte C* nach dem Auswahlkriterium gesucht werden und die Spalten B:AF kopiert werden, wenn in Spalte C* das Auswahlkriterium steht.
Das Kopierte soll dann in Blatt3 ab Zelle B5 eingefügt werden

Für C21 und C22 soll der Vorgang analog verlaufen (bei C21 soll in Spalte G gesucht werden, bei C22 in Spalte D)

Wenn weder in C19,20,21,22 kein x steht, soll eine MsgBox eingeblendet werden, aber das ist kein Problem ;-))

Vielleicht hat hier jemand eine Idee bzw. kann mir weiterhelfen oder auf andere Hilfe verweisen.
Vielen Dank und viele Grüße
Anna

 

Hi Anna,

wie soll der Code denn ausgeführt werden - jeweils bei Eingabe von x in C19, C20, C21, C22 oder in einer Schleife über diese 4 Zellen (z.B. mit einem Button)?

Bis später,
Karin

 

Hallo Karin,
der Code soll ausgeführt werden, wenn ein Button geklickt wird.
Was auch noch wichtig ist, ist, dass der komplette Zellinhalt mit Formatierung kopiert wird.
Das ist mir gerade noch aufgefallen, als ich an "Schnipseln" gearbeitet hab.
Viele Grüße
Anna

 

Hi Anna,

also so richtig ist mir dein System nicht klar, deshalb hier ein Code wie ich die Aufgabenstellung interpretiert habe:

Code:

Sub Kopieren()
   Dim lngZeile As Long
   Dim lngLetzte As Long
   Dim rngSuche As Range
   Dim arrSpalte()
   arrSpalte = Array(2, 3, 7, 3) '<== Spaltennummern in denen gesucht werden soll: B, C, G, D
   For lngZeile = 19 To 22
      If Cells(lngZeile, 3) = "x" Then
         ' suche Bedingung aus Spalte C in Tabelle2 in der im Array festgelegten Spalte
         Set rngSuche = Worksheets("Tabelle2").Columns(arrSpalte(lngZeile - 19)).Find(Cells(lngZeile, 4), lookat:=xlWhole, LookIn:=xlValues)
         ' Bedingung wurde gefunden
         If Not rngSuche Is Nothing Then
            With Worksheets("Tabelle3")
               ' Zeile der letzten belegte n Zelle in Spalte B
               lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
               ' Bereich B:AF aus gefundener Zelle in erste freie Zeile kopieren
               Worksheets("Tabelle2").Range("B" & rngSuche.Row & ":AF" & rngSuche.Row).Copy .Cells(lngLetzte + 1, 2)
            End With
         End If
      End If
   Next lngZeile
   Set rngSuche = Nothing
End Sub

Bis später,
Karin

 

Hallo Karin,
zur Veranschaulichung ein paar Bilder:
Dies ist der Auswahlbereich in Tabelle1:



Dabei sind in D19-D22 jeweils DropDowns, dh das, was in den Zellen steht ist flexibel.
In der Suche soll allerdings nur nach dem Kriterium gesucht werden, wo ein x in C steht.

Dann soll in Tabelle 2. nach Zellen mit dem "Kriterium" gesucht werden.

Wenn in C19 das x Steht, soll in Spalte B gesucht werden,
wenn in C20 das x steht, in Spalte C
wenn in C21 das x steht, in Spalte G
und wenn in C22 das x steht in Spalte D

Dann sollen für alle gefundenen Zellen, die kompletten Zeilen in Tabelle3 eingefügt werden (am besten mit gleicher Formatierung)

Ich hoffe, die erklärung bringt etwas!
Vielen lieben Dank schon einmal
Anna

 

Hi Anna,

dann ist der Code vom Prinzip her also erst mal richtig (mit der Korrekttur, dass im Array anstelle der letzten 3 eine 4 für Spalte D stehen muss)? Hast du ihn schon mal getestet?

Kommt das Kriterium aus Spalte B in den Such-Spalten mehrmals vor oder nur einmalig? Ich bin davon ausgegangen, dass jedes Kriterium nur einmalig vorkommt, da dies nicht so eindeutig aus deinen Beiträgen hervorgeht - "für alle gefundenen Zellen" kann sich auf Spalte B der Tabelle1 beziehen oder auf die Such-Spalten in Tabelle2. Für einen Außenstehenden, der die konkrete Arbeitsmappe nicht kennt, sind halt mehrfach auslegbare Beschreibungen Gift. :p



Bis später,
Karin

 

Ja da hast du Recht und ich habe daran nicht gedacht.
Das Kriterium kommt mehrfach vor, deshalb hat es nicht so geklappt, wie ich es vorhatte.
Aber ich hab jetzt eine "einfachere" Lösung in dem ich keine "x" setzen lasse, sondern in C19-22 einen Button eingefügt hab, der dann das entsprechende Makro auslöst ;-)
Vielen lieben Dank
Anna