Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.
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
AW: automatische Tabellenanpassung I
23.10.2019 15:38:27
Tobias
Perfekt! Vielen Dank, Tobias

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige