Tabellenabschnitt kopieren und einfügen

Sub NeuenAuftragBerechnen() ' NeuenAuftragBerechnen Dim Calc As String Calc = Range("A4:H23").Select Selection.Copy Dim last As Integer last = Cells(Rows.Count, 1).End(xlUp).Row + 4 Cells(last, 1).Value = Calc MsgBox "neue Berechnung verfügbar", vbInformation, "Neue Berechnung" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub NeuenAuftragBerechnen() ' NeuenAuftragBerechnen Dim last As Long Dim Calc As Variant Calc = Range("A4:H23").Value last = Cells(Rows.Count, 1).End(xlUp).Row + 4 Cells(last, 1).Resize(20, 8) = Calc MsgBox "neue Berechnung verfügbar", vbInformation, "Neue Berechnung" End Sub

Sub Formeln_kopieren() Dim Z As Range Set Z = Cells(Rows.Count, 1).End(xlUp).Offset(3, 0) 'die Anker-Zelle, wo es kopiert wird Range("A4:H23").Copy Destination:=Z ' A4:H23 sind 20 Zeilen Z.Resize(20, 3).ClearContents 'diese Zelle Z (Size 1, 1) erweitert auf 20 Zeile und 3 Spalten End Sub

Hallo Yal,
ich Versuche es so ausführlich wie moglich!
Tabellenabschnitt A4:H23
Zellen A:A23 sind Bezeichnungen mit festem Text
Zelle B9 ist ein Dropdown mit einer INDIREKT Formel
Zelle C4(Zellen C4, D4, E4, F4, G4, H4 sind Verbunden) und C6:C14(auch Verbundene Zellen wie C4) sind Formeln hinterlegt. Diese Zellen befüllen sich Automatisch sobald in Zelle C5(auch Verbundene Zelle wie C4) eine 6 Stellige Nummer eingeben wird. C5 Fomel XVERWEIS zu einer anderen Datei. C4 und C6:C14 auch XVERWEIS Suchkriterium ist Inhalt von C5.
C15:H17 sind auch Zellen mit INDIREKT Formeln.
Nur die Zellen C5 und C15:H17 können bearbeitet/ausgewählt werden.
Die Zellen C18:H13 sind Formeln die Berechnungen ausgeben.
Es Reicht aus wenn nur die Werte(nicht die Formel) aus C5 und C15.H17 gelöscht wird. Dieser Tabellenabschnitt soll aber immer wieder, 3 Zeilen unterhalb des letzten Tabellenabschnitt eingefügt werden, sobald auf den vorhanden Button "neue Berechnung" geklickt wird.
hoffe das ist ausführlich sonst gerne nochmal nachfragen, ;-)

Hallo Sascha,
so viel Details brauche ich nicht. Im Grund genommen hast Du die Lösung: "Es reicht aus, wenn nur die Werte (nicht die Formel) aus C5 und C15:H17 gelöscht wird."
Das einzige Schwierigkeit ist, dass die Stellen der kopierte Zellen von dem "Z" abhängig sind (den Anker-Punkt für das Ablegen der Kopie, den neuen A4).
Daher muss man, zusätzlich zu den "Resize" den "Offset" mitgeben
C5 ist zu A4 eine Zeile tiefer und 2 Spalten nach rechts, also Offset (1,2).
Zum Test, gebe in das Direktfenster (in VB-Editor Ansicht, Direktfenster oder Strg+g)
print Worksheets("DAT").Range("A4").Offset(1, 2).Address
dann Enter. Es sollte $C$5 rauskommen.
Dito C15: 11 Zeilen tiefer, 2 Spalten nach rechts. Test:
print Worksheets("DAT").Range("A4").Offset(11, 2).Address
Dann die "Fläche" von C15:H17, erstens: wieviele Zeilen:
print Worksheets("DAT").Range("C15:H17").Rows.Count
ergibt 3. Dann wieviele Spalten:
print Worksheets("DAT").Range("C15:H17").Columns.Count
ergibt 6.
Alles zusammen ergibt folgenden Code:


Sub Formeln_kopieren()
Dim Z As Range
Set Z = Cells(Rows.Count, 1).End(xlUp).Offset(3, 0) 'die Anker-Zelle, wo es kopiert wird: den "neuen A4"
Range("A4:H23").Copy Destination:=Z
Z.Offset(1, 2).ClearContents 'den C5 aus der Sicht der "neuen A4"
Z.Offset(11, 2).Resize(3, 6).ClearContents 'den C15:H17 aus der Sicht der "neuen A4"
End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

Tabellenabschnitt kopieren und einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenabschnitt kopieren und einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread