|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Inhalte vergleichen und neue Zeile einfügen |
28.11.2017 17:03:23 |
Tina Ewald |
|
|
|
29.11.2017 08:33:38 |
Gast23096 |
|
|
|
29.11.2017 12:08:44 |
Tina Ewald |
|
|
|
29.11.2017 13:31:43 |
Gast54662 |
|
|
|
29.11.2017 11:38:36 |
Codo |
|
|
Von:
Tina Ewald |
Datum:
28.11.2017 17:03:23 |
Views:
1623 |
Rating:
|
Antwort:
|
Thema:
Inhalte vergleichen und neue Zeile einfügen |
|
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Inhalte vergleichen und neue Zeile einfügen |
28.11.2017 17:03:23 |
Tina Ewald |
|
|
|
29.11.2017 08:33:38 |
Gast23096 |
|
|
|
29.11.2017 12:08:44 |
Tina Ewald |
|
|
|
29.11.2017 13:31:43 |
Gast54662 |
|
|
|
29.11.2017 11:38:36 |
Codo |
|
|