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

Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile

Forumthread: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile

Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 09:44:02
PTom
Hallo zusammen!

Habe ein Makro mit dessen Hilfe ich in einem Tabellenblatt jede nicht leere Zeile unter die vorhergehende kopieren kann.
Nun benötige ich aber nicht alle Inhalte der Zeile, sondern nur die Inhalte der Zellen der Reihe A-L.

Hier mein bisheriges Makro:

Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Rows(i).Copy
Rows(i + 1).Insert shift:=xlDown
Rows(i + 1).Font.Color = -4165632
Rows(i + 1).Font.Size = 7.5
Rows(i + 1).Font.Italic = True
Rows(i + 1).RowHeight = 21
Next


Vielen Dank
Thomas
Anzeige
Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 09:50:08
PTom
Wenn als "zusätzliches Feature" die Möglichkeit besteht, dass nur Zeilen kopiert werden, in denen die Spalte B nicht leer ist, wäre das optimal... :)
AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 13:29:51
Piet
Hallo

so sollte es klappen, bei mir funktioniert es. Die With Klammer vereinfacht die Schreibweise der Syntac.

mfg Piet 



For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

If Cells(i, 2) > "" Then

   With Cells(i, 1).Resize(1, 10)

        .Copy  'Spalten A-L kopieren

        .Offset(1, 0).Insert shift:=xlDown

        .Offset(1, 0).Font.Color = -4165632

        .Offset(1, 0).Font.Size = 7.5

        .Offset(1, 0).Font.Italic = True

        .Offset(1, 0).RowHeight = 21

   End With

End If

Next
Anzeige
AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 13:55:49
Piet
Hallo

stimmt, da habe ich was übersehen, auf ein neues. Probiere es bitte so.

mfg Piet 



For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

If Cells(i, 2) > "" Then

   Rows(i).Copy

   Rows(i + 1).Insert shift:=xlDown

   Rows(i + 1).Clear  'Clr neue Zeile

   With Cells(i, 1).Resize(1, 10)

        .Copy   'Spalte A-L kopieren

        .Offset(1, 0).Insert shift:=xlDown

        .Offset(1, 0).Font.Color = -4165632

        .Offset(1, 0).Font.Size = 7.5

        .Offset(1, 0).Font.Italic = True

        .Offset(1, 0).RowHeight = 21

   End With

End If

Next
Anzeige
AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 14:14:12
PTom
Nochmals danke, aber...

- es wird nach der kopierten Zeile eine weitere leere erzeugt
- ab "K" werden der "ursprüngliche Zellinhalt" um 1 Zeile nach oben verschoben
- die angedachte Formatierung der neu kopierten Zellen wird somit überschrieben

AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 14:38:56
PTom
Das Problem scheint beim Einfügen der "leeren Zeile" zu sein.
Dadurch wandert der Bereich ab "K" eine Zeile über die ursprüngliche Position.
Die "geplant" kopierte Zeile wird offensichtlich auch nicht wie gewünscht formatiert.

Anzeige
AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 14:57:50
PTom
Habe ein wenig herumgebastelt...

Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 6) > "" Then
Rows(i).Copy
Rows(i + 1).Insert shift:=xlDown
Rows(i + 1).Font.Color = -4165632
Rows(i + 1).Font.Size = 7.5
Rows(i + 1).Font.Italic = True
Rows(i + 1).RowHeight = 21
End If
Next

Zu meinem "Glück" fehlt mir einzig, dass die Inhalte ab "L" quasi gelöscht werden.
Wenn du mir hilfst, wie ich den Bereich "L-Z" definiere, so würde das ausreichen.
Anzeige
AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 16:01:41
Piet
Hallo

Sorry, da war heute bei dir wohl nicht mein Tag?? Was solls, auf ein neues! Wäre doch gelacht, wenn wir das nicht schaffen.
Range(Cells(i + 1), "L", Cells(i + 1), "Z").ClearContents

mfg Piet

AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
17.06.2024 11:08:34
PTom
Got It !


Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 2) > "" Then
Rows(i).Copy
Rows(i + 1).Insert shift:=xlDown
Rows(i + 1).Font.Color = -4165632
Rows(i + 1).Font.Size = 7.5
Rows(i + 1).Font.Italic = True
Rows(i + 1).RowHeight = 21
Range(Cells(i + 1, 17), Cells(i + 1, 34)).ClearContents
End If
Next

Danke
Anzeige
AW: Teil von Zeilen kopieren bis zur letzten nicht leeren Zeile
14.06.2024 13:41:04
PTom
Hallo Piet!

Funktioniert soweit, dass nur die gewünschten Zeilen & Inhalte kopiert werden.
Allerdings "wandern" alle Inhalte ab "L" um eine Zeile nach oben - und dabei auch in die zuvor kopierten Zeilen. Der Bereich sollte aber leer bleiben...

:)
Tom

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
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
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Leere und Nichtleere Zellen einer Spalte rechnen
Urmila

Hallo,
habe ien Problem, ich habe eine Liste, in Spalte A stehen Werte (Zahlen), in der Spalte B stehen Namen.
Nun will ich, dass er mir in der Zelle D1 alle Werte aus spalte A ausrechnet, wo die Zellen in Spalte B Inhalte haben, und in Zelle E1 wo kein Inhalt steht.
Ich hoffe ich k...
30.06.2009 12:41:41
Thread-ID: 1085323
4 Beiträge
Anzeige
Trotz Clear/Clearcontents Zellen nicht leer?
Andre

Hallo liebe Excel-Gemeinde!
Ich habe folgendes Problem:
In ein Tabellenblatt lasse ich per Makro und Spezialfilter eine Liste einfügen. Hierfür habe ich den Bereich A2:N1001 eingeplant. In Zeile 1 stehen die Überschriften, in O1:Q43 noch eine kleine Tabelle, welche Zahlen berechnet, die...
03.09.2014 13:24:42
Thread-ID: 1379718
7 Beiträge
Anzeige
Zelle rot wenn darunterliegenden Zellen NICHT leer
Janine

Hilfe!
Meine Spalte 'Pool Availability' soll sich pro Zelle rot färben wenn alle darunterliegenden Zellen einen Wert enthalten. Sobald aber eine der darunterliegenden Zellen frei ist soll sich die 'Pool Availability'-Zelle wieder grün färben, bzw entfärben (grün kann ich die ja immer noch s...
30.06.2015 08:16:09
Thread-ID: 1433959
2 Beiträge
Zeile prüfen, ob mehrere Zellen nicht Leer sind
Kai

Hallo ,
ich prüfe mit einer Schleife ob in Spalte B "999999" steht und Spalte C Leer, dann soll C rot markiert werden.
Das gleiche dann auch für D ...
If Range("B" & lngZeile) = "999999" And Range("C" & lngZeile) = "" Then
Range("C" & lngZeile).Interior.ColorIndex =...
06.07.2016 16:57:09
Thread-ID: 1502991
3 Beiträge
Zellen in Spalten kopieren wenn diese nicht leer s
Gerd

Hallo, ich habe folgende Tabelle:

ABBA 1
Air Supply
Fleedwood MA 1
Genesis
Queen 1
Leider wird das hier nicht richtig wieder gegeben. Die Gruppennamen stehen in Spalte A1 bis A5. Die Kennzeichnung kommt dann in B1 bis B5
Durch ein Formular ka...
25.01.2019 11:33:38
Thread-ID: 1670845
9 Beiträge
Anzeige
zeilen nicht ausdrucken bei leerem feld
S P I R I T

kann ich eine ganze excel-zeile (den inhalt) unsichtbar machen , wenn ich ein bestimmtes feld in der zeile nicht ausfülle
09.01.2003 21:56:58
Thread-ID: 201334
4 Beiträge
Leere Zeilen sind nicht leer
Michael

Hallo, liebe Excel-Freunde,
habe folgendes Problem:
In meiner Tabelle stehen in jeder Zeile irgendwelche Formeln.
Aber nicht alle produzieren sichtbare Werte. Einige Zeilen bleiben beim Blick auf die Tabelle leer. Durch anschließendes kopieren und Werte einfügen auf der ganzen Tabelle...
27.03.2003 16:20:57
Thread-ID: 237327
12 Beiträge
Zellen sind nicht leer da eine Formel darin steh!
Newbe
Ich habe von Boris folgenden Code erhalten

Sub druckena() Dim Ws As Worksheet, Lz As Long Set Ws = Worksheets("Auswertung") Lz = Ws.Range("A65536").End(xlUp).Row With Ws .PageSetup.Zoom = False .PageSetup.FitToPagesWide = 1 .PageSetup.FitToPagesTall = False .PageSetup.PrintArea = "A4:G" &...
08.12.2003 14:46:49
Thread-ID: 349017
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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