Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln und Formatierung übernehmen

Formeln und Formatierung übernehmen
03.09.2007 18:02:00
maruseru
Hallo zusammen
Nochmals möchte ich mich für die bisherige Hilfe hier im Forum bedanken.
Ich habe aus einer anderen Arbeitsmappe jeweils eine Zeile (nur Werte) aus Tabelle 1 und 2 in die erste leere Zeile auf der aktuellen Mappe in die Tabellen ziel1 und ziel2 kopiert. Num möchte ich gerne jeweils die Formatierungen und Formeln der nun vorletzten Zeile in tabelle ziel1 und ziel2 auf die letzte noch unformatierte Zeile übernehmen.
Danke und Gruss
Mauseru

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln und Formatierung übernehmen
03.09.2007 22:23:29
Gerd
Hallo Maruseru oder Mauseru(?)
teste mal. Blattnamen u. evtl. die zur Ermittlung der letzten Zeile maßgebliche Spalte bitte anpassen.

Sub test()
Dim lngLz As Long, vntTabNamen As Variant, intZähler As Integer
vntTabNamen = Array("Tabelle2", "Tabelle3")
For intZähler = 0 To UBound(vntTabNamen)
With ThisWorkbook.Worksheets(vntTabNamen(intZähler))
lngLz = .Cells(Rows.Count, 1).End(xlUp).Row 'Zeile der letzten gefüllten Zelle in Spalte A
.Rows((lngLz - 1)).Copy
.Rows(lngLz).Cells.PasteSpecial (xlPasteFormats)
.Rows((lngLz - 1)).SpecialCells(xlCellTypeFormulas).Copy
.Rows((lngLz - 1)).SpecialCells(xlCellTypeFormulas).Offset(1, 0).PasteSpecial (xlFormulas)
End With
Next
Application.CutCopyMode = False
End Sub


Gruß Gerd

Anzeige
AW: Formeln und Formatierung übernehmen
04.09.2007 09:08:56
maruseru
Hallo Gerd
Funktioniert einnwandfrei. Nun muss ich nur noch die Tabellen Namen modifizieren.
Du hast mir eine Menge Zeit erspart.
Nochmals vielen Dank und Gruss
Maruseru

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige