2k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo ihr Könner

Ich hoffe, mir kann hier jemand helfen ein Makro für Excel 2007 zu generieren. Das wäre toll!

Aus Tabelle1soll eine durch ein X in Spalte A gekennzeichnete komplette Zeile kopiert und in Zeile 2 der Tabelle2 eingefügt werden.
Wenn es möglich ist, dann sollte immer das zuletzt gesetzte X das sein, das in die 2. Zeile der Tabelle2 kopiert wird. Wenn das nicht möglich ist, darf es in A eben immer nur ein X geben. Das geht auch.

Schon jetzt vielen Dank für Hilfe.

3 Antworten

0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo,
den Code in Tabelle1 einfügen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Cells(Target.Row, Target.Column) = "X" Then
Sheets(2).Rows("2:2") = _
Sheets(1).Range("A" & Target.Row & ":IV" & Target.Row).Value2
End If
End Sub

Gruß
fedjo
0 Punkte
Beantwortet von
Hallo fedjo

Vielen Dank für deine Mühe.
Leider bin ich so wenig bewandert auf diesem Gebiet, dass es mir nicht gelingt, den Code einzubauen :-(
Hast du da noch einen Tippp für mich?

Beste Grüße aus Frankfurt am Main
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo,
hab dir eine Musterdatei erstellt.

Wenn du im Tabellenblatt1 ein X in die Zelle der Spalte A einträgst, wird die Zeile in das Tabellenblatt2 in die zweite Zeile eingetragen.

Gruß
fedjo
...