|
Hallo Zusammen.
Ich habe gerade neu VBA entdeckt und möchte gerne für eine Tabelle etwas basteln.
Was ich bereits habe: Wenn in der Tabelle in Tabellenblatt 1 ein bestimmter Wert ist (z.B.. "X"), dann soll die ganze Zeile in Tabellenblatt 2 kopiert werden, bei Wert Y in Tabellenblatt 3 etc.
Die Formel:
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "X" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Dies funktioniert auch ohne Probleme.
Jetzt zu meinen Problemen
1. Ich möchte gerne, dass die Überschriften aus Tabellenblatt 1 in die anderen Tabellenblätter kopiert werden. Wie ist das möglich?
2. Diese Tabelle wird oft aktualisiert und deswegen möchte ich, dass wenn man in Tabellenblatt 1 eine neue Zeile einfüllt, diese automatisch in Tabellenblatt 2, 3, 4 oder 5 kopiert wird. Wie ist das möglich?
Danke und liebe Grüsse
Office 2016, Windows 10
|