ich bin noch ganz neu hier, habe mich aber schon durch den ein oder anderen Beitrag gelesen. Ich denke ihr könnt mir bestimmt helfen.
Um es direkt auf den Punkt zu bringen, mein VBA Code ist "zusammengesucht" und angepasst.
Problem:
Ich habe eine Excel Tabelle mit 2 Tabellenblättern.
Im ersten Tabellenblatt werden alle anstehenden Montagen aufgeführt.
In Spalte Y trage ich ein "ü" ein wenn die Montage komplett abgeschlossen ist.
Folgendes soll dann passieren:
Ist die Montage abgeschlossen (in Spalte Y ein ü eingetragen), nehme die gesamte Zeile (z.B A2-Y2) und kopiere Sie auf das 2te Tabellenblatt in die erste komplett freie Zeile (z.B. A2-Y2).
Danach lösche die vorher kopierte gesamte Zeile vom 1 Tabellenblatt.
Mit folgendem Code klappt das bedingt auch schon ganz gut:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = ("25") Then 'Änderung in Spalte Y
If Target.Value "" Then
If MsgBox("Ist die Montage wirklich abgeschlossen?", vbYesNo, "Achtung!" _
) = vbYes Then
lrow = Sheets("Tabelle2").Range("E65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt
Range("A" & Target.Row & ":Y" & Target.Row).Cut Sheets("Tabelle2").Range("A" & lrow & ":Y" & _
lrow)
Else: Exit Sub
End If
End If
End If
End Sub
Steht jetzt in Spalte Y ein ü, dann wird die Zeile auf Blatt 2 kopiert und anschließend vom ersten Blatt "Montagen 2016" entfernt.
Und jetzt kommt mein Problem an dem ich mir seit 2 Tagen die Zähne ausbeiße.
1. Auf dem 2ten Tabellenblatt wird meine Historie immer überschrieben, wenn z.B. im ersten Tabellenblatt nur A2 gefüllt ist. Sind alle Zellen bis Y gefüllt, wird eine vernünftige Historie erstellt.
2. Er löscht mir zwar den Zelleninhalt auf Blatt 1, jedoch nicht die gesamte Zeile (Ich will keine Leerzeilen im 1ten Tabellenblatt)
Frage:
Was muss ich ändern, damit er mir auf dem 2ten Blatt eine immer fortlaufende Historie erstellt. Ohne das es ständig überschrieben wird.
Und, wie schaffe ich es das die gesamte Zeile ausgeschnitten wird vom Blatt 1 und nicht nur der Inhalt.
Eine Beispieldatei habe ich hochgeladen
https://www.herber.de/bbs/user/104663.xlsm
Auch dort tritt hoffentlich bei euch die Situation ein das wenn Zeile 3 -5 aufs 2te Blatt rüber geschoben wurden, ihr Leerzeilen habt und in dem Moment wo ihr die Zeilen 6-8 via dem Script verschiebt, er zumindest die Daten aus ehemals Zeile 5 überschreibt.
ich hoffe ich habs einigermaßen verständlich voreinander bekommen.
Falls ich etwas vergessen habe fragt bitte kurz nach. Ich werde schnellstmöglich antworten.
Danke für eure Unterstützung.