Zellen überschreiben mit dynamischen Zellen.
12.02.2015 08:53:13
Sepp
habe mal wieder ein kleines Problemchen. Habe mir einen Filter gebaut, welcher aus Liste 1 alle fettmarkierten Zellen in eine Liste 2 schreibt. Allerdings schreibt er mir beim erneuten ausführen des Filters die Werte doppelt rein, was er nicht soll.
Habe dazu noch eine Schleife, welche alle nicht fettmarkierten Zellen aus Liste 1, die aber schon in Liste 2 stehen gelöscht werden.
Hoffe da kann mir jemand helfen.
Public Sub filter()
'letzteZeile Spalte A und C
endeA = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
endeC = Worksheets(1).Cells(Rows.Count, 3).End(xlUp).Row
Dim Counter As Integer
Counter = endeC + 1
Dim bereichA As Range
Dim zelle As Range
Dim zelle2 As Range
Dim bereichC As Range
Set bereichA = Range(Cells(2, 1), Cells(endeA, 1))
Set bereichC = Range(Cells(2, 3), Cells(endeC, 3))
'Jede Fettgedruckte Zelle wird in C geschrieben
For Each zelle In bereichA
If zelle.Font.Bold = True Then
For Each zelle2 In bereichC
If zelle = zelle2 Then
Exit For
Else
zelle.Copy
Sheets(1).Cells(Counter, 3).PasteSpecial
Counter = Counter + 1
End If
Next
End If
Next
'falls nicht fette Zellen in C stehen, werden diese rausgelöscht
For Each zelle In bereichA
If zelle.Font.Bold = False Then
For Each zelle2 In bereichC
If zelle = zelle2 Then
zelle2.Delete
End If
Next
End If
Next
End Sub
Hier mal mein Beispiel .
https://www.herber.de/bbs/user/95695.xlsm
Gruß Sepp