Benötige Hilfe bei Excel Macro

Lieber Claus,

hatte meinen fehler endeckt.

Vielen Danke für deinen support!! Bist immer eine Gute Hilfe!

Grüße

Hallo,

hier noch ein Nachtrag:

Wenn dein Suchbegriff nicht wie im Beispiel in der zweiten Spalte ist, musst du die Spalte im Code auch noch anpassen:

If varData(i, 2) = "West" Then

In der obigen Zeile musst du die 2 durch die entsprechende Spaltenzahl ersetzen.

Claus

Hallo Claus,

erstmals deine für deine Hilfe!

Könntest du mir den Anfang gegebenfalls genauer erklären. Du hast bestimmt recht mit deiner Lösung, nur für mich isses bissel unverständlich.

Was meinst du mit "lade die Daten in ein Array"... welche Daten??

Ich habe jetzt zwei Dateien erstellt.

Eine heißt "Wirtschaftliche Untersuchung" im xlsm Format, wo ich das Makro Uebertrag eingefügt hab und meine Daten sind in dieser Datei.

Die andere heißt "Neu" in xlsx Format und ist leer. Beide Dateien sind offen. Wenn den gesuchten begriff "West" durch meine Sachen ersetze passiert leider nichts.

Bräuchte leider mehr von deiner Hilfe

Hallo,

die Daten auf Blatt " Tabelle1" aus "Wirtschaftliche Untersuchung.xlsm" werden in das Array varData geschrieben. Dann wird dieses Array durchlaufen und wenn in der 2. Spalte des Arrays der Wert "West" ist, wird die komplette Zeile in die neue Mappe in Tabelle1
geschrieben.

Du musst nur den Namen der neuen Mappe und der Tabellenblätter anpassen.

Claus

Hallo,

lade die Daten in ein Array, durchlaufe das Array und schreibe die gesuchten Daten in die neue Tabelle. Im folgenden Code bin ich davon ausgegangen, dass du in der Quelltabelle schon den Code eingefügt und diese dann als .xlsm abgespeichert hast:

Sub Uebertrag()
Dim LRow As Long, i As Long, n As Long
Dim LCol As Integer
Dim varData As Variant
Dim wbkS As Workbook, wbkT As Workbook

Set wbkS = Workbooks("Wirtschaftliche Untersuchung.xlsm")
Set wbkT = Workbooks("Neu.xlsx")

With wbkS.Sheets("Tabelle1")
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
varData = .Range(.Cells(2, 1), .Cells(LRow, LCol))
End With
n = 2
With wbkT.Sheets("Tabelle1")
For i = LBound(varData) To UBound(varData)
If varData(i, 2) = "West" Then
.Cells(n, 1).Resize(, LCol) = Application.Index(varData, i)
n = n + 1
End If
Next
End With
End Sub

Claus