|
Hallo,
Meine Tabelle hat folgenden Aufbau:
D.h. die Tabellenüberschriften befinden sich in Zeile 8.
|
|
A |
B |
C |
D |
E |
F |
G |
|
1 |
|
|
|
|
|
|
|
|
2 |
|
|
|
|
|
|
|
|
3 |
|
|
|
|
|
|
|
|
4 |
|
|
|
|
|
|
|
|
5 |
|
|
|
|
|
|
|
|
6 |
|
|
|
|
|
|
|
|
7 |
|
|
|
|
|
|
|
|
8 |
|
NR. |
THEMA |
AUFGABE |
TERMIN |
ERLEDIGEN AM |
STATUS |
|
|
|
1 |
blabla |
.... |
|
|
erledigt |
|
|
|
2 |
blabla2 |
.... |
|
|
offen |
|
|
|
3 |
blabla3 |
.... |
|
|
offen |
Ich möchte nun, dass eine Zeile, wenn in die Statusspalte G "erledigt" eingegeben wird automatisch aus dem Tabelellenblatt "BGM" in ein anderes Tabellenblatt "BGM_erledigt" verschoben wird und aus der ursprünglichen Tabelle gelöscht wird.
Mit folgendem VBA-Code klappt das zwar:
1 2 3 4 5 6 7 8 9 10 11 | Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Long
Set Target = Intersect(Target, Range("G1:G1000"))
If Target Is Nothing Then Exit Sub
If Target = "erledigt" Then
B = Target.Row
Range(Cells(B, 3), Cells(B, 7)).Copy _
Destination:=Sheets("BGM_erledigt").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub
|
Aber leider wird nicht die komplette Zeile sondern nur die Spalten C-G (Thema, Aufgabe, Termin, erledigen am, Status) verschoben.
Die Spalten A (frei) und B (Nr.) werden nicht mitverschoben!
Wie kann ich das ändern?
Ich suche schon seit Stunden nach ner Lösung (kenn mich leider auch absolut null mit so Code-Zeug aus) und bin über Hilfe sehr dankbar..
Wer kann mir weiterhelfen?
Lg Mel
|