|
Hallo, an alle Experten da draußen!
Für meine Aufgabe habe ich eine fast perfekte Lösung im Web gefunden, für den Rest brauche ich bitte Eure Hilfe.
Sub fehlende_ergänzen()
Dim Bereich As Range
Dim Zelle As Range
Dim lngLR As Long
lngLR = Sheets("WG 6 ges.").Range("A" & Rows.Count).End(xlUp).Row
Set Bereich = Sheets("60").Range("A1").CurrentRegion.Columns(1)
For Each Zelle In Bereich.Cells
If WorksheetFunction.CountIf(Sheets("WG 6 ges.").Columns("A:A"), Zelle.Value) = 0 Then
zeile = zeile + 1
Sheets("WG 6 ges.").Range("A" & lngLR).Value = Zelle.Value
End If
Next
End Sub
Zwei Dinge müssen noch geändert werden:
Die zusätzliche Zeile soll nicht am Ende der Tabelle eingefügt werden, sondern nach Zeile 17.
und
Es müssen mehrerer Sheets durchsucht werden („WG 60“, „WG 61“, …).
Bei dem Prüfen dieser anderen Blätter „WG 60“, „WG 61“, etc. kann ein unbekannter Name mehrfach auftauchen, soll aber natürlich nur einmal auf dem Blatt „WG 6 ges.“ ergänzt werden.
Danke schon mal vorab
Tina
|