Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ab leere Zeile; Zeilen einfügen aus anderer Tabell

Ab leere Zeile; Zeilen einfügen aus anderer Tabell
29.08.2017 15:44:04
Rene
Hallo zusammen,
ich möchte gern ab der leeren Zeile in Spalte A --> ab A12 geht es los, bestimmte Zeilen aus Tabelle 3 kopieren und ab der leeren Zeile einfügen.
Anbei mal mein Code:
Private Sub CommandButton2_Click()
Dim Zelle As Range
Dim i As Long
i = 12
For Each Zelle In Sheets(3).Range("A12:A999")
If Zelle.Value  "" Then
Sheets(3).Rows("1:7").Copy
Sheets(3).Rows("1:7").Insert = Zelle.Value
i = i + 1
End If
Next
End Sub
Ich hoffe ihr könnt mir helfen.
lg
René

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ab leere Zeile; Zeilen einfügen aus anderer Tabell
29.08.2017 16:50:10
Hajo_Zi
Hallo Rene,
Sheets(3).Rows("1:7").Copy Zelle
würde ich vermuten.

Ab leere Zeile; Zeilen einfügen aus anderer Tabell
30.08.2017 08:46:01
Rene
Hallo Hajo,
leider funktioniert es nicht.
Er fügt ab A1 schon Zellen ein aber er soll ja nur Spalte A12 bis A999 suchen und wenn z.Bsp.: wenn ab A43 leer ist, füge die Zeilen aus Tabelle 2 in Tabelle 1 ein.
lg
AW: Ab leere Zeile; Zeilen einfügen aus anderer Tabell
30.08.2017 09:45:41
Werner
Hallo Rene,
meinst du so? 
Public Sub ddd()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Sheets(3)
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Rows("1:7").Copy
.Cells(loLetzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
Ab leere Zeile; Zeilen einfügen aus anderer Tabell
30.08.2017 09:55:00
Rene
Hallo Werner,
schon richtig
aber leider hab ich mich selber in meinen Programmcode vertan,
Ich möchte aus Sheets(3) Zeile 1 bis 7 kopieren und in Sheets(1)letzte Zeile.
Wie muss ich deine Code anpassen, dass er dann von Sheets(1) auf die (3) springt dort Zeile 1 bis 7 kopiert und in die Letzte Zeile einfügt.
lg
Ab leere Zeile; Zeilen einfügen aus anderer Tabell
30.08.2017 09:57:17
Rene
Hallo Werner,
anbei mal mein Code.
Private Sub CommandButton2_Click()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Sheets(1)
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Sheets(3).Rows("1:7").Copy
Sheets(1).Cells(loLetzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Ab leere Zeile; Zeilen einfügen aus anderer Tabell
30.08.2017 09:58:39
Werner
Hallo Rene,
Public Sub ddd()
Dim loLetzte As Long
Application.ScreenUpdating = False
loLetzte = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets(3)
.Rows("1:7").Copy
Sheets(1).Cells(loLetzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
Ab leere Zeile; Zeilen einfügen aus anderer Tabell
30.08.2017 10:09:32
Rene
Supi Danke
funktioniert!!!
lg
René
Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2017 10:11:59
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2017 10:14:18
Rene
Okay leider zu früh gefreut :(
Er fügt Zeile 1 bis 7 ein aber nicht die Zeilen die ich möchte. Ich schicke mal die Datei.
https://www.herber.de/bbs/user/115877.xlsm
lg
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2017 10:16:17
Werner
Hallo Rene,
ich habe mich da an deinen Beispielcode gehalten und dort hast du die Zeilen 1-7 aus dem Blatt3 kopiert.
Vielleicht beschreibst du mal etwas genauer, was du eigentlich möchtest. Deine Beispielmappe kann ich mir im Moment nicht herunterladen, kann hier aktuell keine .xlsm downloaden.
Gruß Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2017 10:28:55
Rene
Okay Verzeihung.
ich habe eine Tabelle die heißt Projektplan, dort habe ich bestimmte "Blöcke" nun möchte ich gern aus Tabelle2 (so der Name) gern die Zeile 1 bis 7 kopieren. Er kopiert es auch aber halt nicht korrekt. Anbei mal paar Bilder.
Ich hoffe ich kann dir damit weiterhelfen, wenn ich kopiere, füllt er nur Spalte H.
Die Formeln kopiert er leider nicht mit.
Userbild
Userbild
Userbild
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2017 10:33:41
Rene
Hab es gefunden, lag an der Einstellung des Einfügen.
Private Sub CommandButton2_Click()
Dim loLetzte As Long
Application.ScreenUpdating = False
loLetzte = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets(3)
.Rows("1:7").Copy
Sheets(1).Cells(loLetzte, 1).PasteSpecial Operation:=xlPasteSpecialOperationAdd
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub

Vielen Dank Werner :D
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2017 10:44:59
Werner
Hallo Rene,
dann einfach ohne PasteSpecial 
Public Sub ddd()
Dim loLetzte As Long
Application.ScreenUpdating = False
loLetzte = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets(3)
.Rows("1:7").Copy Sheets(1).Cells(loLetzte, 1)
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige

308 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Anzeige
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Einfügen Zellen VBA
Hugo

Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
...
12.12.2009 15:34:31
Thread-ID: 1123484
3 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
makro (NEUE Zeile)immer a.Ende
Penelope

Hallo,
hoffe sehr auf Hilfe . Habe ein Makro, das mir eine neue Zeile erzeugt mit Formaten und Formeln aber leider immer an derselben Stelle. Wie könnte ich es schreiben, dass es immer eine neue Zeile unten anfügt , unter der letzten neuen Zeile? Vielleicht eine Schleife, aber wie verbinden?...
10.04.2002 22:38:34
Thread-ID: 112272
11 Beiträge
checkbox in leere zeile einfügen
tatü

Hallo Forum.
Ich möchte in eine Tabelle unter die letzte beschriebene Zeile in der "B" Spalte eine Checkbox einfügen.
Die Checkbox soll in Zeile "A" stehen.
Unten stehenden Code habe ich schon gefunden. Das Makro fügt aber immer in einer festen Zeile, hier die Zeile 6 eine neue Ze...
16.02.2010 19:15:43
Thread-ID: 1139028
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
1
1
2
5
2
2
3
10
3
1
2
3
4
2
5
2
5
2
1
4
2
2
9
16