Excel VBA, Kopieren bestimmter Zeilen in anderes Sheet?
Hallo, ich habe ein Sheet 1 mit X Zeilen. Ich möchte genau diejenigen Zeilen in ein neues Sheet 2 kopieren, die noch keinen Eintrag in der Spalte D haben. Das Ganze soll synconisiert geschehen, sprich, ich trage eine neue Zeile in Sheet 1 ein ohne Eintrag in Spalte D, dann kopiert er die Zeile gleich ins Sheet 2. Sobald etwas in Zeile D in Sheet 1 eingetragen wird, wird die Zeile in Sheet 2 wieder rausgelöscht. Hat jemand eine Idee wie ich das umsetzen kann? Freue mich über jede Hilfe!
1 Antwort
Das ist recht simpel.
Füge diesen Code im VBA-Projekt der auszuführenden Tabelle ein. (Bei mir Tabelle1.
Eventuell musst du im Code "Tabelle2" noch durch deinen Ziel-Tabellennamen ersetzen.
Rückmeldung erwünscht ;)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Target.Row
If Cells(i, 4).Value = "" Then
'Wenn D(4) leer ist, dann Zeile kopieren
Rows(i).Copy Worksheets("Tabelle2").Rows(i)
Else
'Wenn D(4) gefüllt ist, dann Zeile löschen
Worksheets("Tabelle2").Rows(i).ClearContents
End If
End Sub
Ja, du kopierst alles was im blauen Kasten ist mit.
Und ja, ich habe Tabelle 1 und 2 gleich wie du es willst.
Und wohin das soll hab ich doch geschrieben.
Nicht in ein modul oder so, sondern in das VBA-Projekt der Tabelle 1
Welche ist jetzt welche bei dir, bei mir funktioniert es nicht? Tabelle1 ist bei mir die wo etwas drin steht, und es soll in Tabelle2 kopiert werden. Wo muss jetzt der Code hin? Muss ich das Option Explicit mitkopieren?