Hallo
ich gehe davon aus, dass "in jeder Spalte wo ein "x. ,,," eigentlich Zeile gemeint ist, wirklich nur ein kleines "x" in der Zelle stehen darf, nicht etwas "X" oder "x" in einem Wort, du unter Tabelle ein Tabellenblatt verstehst, sich alle Tabellenblätter in einer einzigen Arbeitsmappe befinden und in K1 der Name des Zieltabellenblattes in der Form steht, wie er auf den umgekehrten Reitern links unten auf dem Excel-Bildschirm wiedergegeben ist. Dann sollte folgendes Makro dein Vorhaben erfüllen. Ansonsten kannst du es vielleicht selbst anpassen.
Set shK1 = Sheets(CStr(Cells(1, 11)))
a = shK1.Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Einnahmen").Activate
For i = 2 To Cells(Rows.Count, 11).End(xlUp).Row
If Cells(i, 11) = "x" Then
shK1.Cells(a, 2) = Cells(i, 2)
shK1.Cells(a, 3) = Cells(i, 3)
a = a + 1
End If
Next i
|