SVerweis mit mehreren Treffern per VBA
14.05.2017 18:59:31
Anja
ich möchte eine SVerweis mit mehreren Treffern per VBA machen. Es geht darum das aus einem Tabellenblatt Daten in ein anderes Tabellenblatt übertagen werden, wenn eine Bedingung erfüllt ist.
Ich habe dazu einen Code gefunden, den ich auf meine Bedingung angepasst habe. Das Makro überträgt alle Daten der Tabellenblätter Kasse und "RE_Buch" aus Spalte 27, wenn im Spalte 5 Geltransit steht, in das Tabellenblatt AuslesenGeldtransit
Das funktioniert soweit super, allerdings würde ich den Code gerne etwas erweitern, weiß aber nicht wie ich das machen soll. Alle Versuche haben nur Fehlermeldungen produziert.
Meine Wünsche:
Die Daten werden immer in die ersten Zeile (hier A1) der Reihe eingetragen, die ich im Code angebe. Ich möchte aber das die Daten z.B. ab der 6. Zeile eingetragen werden. (z.b. A6)
Es kann nur der Inhalt einer Spalte in das andere Tabellenblatt übertragen werden. ich würde gerne z.B. den Inhalt aus mehreren Spalten übertragen. (z.B. A-C;D;F-H)
Wäre es auch möglich, dass der Code mir auch Daten ausliest, wenn nur ein Teilstring in der Suchenzelle steht. Statt Geldtransit nur Geld?
Ich würde mich freuen, wenn mir jemand helfen könnte. Vielen Dank im Voraus!!!!!
Liebe Grüße
Anja
Der Code:
Private Sub CommandButton1_Click()
'####### Auslesen mehrere Tabellenblätter
Application.ScreenUpdating = False
Dim rngFund As Range, strAdr As String, strKdnr As String
Dim WsDaten As Worksheet, WsZiel As Worksheet, lngZeile As Long, i As Integer
'Spalten bitte anpassen
Const intSpKdnr As Integer = 5 'Spalte der Kundennummer