Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA erste leere Zeile - Übertragen

VBA erste leere Zeile - Übertragen
04.10.2014 13:43:16
Hansjörg

Hallo Excelprofis, brauche wieder einmal EURE HILFE.
Habe ein Tabellenblatt (Wochenplan) in welchem in dem Zellenbereich N32:V37 Daten eingetragen sind.
Diese Daten sollten samt Ihrer bestehenden Formatierung in das Tabellenblatt Übersicht übertragen werden.
Bei jedem erneuten Übertragen der Daten sollten die bereits übertragenen Daten bestehen bleiben und die neu zu übertragenden Daten wieder beginnend in die erste leere Zelle der Spalte A:A eingetragen werden.
Könnt ihr mir BITTE helfen!
Vielen Dank im Voraus!
Hansjörg

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA erste leere Zeile - Übertragen
04.10.2014 13:56:14
Hajo_Zi
Hallo Hansjörg,
Option Explicit
Sub Kopie()
Dim Loletzte As Long
With Worksheets("Übersicht")
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
Worksheets("Wochenplan").Range("N32:V37").Copy .Cells(Loletzte, 1)
End With
End Sub

AW: VBA erste leere Zeile - Übertragen
04.10.2014 14:11:15
Hansjörg
Danke Hajo für Deine superschnelle Antwort!!!
Nur noch ein kleines Problem, beim Kopieren werden die Daten nicht als Wert eingetragen sondern es wird immer die bestehende Zellverknüpfung mitkopiert.
Es darf beim einfügen der Daten nur der Wert übertragen werden, nicht aber die Verknüpfung.
DANKE!!
Hansjörg

Anzeige
AW: VBA erste leere Zeile - Übertragen
04.10.2014 14:20:20
Hajo_Zi
Hallo Hansjörg, 
Option Explicit
Sub Kopie()
Dim Loletzte As Long
With Worksheets("Übersicht")
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Worksheets("Wochenplan").Range("N32:V37").Copy
With .Cells(Loletzte, 1)
.PasteSpecial Paste:=xlValues       ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
End With
Application.CutCopyMode = False
End Sub
Gruß Hajo

AW: VBA erste leere Zeile - Übertragen
04.10.2014 14:30:09
Hansjörg
Danke Hajo!!!!
Funktioniert SUPER!!!!

Anzeige

312 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

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