Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische Tabellenanpassung I

Forumthread: automatische Tabellenanpassung I

automatische Tabellenanpassung I
23.10.2019 11:36:45
Tobias
Hallo,
ich suche eine Automatisierung via Makro folgender (bisher händischer) Aktionen – wenn überhaupt möglich:
- finde in der Tabelle alle Zellen in der Spalte E, deren Inhalt mit der Zelle darüber identisch ist
- führe dann jeweils, für alle diese Zellen, folgende Aktion aus:
- Ausschneiden (nicht kopieren) des Inhalts dieser Zelle (in Spalte E) und Einfügen der Zwischenablage in die Zeile darüber in die Zelle in der Spalte F
LG, Tobias
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Tabellenanpassung I
23.10.2019 12:42:12
Klaus
Hallo Tobias,
Sub DoppelE()
Dim lRow As Long
Dim myRng As Range
With ActiveSheet
lRow = .Cells(.Rows.Count, 5).End(xlUp).Row
For Each myRng In .Range("E2:E" & lRow)
If myRng.Value = myRng.Offset(-1, 0).Value Then
myRng.Cut myRng.Offset(-1, 1)
End If
Next myRng
End With
End Sub
mfg,
Klaus M.
Anzeige
AW: automatische Tabellenanpassung I
23.10.2019 14:52:18
Tobias
Hallo Klar,
erstmal: Danke, deine Lösung funktioniert einwandfrei, ich habe aber einen Fehler in der Beschreibung gemacht und es trotz Herumprobieren nicht selber hinbekommen:
- finde in der Tabelle alle Zellen in der Spalte D, deren Inhalt mit der Zelle darüber identisch ist
- führe dann jeweils, für alle diese Zellen, folgende Aktion aus:
- Ausschneiden (nicht kopieren) des Inhalts der Zelle rechts neben dieser Zelle (in Spalte E) und Einfügen der Zwischenablage in die Zeile darüber in die Zelle in der Spalte F
Sorry und wäre schön, wenn Du nochmal draufschaust,
LG,
Tobias
Anzeige
AW: automatische Tabellenanpassung I
23.10.2019 15:05:32
Tobias
... muss natürlich heißen: „Hallo Klaus“
AW: automatische Tabellenanpassung I
23.10.2019 15:28:08
Rudi
Hallo, 
Sub DoppelE()
Dim myRng As Range
With ActiveSheet
For Each myRng In .Range(.Cells(2, 4), .Cells(Rows.Count, 4).End(xlUp))
If myRng = myRng.Offset(-1) Then
myRng.Offset(, 1).Cut myRng.Offset(-1, 2)
End If
Next myRng
End With
End Sub

Gruß
Rudi
Anzeige
AW: automatische Tabellenanpassung I
23.10.2019 15:38:27
Tobias
Perfekt! Vielen Dank, Tobias
;

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