EXCEL - VBA: Spalten kopieren, die bestimmten Wert in Spalte haben
Inhaltsverzeichnis
- Was ist die Aufgabe?
- Problem
- Lösungsweg
- Beispiel mit einer VBA-Prozedur
- Zusammenfassung
Was ist die Aufgabe?
Du möchtest Zeilen aus einer Quelltabelle kopieren, die in Spalte K mit einem "X" markiert sind, und diese Zeilen in eine neue Tabelle einfügen.
Problem
Die Quelltabelle enthält diverse Zeilen, aber nur jene, die in Spalte K ein "X" aufweisen, sind für dich relevant und sollen in eine andere Tabelle kopiert werden.
Loesungsweg {#lösungsweg}
Eine Möglichkeit, dies zu tun, ist die Verwendung von VBA (Visual Basic for Applications), um den gewünschten Filter und Kopiervorgang zu automatisieren.
Beispiel mit einer VBA-Prozedur
Hier ist ein VBA-Code, der genau das macht:
Sub KopiereMarkierteZeilen()
Dim QuellBlatt As Worksheet
Dim ZielBlatt As Worksheet
Dim LetzteZeile As Long
Dim i As Long
Dim ZielZeile As Long
'Definiere das Quell- und Zielblatt
Set QuellBlatt = ThisWorkbook.Sheets("Quelltabelle") 'Name des Quellblatts anpassen
Set ZielBlatt = ThisWorkbook.Sheets("NeueTabelle") 'Name des Zielblatts anpassen
'Ermittle die letzte Zeile im Quellblatt
LetzteZeile = QuellBlatt.Cells(QuellBlatt.Rows.Count, "K").End(xlUp).Row
'Startzeile im Zielblatt
ZielZeile = 1
'Durchlaufe alle Zeilen im Quellblatt
For i = 1 To LetzteZeile
'Wenn in Spalte K ein "X" steht
If QuellBlatt.Cells(i, 11).Value = "X" Then
'Kopiere die Zeile in das Zielblatt
QuellBlatt.Rows(i).EntireRow.Copy ZielBlatt.Rows(ZielZeile)
'Erhöhe die Zeile im Zielblatt für den nächsten Eintrag
ZielZeile = ZielZeile + 1
End If
Next i
'Aufräumen
Set QuellBlatt = Nothing
Set ZielBlatt = Nothing
End Sub
Bitte stelle sicher, dass du die Namen "Quelltabelle" und "NeueTabelle" im Code durch die tatsächlichen Namen deiner Tabellenblätter ersetzt. Führe dann den VBA-Code aus, um die Zeilen zu kopieren.
Zusammenfassung
Mit einem einfachen VBA-Script kannst du automatisch alle Zeilen, die in Spalte K ein "X" enthalten, von einem Tabellenblatt in ein anderes kopieren. Das obige Beispiel bietet einen schnellen und automatisierten Weg, dies zu tun. Stelle einfach sicher, dass du die Namen deiner Arbeitsblätter entsprechend anpasst. Viel Erfolg!