Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1684to1688
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren Zellen abhängig von Eintrag in Zelle

Kopieren Zellen abhängig von Eintrag in Zelle
17.04.2019 14:02:42
Eintrag
Hallo zusammen,
ich habe in einem Tabellenblatt 1 in meiner Spalte E Werte stehen, die in unregelmäßigen Abständen von einer leeren Zelle unterbrochen werden.
Sofern in der Spalte E (bspw. E2:E10, E12:E20) Werte stehen, soll das Makro die Werte der Zellen D2:D10, D12:D20 kopieren und in einem anderen Tabellenblatt 2 transponiert (also z. B. F2:M2, F3:M3) einfügen.
Das Makro soll solange die Spalte E in Tabellenblatt 1 auf Werte prüfen und entsprechend Spalte D kopieren, bis irgendwann zwei leere Zelle nacheinander in der Spalte E kommen.
Bisher schaffe ich es leider nur für den Abschnitt bis zur ersten leeren Zelle in der Spalte E.
Da die Tabelle variabel ist, kann ich dem Makro keine festen Zellenintervalle mitgeben.
Wie geht man hier am besten vor? Mit einer Schleife?
Ich bin dankbar über jede Hilfe! :-)
Liebe Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Areas
17.04.2019 14:18:53
Fennek
Hallo,
teste mal mit

Sub F_en()
For Each ar In ActiveSheet.Columns("E").SpecialCells(2).Areas
ar.Offset(, -1).Copy
Sheets(2).Range("F2").Offset(i).PasteSpecial Transpose:=True
i = i + 1
Next ar
End Sub
mfg
AW: Areas
17.04.2019 14:58:03
Xenia
Hallo Fennek,
ganz herzlichen Dank für deine schnelle Hilfe! Das funktioniert super!
Viele Grüße
AW: Areas
17.04.2019 15:58:10
Daniel
Hi - berücksichtigt die Lösung auch deine Bedingung, dass nur so lange kopiert werden soll, bis 2 leere Zeilen unter der Area gefunden werden? Dürfte eigentlich nicht der Fall sein. Dafür könntest du noch dies einfügen:
For Each ar In ActiveSheet.Columns("E").SpecialCells(2).Areas
If Cells(Ar.End(xlUp).Row + 2, 5) = "" And Ar.End(xlUp).Row > 1 Then Exit For
ar.Offset(, -1).Copy
Sheets(2).Range("F2").Offset(i).PasteSpecial Transpose:=True
i = i + 1
Next ar
Gruß
Daniel
Anzeige

301 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Inhalt einer Zelle aufteilen in Zellen untereinand
thorsten

Hallo,
bitte schaut Euch mal die Liste an
https://www.herber.de/bbs/user/56516.xls
Es geht darum, dass in einer Zelle mehrere email Adressen angegeben sind - getrennt durch ein Semikolon.
Gibt es eine Möglichkeit diese untereinander darzustellen - je eine Adresse in einer zelle...
05.11.2008 12:35:00
Thread-ID: 1021856
4 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
16
2
5
2
3
3
2
6
5
2
8
4
2
3
3
6
10
2
3
2
4
3
8
1