Hallo,
ich hoffe jemand kann mir helfen. Ich möchte einzelne Zeilen eines Tabellenblattes "ZK" (entsprechende Reihen sind mit einem x in der Spalte markiert) in eine Ablagetabelle kopieren! Das funktioniert! Ich würde gerne das der letzte Ablagebeitrag ganz oben steht und nicht in die erste freie Zeile kopiert wird(also ganz unten in der Ablagetabelle): Es sollen also immer die aktuellsten zuletzt kopierten Zeilen oben stehen. Ich habe mit Hilfe des MAkros dies programmiert. Wenn ich nur eine Zeile aus dem Tabellenblatt ZK kopiere, dann klappt das auch. Sortiert schön als oberstes ein. Wenn ich aber mehrere Zeilen kopiere(auf einmal), dann wird zwar der erste Beitrag oben platziert, die erste Zeile wird frei gemacht (also die vorhandenen nAblagezeilen inder Ablagetabelle werden ausgeschnitten und eine Zeile darunter wieder eingefügt). So der Hacken, die zweite Zeile aus ZK wird aber ganz unten in die ABlagetabelle kopiert. Ich denke, dass lieggt am p = p + 1 !!! Leider habe ich keine Ahnung wie das hinbekommen könnte! Hoffe ihr habt ein paar gute Ideen oder Vorschläge! (aber die habt ihr ja eigentlich immer ;-) )Vielen DAnkim Voraus.
MFG Andreas
Dim g As Long, s As Long
If WorksheetFunction.CountIf([j4:j103], "x") = 0 Then
MsgBox "Wenn Sie ToDo´s in die Ablage verschieben möchten, dann markieren Sie die einzelnen ToDo-Zeilen mit einem X in der Spalte Ablage!!!", vbExclamation, "Bitte beachten Sie!"
Exit Sub
End If
For g = 4 To 103
If Sheets("UG").Cells(g, 10).Value Like "x" Then
Sheets("Ablage").Select
Sheets("Ablage").Range("A2:J5000").Select
Selection.Cut
Sheets("Ablage").Range("A3").Select
ActiveSheet.Paste
Do
p = p + 1
Loop Until IsEmpty(Sheets("Ablage").Cells(p, 7))
Rows(g).Copy Destination:=Sheets("Ablage").Cells(p, 1)
Rows(g).ClearContents
End If
Next g