Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen Kopieren mit Formeln u. Formaten

Zeilen Kopieren mit Formeln u. Formaten
11.08.2008 14:11:35
Lemmi
Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
Wird der Block eingefügt so soll das Nummernsystem mit einer Zahl höher neu beginnen!
(z. B) 003 (Spalte A) 000 Spalte B
So ein ähnliches Marko habe ich von Euch schon einmal bekommen!(...ist inder Datei)
Vieleicht brauch man diese nur anzupassen?
https://www.herber.de/bbs/user/54511.xls
Gruß
Lemmi

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Kopieren mit Formeln u. Formaten
12.08.2008 09:44:00
fcs
Hallo Lemmi,
für das Kopieren der Zeilen 6 bis 12 ans Ende und Erhöhung der Nr. in Spalte A kannst du das folgende Makro verwenden.
Da du die Formeln weggelassen hast bin ich aber nicht sicher, ob diese speziell in der Überschriftszeile bei dir korrekt kopiert werden. ggf. muss hier nochmals angepasst werden.
Gruß
Franz

Sub CopyBlock()
Dim lngLetzte As Long, lngNrLetzte As Long
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1") 'ggf. Name anpassen
With wks
'letzte benutzte Zeile in Spalte A
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
'letzte Nr. in Spalte A
lngNrLetzte = .Cells(lngLetzte, 1) 'letzte Nr. in Spalte A
'Zeilen kopieren
.Range(.Rows(6), .Rows(12)).Copy
.Cells(lngLetzte + 1, 1).Insert
'neue Nr in Spalte A für eingefügte Zeilen eintragen
.Range(.Cells(lngLetzte + 1, 1), .Cells(lngLetzte + 7, 1)).Value = lngNrLetzte + 1
'Eingabewerte in kopierter Überschrift löschen
.Range(.Cells(lngLetzte + 1, 3), .Cells(lngLetzte + 1, 4)).ClearContents
.Range(.Cells(lngLetzte + 1, 6), .Cells(lngLetzte + 1, 14)).ClearContents
.Cells(lngLetzte + 1, 16).ClearContents
'Eingabewerte in kopierten 6 Zeilen löschen
.Range(.Cells(lngLetzte + 2, 3), .Cells(lngLetzte + 7, 16)).ClearContents
End With
End Sub


Anzeige
AW: Zeilen Kopieren mit Formeln u. Formaten
12.08.2008 14:29:00
Lemmi
Fanz Danke!
alles o.k. !
benötige noch eine kleine Anpassung!
Die Eingabewerte des kopierten Blocks in E6 ; U6 bis W11 sowie AF6 bis AX11 sollen nicht übernommen werden! Wie würde das Marko dann aussehen? (nur löschen der Einabewerte)
Wäre es möglich den Worksheet Namen Varialbel auszugestalten, so dass das Makro funktioniert ohne den Namen immer wieder neu anzupassen!
Bereich:
Set wks = Worksheets("Tabelle1") 'ggf. Name anpassen
Gruß
Lemmi

AW: Zeilen Kopieren mit Formeln u. Formaten
12.08.2008 16:01:00
fcs
Hallo Lemmi,
variable Tabelle:
mit folgender Anpassung wird das Makro immer im aktiven Tabellenblatt ausgeführt und Eingabewerte im kopierten Block entsprechend gelöscht.
Gruß
Franz

Sub CopyBlock()
Dim lngLetzte As Long, lngNrLetzte As Long
Dim wks As Worksheet
Set wks = ActiveSheet 'ggf. Name anpassen
With wks
'letzte benutzte Zeile in Spalte A
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
'letzte Nr. in Spalte A
lngNrLetzte = .Cells(lngLetzte, 1) 'letzte Nr. in Spalte A
'Zeilen kopieren
.Range(.Rows(6), .Rows(12)).Copy
.Cells(lngLetzte + 1, 1).Insert
'neue Nr in Spalte A für eingefügte Zeilen eintragen
.Range(.Cells(lngLetzte + 1, 1), .Cells(lngLetzte + 7, 1)).Value = lngNrLetzte + 1
'Eingabewerte in kopierter Überschrift löschen
.Range(.Cells(lngLetzte + 1, 3), .Cells(lngLetzte + 1, 14)).ClearContents 'Spalten C bis N
.Cells(lngLetzte + 1, 16).ClearContents 'Spalte P
.Range(.Cells(lngLetzte + 1, 21), .Cells(lngLetzte + 1, 23)).ClearContents 'Spalten U bis W
.Range(.Cells(lngLetzte + 1, 32), .Cells(lngLetzte + 1, 50)).ClearContents 'Spalten AF bis  _
AX
'Eingabewerte in kopierten 6 Zeilen löschen
.Range(.Cells(lngLetzte + 2, 3), .Cells(lngLetzte + 7, 16)).ClearContents 'Spalten C bis P
.Range(.Cells(lngLetzte + 2, 21), .Cells(lngLetzte + 7, 23)).ClearContents 'Spalten U bis W
.Range(.Cells(lngLetzte + 2, 32), .Cells(lngLetzte + 7, 50)).ClearContents 'Spalten AF bis  _
AX
End With
End Sub


Anzeige
AW: Zeilen Kopieren mit Formeln u. Formaten
12.08.2008 22:36:00
Lemmi
Hallo Franz,
vielen Dank für die Unterstützung!
Gruß
Lemmi

332 Forumthreads zu ähnlichen Themen

Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 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
7
7
2
3
11
5
2
5
7
2
7
12
2
3
5
9
3
2
8
1
6
4
2
12
1