Den inhalt mehrer Zellen automatisch als Variabeln
10.07.2018 18:49:28
Andy
Bin neu hier und auch ein VBA Frischling.
Habe mehre Tabellenblätter.
Das Tabellenblatt "Database" dient als Quelle.
In dem Tabellenblatt "Criteria",
in der Spalte "B" stehen die Suchkriterien nach dem in der Spalte "F" des Tabellenbattes "Database" gesucht wird .
Sowie in der Spalte A der Name des Ziel Tabellenblattes.
Wenn also der Suchbegriff aus Spalte "B"-"Criteria" in der Spalte "F"-"Database" steht wird die ganze Zeile in das Tabellenblatt mit dem Namen der in "A"-"Criteria" steht Kopiert.
Das Klappt bis jetzt.
Hier der code :
Sub Daten_in_Unterdatenbanken_kopieren()
Dim variable As String
variable_1 = Worksheets("Criteria").Range("A3").Value
variable_2 = Worksheets("Criteria").Range("B3").Value
With Sheets("Database").UsedRange
.AutoFilter Field:=6, Criteria1:=variable_2
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets(variable_1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Database").UsedRange.AutoFilter
End Sub
Jetzt zu meinem Problem:
Mein Tabellenblatt"Criteria" hat natürlich nicht nur in "A3"-"B3" Suchkriterien stehen sondern in "A3-Ax"- "B3-B3x".
Natürlich kann ich alle Zeilen händisch als Variabeln eintragen aber das ist viel
zu fehler anfällig und zeit auf wendig.
Das ist bestimmt total simpel aber ich komme einfach nicht drauf.
Bitte helft mir