Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro doppelte Werte - leere Zellen

Forumthread: Makro doppelte Werte - leere Zellen

Makro doppelte Werte - leere Zellen
14.07.2016 17:23:29
hammsi
Liebe Ex(cel)perten!
Langsam bin ich süchtig nach diesem Forum. Sicher könnt ihr auch diesmal helfen. Nachfolgend eine Problemstellung, wo untereinander stehende Duplikate so eliminiert werden müssten, dass bloß immer der oberste Begriff stehen bleibt. Wenn ihr das Musterfile öffnet, wird schnell klar, worum's genau geht(Tab 1 soll nachher aussehen wie Tab 2). Vermutlich ist das über ein Makro machbar, doch zählen diese neben Altgriechisch und Poweryoga definitiv nicht zu meinen Stärken ;(
https://www.herber.de/bbs/user/107018.xlsx
Der Vollständigket möchte ich noch ergänzen, dass die Zeilenabstände (= Anzahl an Produkten pro Kunde) immer gleich ist, wobei das Optimum natürlich eine Variante wäre, die sich bloß auf die Werte stützt.
1000Dank again und lg,
Hammsi

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro doppelte Werte - leere Zellen
14.07.2016 17:27:17
Hajo_Zi
warum nicht einfach Daten, Datentools, Duplikate entfernen?

AW: Makro doppelte Werte - leere Zellen
14.07.2016 17:42:31
hammsi
Danke für die Nachricht! Soweit ich das Duplikate-Entfernen-Tool kenne bleiben die Werte dann halt nicht mehr auf Position, auf der ich sie brauche. Die dürfte sich nicht verändern. Also zumindest, wenn ich die Spalte markiere und das Duplikate-entfernen-Tool anwende. Pls help!
Anzeige
AW: Makro doppelte Werte - leere Zellen
14.07.2016 19:59:53
Werner
Hallo,
probier mal folgenden Code an einer Kopie deiner Datei aus. Der Code ist nicht getestet. Ich habe gerade keinen Computer parat und habe den Code auf einem Tablet geschrieben. Bin also nicht sicher ob es passt.
Wenn es klappt, dann werden zunächst im Blatt 2 die Daten gelöscht, dann die Daten von Blatt 1 nach Blatt 2 kopiert und dann die mehrfachen Einträge in Spalte A und Spalte B entfernt.
Sub Hammsi()
Dim loLetzte As Long
Dim Bereich As Range
Dim Zelle As Range
Sheets("Tabelle2").Cells.ClearContents
Sheets("Tabelle1").Cells.Copy Sheets("Tabelle2").Cells(1, 1)
loLetzte = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Tabelle2")
Set Bereich = .Range(.Cells(2, 1), .Cells(loLetzte, 1))
For Each Zelle In Bereich
If Zelle.Value = Zelle.Offset(1, 0).Value Then
Zelle.Offset(1, 0).Resize(0, 1).ClearContents
End If
Next Zelle
End With
End Sub
Gruß Werner
Anzeige
AW: Makro doppelte Werte - leere Zellen
14.07.2016 20:07:26
Werner
Hallo,
vergiss es. Bin einem Denkfehler aufgesessen, wird so nicht gehen.
Gruß Werner
AW: Makro doppelte Werte - leere Zellen
15.07.2016 09:36:39
hammsi
Schade, aber vielen Dank für deine Bemühungen, Werner! Ein kurzer Schimmer der Hoffnung ist immerhin besser als gar keiner ;)
AW: Makro doppelte Werte - leere Zellen
14.07.2016 20:23:32
Daniel
Hi
ohne code so:
1. in einer Hilfsspalte am Tabellenende ab der Zeile 2 folgende Formel eintragen und bis zum Datenende runterziehen.
=Wenn(A2=A1;1;"")

2. mit dem autofilter nach 1 filtern und in den Spalten A und B die Inhalte löschen.
3. Filter aufheben und Hilfspalte leeren.
sieht als code so aus (hier werden die Zeilen nicht per autofilter, sondern über Gehe zu - Inhalte ausgewählt)
With ActiveSheet.Usedrange
With .Columns(.Columns.count).Resize(.Rows.Count - 1).Offset(1, 1)
.formulaR1C1 = "=IF(RC1=R[-1]C1,1,"""")"
Intersect(.SpecialCells(xlcelltypeformulas, 1).EntireRow, Range("A:B")).ClearContents
.ClearContents
end with
End with
so eine Liste ist aber höchst unpraktisch, weil du sie nicht mehr sortieren, filtern und auswerten kannst.
Wenns nur um die Optik geht, würde ich in den betroffenen Zellen die Schriftfarbe auf Weiss setzen, dann kannst du mit der Tabelle ohne Einschränkung weiter arbeiten.
für die Bedingte Formatierung müsstest du so vorgehen:
Markiere die Zellen in Spalte A und B ab Zeile 2 (also ohne die Überschrift) und füge eine Bedingte Formatierung mit dieser Formel als Regel für die schriftfarbe Weiss ein (die Zelle A2 muss die aktive Zelle sein)
=$A2=$A1
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Zählen nichtleerer Zellen
Stefan

Hallo zusammen,
ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
04.11.2008 08:20:00
Thread-ID: 1021461
3 Beiträge
Anzeige
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Letzte Leere Zelle in Spalte C
Wacker

Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
Bin bereits hier bei Zelle C4500.
Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
Und dann benötige ich noch für diverse Berechnungen, die Forme...
07.12.2008 22:23:00
Thread-ID: 1030940
9 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Anzeige
Kann leere Zelle nicht anwählen
Enzo

Hallo Zusammen
Von einer UF über CommandButton möchte ich auf das Blatt NBListe auf Zelle A1 öffnen.
Das heißt ich möchte beim Betätigen des Commbutton auf das Blatt kommen.
In der Zelle A1 steht nichts. Sobald ich eine beschriebene Zelle ansteuere geht es.
Warum kann ich nicht...
12.01.2009 20:46:00
Thread-ID: 1039016
4 Beiträge
Letzte Zelle finden
Gerhard

Hallo!
Hab eine Beispieldatei von meinen Problem gemacht. Wie bringe ich das hin dass die leere Formel ignoriert wird?
https://www.herber.de/bbs/user/58405.xls
Bitte um Hilfe
Gerhrd
14.01.2009 21:49:00
Thread-ID: 1039825
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige