Zeilen in Excel kopieren, wenn sich der Wert ändert
Schritt-für-Schritt-Anleitung
Um in Excel Zeilen zu kopieren, wenn sich der Wert ändert, kannst du die folgenden Schritte befolgen:
-
Öffne dein Excel-Dokument und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
-
Wähle die Tabelle aus, in der du die Änderungen überwachen möchtest.
-
Füge den folgenden VBA-Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).Value = Target.Value
End If
End Sub
-
Schließe den VBA-Editor und kehre zu deiner Excel-Tabelle zurück.
-
Ändere den Wert in Zelle A1, um zu sehen, wie der neue Wert in Tabelle2 kopiert wird.
Wenn du die Werte nicht nur kopieren, sondern auch in Abhängigkeit von anderen Zellen (z.B. Spalte C) sortieren möchtest, kannst du den Code entsprechend anpassen.
Häufige Fehler und Lösungen
-
Makro funktioniert nicht: Stelle sicher, dass du den Code im richtigen Tabellenblatt eingefügt hast. Der Code muss im Codefenster der spezifischen Tabelle sein, die du überwachen möchtest.
-
Werte werden nicht kopiert, wenn sie aus einer Formel stammen: Wenn der Wert in Zelle A1 eine Formel ist, musst du den Code so anpassen, dass er auf das Ereignis "Calculate" reagiert, um die berechneten Werte zu kopieren.
Beispiel:
Private Sub Worksheet_Calculate()
If Tabelle1.Range("A1").Value <> Zellwert Then
Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).Value = Tabelle1.Range("A1").Value
End If
Zellwert = Tabelle1.Range("A1").Value
End Sub
Alternative Methoden
Eine weitere Methode besteht darin, die Funktion "WENN" in Excel zu verwenden, um neue Werte nur unter bestimmten Bedingungen zu kopieren. Hierbei kannst du Formeln verwenden, um den Status deiner Werte zu überwachen und diese dann in eine andere Tabelle zu übertragen, wenn eine bestimmte Bedingung erfüllt ist.
Praktische Beispiele
Hier ist ein praktisches Beispiel für das Kopieren von Werten in Abhängigkeit von einem Statuswert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Tabelle1.Range("C1").Value = "i.O." Then
Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).Value = Target.Value
ElseIf Tabelle1.Range("C1").Value = "N.i.O." Then
Tabelle3.Range("A" & (Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row) + 1).Value = Target.Value
End If
End If
End Sub
In diesem Beispiel wird der Wert aus A1 in Tabelle2 kopiert, wenn der Status in C1 "i.O." ist, andernfalls wird er in Tabelle3 kopiert.
Tipps für Profis
-
Verwende .PasteSpecial für das Kopieren von Werten: Wenn du sicherstellen möchtest, dass nur die Werte und nicht die Formeln kopiert werden, benutze .PasteSpecial Paste:=xlPasteValues.
-
Nutze Ereignisse effektiv: Wenn du komplexere Bedingungen hast, solltest du verschiedene Ereignisse wie Worksheet_Calculate oder Worksheet_Change kombinieren, um eine genauere Kontrolle über das Kopieren von Werten zu erhalten.
FAQ: Häufige Fragen
1. Wie kann ich sicherstellen, dass nur Berechnungen kopiert werden?
Um nur berechnete Werte zu kopieren, verwende den Calculate-Ereignis-Handler, der aktiviert wird, wenn Excel eine Neuberechnung durchführt.
2. Was kann ich tun, wenn ich mehrere Zellen überwachen möchte?
Du kannst die If-Bedingung erweitern, um mehrere Zellen zu überwachen, indem du die Adressen der Zellen in der If-Anweisung anpasst.
3. Wie kann ich die Werte kopieren, ohne die Formatierung zu übernehmen?
Nutze die Methode .PasteSpecial Paste:=xlPasteValues, um nur die Werte zu kopieren und die Zellenformatierung zu ignorieren.