Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kleines Makro zum Sortieren und Kopieren

Forumthread: Kleines Makro zum Sortieren und Kopieren

Kleines Makro zum Sortieren und Kopieren
08.08.2024 12:48:43
Susanne
Guten Tag,

ich bräuchte bitte Hilfe zu einem kleinen Makro.
In der beigefügten Datei geht es darum, Zeilen zu duplizieren. Die entscheidenden Spalten sind Q und U.
Wenn in Q ein "Ja" steht, soll die Zeile so oft dupliziert werden, wie in der Spalte U angegeben ist. Also in dem Beispiel soll die Zeile dann insgesamt 5 Mal dastehen. Die Tabelle soll bis zum letzten Eintrag unten durchsucht werden (Anzahl Einträge bzw. Zeilen ist variabel). Alle Zeilen sollen dann untereinander stehen.
Wenn in Q ein "Nein" steht, soll nichts passieren (einfach stehenbleiben).

Die Beispielsdatei: https://www.herber.de/bbs/user/171542.xlsx

Geht mit etwas Makrokenntnissen sicher leicht, aber leider habe ich keine Ahnung :-(

Danke im Voraus für Hilfe.

Viele Grüße, Susanne
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleines Makro zum Sortieren und Kopieren
08.08.2024 13:53:33
ralf_b 
Sub Makro1()



    Dim i&,  lrow&



    With Worksheets("Tabelle1")

        lrow = .Cells(.Rows.Count, 1).End(xlUp).Row

        For i = lrow To 3 Step -1

            If UCase(.Cells(i, "Q")) = "JA" And .Cells(i, "U") > 0 Then

                .Rows(i).Copy

               .Rows(i).Resize(.Cells(i, "U") - 1).Insert Shift:=xlDown

            End If

        Next

    End With

End Sub
Anzeige
AW: Kleines Makro zum Sortieren und Kopieren
08.08.2024 15:31:19
GerdL
Hallo Susanne!

Probiere es mal so.

Sub Schuleislauf()


Dim i&, lrow&

With Worksheets("Tabelle1")
lrow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = lrow To 3 Step -1
If UCase(.Cells(i, "Q")) = "JA" And .Cells(i, "U") > 1 Then
.Rows(i).Copy
.Rows(i).Resize(.Cells(i, "U") - 1).Insert Shift:=xlDown
End If
Next
End With

End Sub

Gruß Gerd
Anzeige
AW: Kleines Makro zum Sortieren und Kopieren
12.08.2024 11:00:03
Susanne
Danke, ich habe erst mal die andere Variante abgeändert und es scheint jetzt durchzulaufen. Vielen Dank trotzdem für den Vorschlag.
AW: Kleines Makro zum Sortieren und Kopieren
08.08.2024 14:48:08
Susanne
Guten Tag und vielen Dank. Ich habe es in meine Datei integriert. In der kleinen Testdatei funktioniert es, aber jetzt mit viel mehr Zeilen bekomme ich Laufzeitfehler1004 Anwendungs- oder Objektorientierter Fehler. Was bedeutet das? Ich komme bis jetzt nicht dahinter, wo das Problem liegt :-(

Hier die Datei:
https://www.herber.de/bbs/user/171545.xlsm
Anzeige
AW: Kleines Makro zum Sortieren und Kopieren
08.08.2024 15:36:59
UweD
Hallo

ich denke, es muss hier >1 heißen 

If UCase(.Cells(i, "Q")) = "JA" And .Cells(i, "U") > 1 Then

Da sonst bei einer 1 bei dem 
.Resize(.Cells(i, "U") - 1)
Null rauskommt

LG UweD
AW: Kleines Makro zum Sortieren und Kopieren
12.08.2024 10:58:53
Susanne
Danke! Das wird es gewesen sein, scheint jetzt durchzulaufen. Vielen Dank für die Hilfe, erleichtert die Auswertung sehr.
Anzeige

Forumthreads zu verwandten Themen

Bis zu einem bestimmten Zeichen auslesen.
Michael Fuchs

Ich möchte aus einer Zweiten Tabelle ein Feld auslesen. Dies jedoch nur bis zu einem ";". Der auszulesende Teil beginnt am anfang des Feldes und endet beim semikolon. Wie ist dieses Problem zu lösen.
Ich bin für jede Hilfe Dankbar

26.06.2002 11:48:56
Thread-ID: 131510
3 Beiträge
trennen bis zum leerzeichen
börni
hi leute,

folgendes problem:

ich hab in einer spalte die anschriften stehen (zb teststraße 102A/3). ich will
die komplette hausnummer in einer eigenen spalte.
natürlich sind bei jeder adresse die hausnummern unterschiedlich lang, d.h. nur z.b. mit =rechts(a2;5) funktioniert...
26.09.2003 11:40:17
Thread-ID: 315629
15 Beiträge
Anzeige
Schreibschutz in Zelle bis zu einem best. Zeichen
Thomas

Hallo Forum!
Ich bin gespannt ob das was ich will möglich ist.
In meinem Sheet für die Projektentwicklung hab ich in der Spalte A Texte in den diversen Zeilen stehen.
zB Maklerhonorar
Ist es möglich, das Maklerhonorar in der Zelle zu sperren und nach dem Maklerhonorar die Zelle z...
21.07.2004 10:50:25
Thread-ID: 458397
2 Beiträge
Übernehmen bis zum Trennzeichen
Frank

Hallo Excelperten!
Ist es möglich, folgendes in UserForm zu realisieren? Beispiel: In Zelle A1 steht folgendes: "Peter, Müller, München, 96253" etc. Nun möchte ich die Werte gerne getrennt in Textboxen einer Userform übernehmen. Also in Textbox1 sollte Peter stehen, in Textbox2 Müller usw....
21.10.2004 15:12:33
Thread-ID: 504572
3 Beiträge
Kleine Schleife zum Kopieren
Karsten

Hallo Leute,
ich habe zu dieser frühen Stunde zwei Fragen.
Das Makro soll den Stammdatenbereich auffüllen, wenn rechts davon Zahlen eingetragen sind, also einfach runterkopieren. Manuell mache ich das mit dem Doppelklick unten rechts in der Markierung. Aufgenommen führt das zu:
Se...
04.09.2007 09:22:00
Thread-ID: 903434
2 Beiträge
Leerzellen nach Zelle darunter bis zu bestimmtem Zeichen
TheJamou
Moin,

ich habe folgendes Format in einer Liste wo Varianten unter Hauptartikel stehen.

Produktnummer
Leerzelle
aaaaa-bbb
aaaaa-ccc
Leerzelle
ddddd-eee
ddddd-fff

Nun würde ich gerne für eine relativ große Menge an Daten es hinbekommen, dass die Leer...
18.06.2024 14:13:49
Thread-ID: 1981575
6 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
wenn Wert in Zeile dann Spalte kopieren
Valeri

Hallo liebes Excelforum,
ich möchte von mappe1.xls alle Spalten ab Spalte C, in die mappe2.xls kopieren bei denen in der Zeile 1 oder 2 (sollte einstellbar sein) der Wert größer 0 ist. Die anderen Spalten sollen nicht mitkopiert werden.
Könnt ihr mir dabei helfen?
26.08.2011 19:40:08
Thread-ID: 1227663
5 Beiträge
Wenn dann Zellen kopieren
Bon

Hallo,
ich habe folgendes Problem:
Wenn eine Zahl in B82 bis B93 auftaucht, dann soll in B15 bis B27 nachgeschaut werden, ob die Zahl identisch ist.
Wenn ja, dann sollen die nächsten 4 Zeilen rechts davon kopiert werden (Zieltort:neben B82-B93)
Freue mich über jeden Vorschlag!
16.09.2012 15:30:13
Thread-ID: 1278830
4 Beiträge
Wenn Bedingung erfüllt, dann Zeile kopieren
mike

Hallo,
ich bräuchte ein VBA Macro, dass mir automatisch und sofort nach einer Eingabe folgendes macht:
In Tabelle 1 stehen in Spate C5:C100 Positionsnamen (Achtung es kann auch sein, dass in Zelle C5, C6 was steht und dann in C7 nichts aber dann in C8 wieder was steht) also mit Lücken!<...
21.03.2013 20:41:03
Thread-ID: 1305386
2 Beiträge
VBA wenn ausgelöst dann Zeichen in richtiger Zeile
Ronny
Hallo,
erstmal vielen Dank, dass es dieses Forum gibt. Es hat mir schon viel geholfen! Super macht Ihr das. Leider habe ich bei folgendem Problem keine Lösung gefunden:
Ich habe eine Excel Tabelle mit einem Tabellenblatt "Artikel" und einem Blatt "Kaufvertrag"
Im Blatt Artikel habe ich...
27.05.2014 14:36:32
Thread-ID: 1363669
3 Beiträge
VBA Wenn dann Zelle 5x kopieren in nächste Leere
Max

Hallo *,
ich würde mich freuen, wenn ihr mir weiterhelfen könnt.
Wenn in Zelle A1 beispielsweise etwas steht, dann würde ich gerne die Zellen A1,B1,D1,E1 und G1 auf ein neues Tabellenblatt kopieren. Aber nicht nur einmal, sondern 5x untereeinander.
In Zeile 2 meiner Tabelle steht na...
29.07.2014 08:57:02
Thread-ID: 1372823
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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